Question

一段VB代码，一直提示“VB中连接无法用于执行此操作，在此上下文中它可能已经被关闭”

这是代码：
Private Sub Command1_Click()
Dim sql As String
Dim conn As New ADODB.Connection
Dim rs_login As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1.SetFocus
Else
sql = "select * from Test where test_info = '" & Text1.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "用户名不存在，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1 = ""
Text1.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(Text2) Then
rs_login.Close
Unload Me
Form2.Show
Else
MsgBox "密码错误，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text2.SetFocus
End If
End If
End If
End Sub
这是错误行：sql = "select * from Test where test_info = '" & Text1.Text & "'"

Answer 1

出错误的应该是这行
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

当conn处于关闭状态时，执行上述语句就会报“VB中连接无法用于执行此操作，在此上下文中它可能已经被关闭”
从你的代码来看，你这个conn尚未与你的数据库建立连接，这样你直接就想从中读取记录集时就肯定会出错了。

追问

修改好了。谢谢。