提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”调试代码指向rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticPrivateSubCommand1_Click()DimsqlAsStri...
提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”调试代码指向 rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
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 yqgl where user_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
Private Sub Command2_Click()
MsgBox "您已成功退出!", vbOKOnly + vbExclamation, "提示"
Unload Me
End Sub
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim connectionstring As String
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & "D:\用户登录\yqgl.mdb;Persist Security Info=False"
conn.Open connectionstring
End Sub
展开