驱动程序 DRIVER=),诸如;“ SQLServer”、服务 器名( SERVER=)和数据库名( DATABASE=) 也可以在特定ODBC的参数或标准AD0定义的 Userid和 Password参数中为用户帐号:指定用户 账号名(UID=)和密码(PWD=)。 即使DSN定义已经指定了数据库,也可以在 DSN之外指定 DATABASE参数以便连接到不同的数 据库这同时更改了DSN定义以包括指定的数据库。 使用DSN时始终包括 DATABASE参数是一种好办 法。这样将保证能连接到正确的数据库,因为其他 用户可能会在上一次检查DSN定义后更改默认的数 据库参数。 2.连接到 Access数据库 可以使用指定 OLE DB提供者和连接字符串来 连接 Access数据文件。例如 set consnew adodB connection con. Open provider=Microsoft Jet OLEDB 4.0 Data Source=c: \library. mdb Persist Security Info=False 其中c:\ library.mdb为数据库的路径和名称。 如果数据库有密码,则: Provider=Microsoft. Jet OLEDB 4.0; Password=sa; User ID=rose DataSource=c: library. mdb; Persist Security Info=True
驱动程序(DRIVER=)，诸如；“SQLServer”、服务 器名(SERVER=)和数据库名(DATABASE=)。 也可以在特定 ODBC 的参数或标准 ADO 定义的 UserID 和 Password 参数中为用户帐号：指定用户 账号名(UID=)和密码（PWD=）。 即使 DSN 定义已经指定了数据库，也可以在 DSN 之外指定 DATABASE 参数以便连接到不同的数 据库。这同时更改了 DSN 定义以包括指定的数据库。 使用 DSN 时始终包括 DATABASE 参数是一种好办 法。这样将保证能连接到正确的数据库，因为其他 用户可能会在上一次检查 DSN 定义后更改默认的数 据库参数。 2．连接到 Access 数据库 可以使用指定 OLE DB 提供者和连接字符串来 连接 Access 数据文件。例如： set con=new ADODB.connection con.Open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\library.mdb;Persist Security Info=False" 其中c:\library.mdb为数据库的路径和名称。 如果数据库有密码，则： Provider=Microsoft．Jet．OLEDB．4．0；Password=sa；User ID=rose； DataSource= c:\library.mdb；Persist Security Info=True
其中rose为用户名;sa为密码 如果数据库是局域网其他计算机上的,那么这 个数据库所在的至少上一层目录为共享,采用下面 办法: Provider=Microsoft Jet OLEDB 4.0; UserIi-rose; DataSource= \\qyKong\data\library. mdb; Persist Security Info=False 这里“ gy Kong\data、 library.mdb”为在 网络邻居中名 gy Kong的机器上(IP也可以)上的 data文件夹下的名为1 ibrary的 Access数据。 3.连接到 SQL Server数据源 以下范例通过打开3个使用不同提供者的 Connection对象演示 Provider属性,还使用 DefaultDatabase属性设置 Microsoft odbc提供者 的默认数据库 Private Sub Providerxo Dim cnn1 As adoDB Connection Dim cnn2 As adodB Connection Dim cnn3 As AdODB Connection 使用 Microsoft odbc提供者打开数据库 Set cnnl= New adodB Connection cnnl ConnectionString=driver=(SQL Server); server=bigsmile; uid=sa: pwd=pwd cnnl Open strcnn cnnl. DefaultDatabase ="Pubs
其中 rose 为用户名；sa 为密码 如果数据库是局域网其他计算机上的，那么这 个数据库所在的至少上一层目录为共享，采用下面 办法： Provider=Microsoft.Jet.OLEDB.4.0;UserID=rose;DataSource= \\qyKong\data\library.mdb;Persist Security Info=False 这里“\\qyKong＼data＼library.mdb”为在 网络邻居中名 qyKong 的机器上(IP 也可以)上的 data 文件夹下的名为 library 的 Access 数据。 3．连接到 SQL Server 数据源 以下范例通过打开 3 个使用不同提供者的 Connection 对象演示 Provider 属性，还使用 DefaultDatabase 属性设置 Microsoft ODBC 提供者 的默认数据库。 Private Sub Providerx() Dim cnn1 As ADODB.Connection Dim cnn2 As ADODB.Connection Dim cnn3 As ADODB.Connection '使用 Microsoft ODBC 提供者打开数据库 Set cnn1 = New ADODB.Connection cnn1.ConnectionString = "driver={SQL Server};" & _ "server=bigsmile;uid=sa;pwd=pwd" cnn1.Open strcnn cnn1.DefaultDatabase = "Pubs
显示提供者 MsgBox cnnl provider: cnnl Provider 使用 Microsoft Jet提供者打开数据库 Set cnn2= New adodB Connection cnn2 Provider ="Microsoft Jet OLEDB. 3. 51 cnn2 Open c:samplesnorthwind mdb",admin 显示提供者 MsgBox cnn2 provider: cnn2 Provider 使用 Microsoft SQL服务器提供者打开数据库 Set cnn3= New adodB connection cnn3 Provider =sqloledb cnn3 Open"Data sourcesrv; Initial Catalog=pubs; ,sa 显示提供者 MsgBox cnn3 provider:& cnn3 Provider cnn. Close cnn2. Close cnn 3. Close End Sub 通过以上介绍,可以总结出ADO与不同数据库连 接所使用的连接字符串如下 ODBC连接 ①0DBC-DSN连接 方法: cnn. Open dsn=advWorks; uid=admin, pwd= ady Works为数据源名
'显示提供者 MsgBox "cnn1 provider:" & cnn1.Provider '使用 Microsoft Jet 提供者打开数据库 Set cnn2 = New ADODB.Connection cnn2.Provider = "Microsoft.Jet.OLEDB.3.51" cnn2.Open "c:\samples\northwind.mdb", "admin" '显示提供者 MsgBox "cnn2 provider:" & cnn2.Provider '使用 Microsoft SQL 服务器提供者打开数据库 Set cnn3 = New ADODB.Connection cnn3.Provider = "sqloledb" cnn3.Open "Data source=srv;Initial Catalog=pubs;", "sa" '显示提供者 MsgBox "cnn3 provider:" & cnn3.Provider cnn1.Close cnn2.Close cnn3.Close End Sub 通过以上介绍，可以总结出 ADO 与不同数据库连 接所使用的连接字符串如下： ⚫ ODBC 连接 ①ODBC-DSN 连接 方法： cnn.Open "dsn=advWorks;uid=admin;pwd=;" advWorks 为数据源名