VB使用ADO資料庫可以分為有源資料庫和無源資料庫，即是否使用了DSN資料來源，如下例：1、在連線資料庫前首先要在VB選單中“工程”-“引用”從中選擇 microsoft activeX Data objects 2。6 library和 microsoft activeX Data objects recordset 2。
6兩個元件，這是在連線資料前所必做的工作。2、接下來定義ADO的連線物件，如下所示：Set conn = New ADODB。ConnectionSet rs = New ADODB。Recordset第一種方法採用的是無源的資料庫連線方法conn。
Text = ""Text1。SetFocusElseForm1。HideEnd Ifrs。Close這是第二種方法連線資料庫的方法，這一種方法是採用有源的方法與資料庫連線的方法，程式碼如下所示：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下面是連線資料庫具體程式碼：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。
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。
VB使用ADO資料庫可以分為有源資料庫和無源資料庫，即是否使用了DSN資料來源，如下例：1、在連線資料庫前首先要在VB選單中“工程”-“引用”從中選擇 microsoft activeX Data objects 2。6 library和 microsoft activeX Data objects recordset 2。
6兩個元件，這是在連線資料前所必做的工作。2、接下來定義ADO的連線物件，如下所示：Set conn = New ADODB。ConnectionSet rs = New ADODB。Recordset第一種方法採用的是無源的資料庫連線方法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這是第二種方法連線資料庫的方法，這一種方法是採用有源的方法與資料庫連線的方法，程式碼如下所示：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下面是連線資料庫具體程式碼：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" ""伺服器的名字 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。