Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim sql As String
Dim rs_log As New ADODB.Recordset
conn.Open "provider=Microsoft.Jet.oledb.4.0;data source=e:\我的\图书管理系统\database\database.mdb"
If Trim(Text1.Text) = "" Then ' 判断输入的用户名是否为空
MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Else
sql = "select * from 用户管理表 where userID='" & Text1.Text & "'"
rs_log.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_log.EOF = True Then
MsgBox "用户或密码错误!!!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Else ' 检验密码是否正确 用户名和密码通过后，要关闭本窗体并打开主窗体。
If Trim(rs_log.Fields(1)) = Trim(Text2.Text) Then
userID = Text1.Text
userpow = rs_log.Fields(1)
rs_log.Close
Unload Me
Main.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
Text2.SetFocus
End If
End If
End If
' 只能输入3次
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
Exit Sub
End Sub
这是一个登陆界面,登陆的时候要调用数据库里面的用户名和密码,他的绝对路径是source=e:\我的\图书管理系统\database\database.mdb"(上边代码中的句子)
我如果把这个系统用到D:盘的情况下,就提示确认路径拼写是正确的!这个问题怎么解决呀!!
我已经把我的图书管理系统传上去了,
