VB連接SQL數據庫,可通過ADO數據對象和SQL結構化查詢語言實現。
ADO (ActiveX 數據對象), 這項新的數據訪問技術的特性包括:更簡單的對象模型;與其它 Microsoft 和非 Microsoft?
的技術更好的集成;為本地和遠程數據數據提供的通用接口;可遠程訪問的和斷開的記錄集;用戶可訪問的數據綁定接口;以及層次結構的記錄集。
結構化查詢語言(Structured Query Language)簡稱SQL,是壹種特殊目的的編程語言,是壹種數據庫查詢和程序設計語言,用於存取數據以及查詢、更新和管理關系數據庫系統。
代碼示例:
Private Sub XPButton1_Click()
On Error GoTo finish '防錯代碼,防止意外而導致的退出
sql = "select * from 用戶管理 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'"
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登錄數據庫用戶名(默認為sa);Password=登錄數據庫密碼;Initial Catalog=數據庫名;Data Source=服務器名(默認為:MERRYCHINA)" '這是連接SQL數據庫的語句?
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
'以上使用最通用的方法來查詢數據庫中是否有匹配的記錄
If rs.EOF = True Then '如果沒有記錄則說明用戶或密碼為錯誤的
If pnum < 2 Then 'pnum就是密碼驗證次數,當次數超過3次,系統會自動保護退出
pnum = pnum + 1
MsgBox "用戶名或密碼錯誤!", vbInformation, "錯誤次數:" & pnum
rs.Close
cn.Close
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
MsgBox "用戶名或密碼錯誤超過三次,系統會自動退出", vbInformation, "提示"
End
End If
Else
loginname = rs.Fields(0)
Form1.Show
rs.Close
cn.Close
End If
Exit Sub
finish:
MsgBox Err.Description
rs.Close
cn.Close
End Sub
註意?cn.ConnectionString此句需依據實際的SQL數據庫建立連接獲得的字符串。