求VB連接數(shù)據(jù)庫實例

VB使用ADO數(shù)據(jù)庫可以分為有源數(shù)據(jù)庫和無源數(shù)據(jù)庫，即是否使用了DSN數(shù)據(jù)源，如下例：1、在連接數(shù)據(jù)庫前首先要在VB菜單中“工程”-“引用”從中選擇 microsoft activeX Data objects 2。6 library和 microsoft activeX Data objects recordset 2。

6兩個組件，這是在連接數(shù)據(jù)前所必做的工作。2、接下來定義ADO的連接對象，如下所示：Set conn = New ADODB。ConnectionSet rs = New ADODB。Recordset第一種方法采用的是無源的數(shù)據(jù)庫連接方法conn。

ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"conn。ConnectionTimeout = 30conn。

Openrs。Open "select 用戶名,密碼 from login where 用戶名='" & Trim(Combo1。Text) & "' And 密碼='" & Trim(Text1。

Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdTextIf rs。EOF = True And rs。BOF Thenm = MsgBox("請重新登錄", vbExclamation)Text1。

Text = ""Text1。SetFocusElseForm1。HideEnd Ifrs。Close這是第二種方法連接數(shù)據(jù)庫的方法，這一種方法是采用有源的方法與數(shù)據(jù)庫連接的方法，代碼如下所示：Set conn = New ADODB。

ConnectionSet rs = New ADODB。Recordsetconn。ConnectionString = "DSN=login;uid=sa;pwd=;"conn。ConnectionTimeout = 30conn。

Openrs。Open "select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdTextDim i As StringFor t = 0 To Val(rs。

RecordCount) - 1i = Trim(rs。Fields("用戶名")。Value)rs。MoveNextCombo1。AddItem iNext trs。Close下面是連接數(shù)據(jù)庫具體代碼：Public conn As New ADODB。

Connection Public rs As New ADODB。Recordset Public addFlag As Boolean Public Function OpenCn() As Boolean Dim mag As String On Error GoTo strerrmag Set conn = New ADODB。

Connection conn。ConnectionTimeout = 25 conn。Provider = "sqloledb" conn。Properties("data source")。Value = "127。

0。0。1" ''服務(wù)器的名字 conn。Properties("initial catalog")。Value = "chart" ''庫名 conn。Properties("integrated security")。

Value = "SSPI" ''登陸類型 conn。Open OpenCn = True addFlag = True Exit Function strerrmag: mag = "Data can''t connect" Call MsgBox(mag, vbOKCancel, "Error:Data connect") addFlag = False End End Function Public Sub clocn() On Error Resume Next If conn。

State adStateClosed Then rs。Clone Set rs = Nothing。