Private Sub txt_sname_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_sname.GotFocus
Dim fcs As String
fcs = "select fname,dept from nstudent where stid = '" & txt_sid.Text & "'"
scmd1 = New SqlCommand(fcs, con)
dr1 = scmd1.ExecuteReader
If dr1.HasRows Then
Do While (dr1.Read)
txt_sname.Text = dr1.Item(0)
cmb_dept.Text = dr1.Item(1)
Loop
Else
MsgBox("Not Found")
End If
scmd1.Dispose()
If Not dr1.IsClosed Then dr1.Close()
End Sub
上記のデータベースからのデータのコードとテキストボックスへのパス。プログラムを実行して、データベースに既に存在するデータをチェックすると、正常に動作します。しかし、他のデータ(dbに存在しない)をチェックすると、エラーが発生して終了します。
エラー: 「このコマンドに関連付けられた開いている DataReader が既に存在します。これを最初に閉じる必要があります。」
助けてください..