‘資料庫一共有兩張表，一張是放現況資料的，還有一張是賬號資訊表，用來校對賬號和密碼
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Private Sub Command1_Click()
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\as long as\桌面\VBA 自學實體\現況系統\現況管理.mdb;Persist Security Info=False"
db.Open
If Combo1.Text = "" Or Text1 = "" Then
MsgBox "對不起，輸入的賬號或密碼不能為空！", 16, "登錄失敗！"
Exit Sub
End If
If Combo1.Text <> "" And Text1 <> "" Then
strSQL = "select * from 賬號資訊 Where 登錄姓名= '" & Combo1.Text & "' and 登錄密碼= '" & Text1.Text & "'"
End If
rs.Open strSQL, db, 3, 1
If Trim(rs.Fields("登錄姓名")) = Trim(Combo1.Text) And Trim(rs.Fields("登錄密碼")) = Trim(Text1.Text) Then
MsgBox "登錄成功！", , "恭喜！"
addxk.Show
Unload Me
Else
MsgBox "對不起，沒有該用戶，請重新輸入！", 16, "登錄失敗！"
Combo1.Text = ""
Text1.Text = ""
Combo1.SetFocus
End If
rs.Close
db.Close
End Sub
uj5u.com熱心網友回復：
錯誤資訊是什么呢？uj5u.com熱心網友回復：
你好，謝謝回答，把賬號資訊單獨放在一個資料庫中可以解決問題，不知道為什么兩張表放在一個資料庫里不行轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/82887.html
上一篇：求VB散點圖 控制元件
下一篇：大神，求幫助