'準備工作: 數據庫 D:\Mydb.mdb 數據庫中,建數據表:UserInfo,數據表中,建字段:User,Password,並添加壹條記錄
'點工程->引用 選中 Microsoft Activex Data Objects 2.1 Library
'控件:添加壹個文本框,壹個命令按鈕
Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'請將數據庫名及路徑換成妳的實際數據庫名及路徑
Dim UserName As String
Dim Password As String
s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("請輸入用戶名")
Password = InputBox("請輸入用戶密碼")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo請換成妳的實際數據表名
Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "沒有找到此用戶"
Else
If Rs("Password") = Password Then
If s = "1" Then
MsgBox "123"
ElseIf s = "2" Then
MsgBox "456"
End If
Else
MsgBox "密碼錯誤"
End If
End If
End If
End Sub
上面的例子實現了查詢
如果是要添加,刪除,更新等操作,只要編寫相應的SQL語句,再用
Conn.Execute SQL 就可以了,如:
添加的:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '執行後,就添加了壹條記錄
刪除:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '刪除用戶名為aaaa的用戶記錄
更新:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '執行後,修改用戶aaaa的密碼為abcdefg
以上只是示例,在實際使用過程中,可以將壹些內容用控件輸入等方式進行,這樣就有很大的靈活性了