win7下ado连接mysql_提示连接无法用于执行此操作_提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”...

提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”调试代码指向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

展开