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。