ADO对象连接数据库

使用数据库，最基本的就是要连接数据库，才能对数据库进行各种操作！在程序中，最常用的就是使用ADO对象来连接数据库！

现在我们就来看看用ADO 对象来连接Access数据库和SQL Server数据库：

一.使用ADO对象连接Access数据库

1.使用ODBC DSN连接Access数据库

通过"ODBC 数据源"创建DNS

在控制面板中打开管理工具，然后双击ODBC数据源

然后用字符串连接

Dim cn as ADODB.connection

Cn.open "DSN=book;Uid=myUsername;Pwd=myPassword“

2.无ODBC DSN 连接Access数据库

（1)标准安全性

Dim cn as ADODB.connection

Cn.open "Driver={Microsoft Access Drive(*.mdb）;"Dbq=app.path " & "\文件名;Uid=admin;Pwd=123456"

(2)使用工作组（系统数据库）

Dim cn as connection

Cn.open "Driver={Microsoft Access Drive(*.mdb）;"Dbq=" & app.path & "\文件名";" & _

"SystemDB=app.path & "\文件名;myUsername,mypassword"

(3)排他打开MDB

Cn.open "Driver={Microsoft Access Drive(*.mdb）;Dbq=app.path & "\文件名";" & _

"Exclusive=1;Uid=admin;Pwd=123456"

3使用Microsoft OLE DB Provider 连接Access数据库

Cn.open "Provider=Microsoft.Jet.OLEDB.4.0;"Data Soure=" & app.path &"\文件名;Persist Security Info=False"

二使用ADO对象连接SQL Server数据库

1.使用ODBC DSN 连接SQL Server 数据库

通过"ODBC 数据源"创建DNS，（操作方式和Access的相识，可以参考Access的连接方式）然后用字符串连接

Dim cn as ADODB.connection

Cn.open "Provider=MSDASQL.1;Persist Securty Info=false;User ID=sa;Data Source=database_name"

2.无ODBC DSN 连接SQL Server数据库

（1）标准安全性

Dim cn as ADODB.connection

Cn.open "Driver={SQL Server}; Server=ly; Database=book;Uid=sa;Pwd=123456"

(2)信任连接

Dim cn as ADODB.connection

Cn.open "Driver={SQL Server}; Server=ly; Database=database_name;Uid=;Pwd="

(3)要求用户名和密码

Dim cn as ADODB.connection

Cn.open "Driver={SQL Server}; Server=ly; Database=database_name"

（4）连接本地SQL Server

Dim cn as ADODB.connection

Cn.open "Driver={SQL Server}; Server=(local); Database=database_name;Uid=sa;Pwd=123456"

(5)远程连接SQL Server

Dim cn as ADODB.connection

Cn.open "Driver={SQL Server}; Server=IP;Address=ip,1433;Network=DBMSSOCN; Database=database_name;Uid=sa;Pwd=123456"

3使用OLE DB Provider for SQL Server 连接SQL Server

(1)标准

Dim cn as ADODB.connection

Cn.open "Provider=sqloledb;Data Source=myServername;Initial Catalog=database_name;User Id=myUsername;" & _

"Password =myPassword"

(2)连接本地计算机

Dim cn as ADODB.connection

Cn.open "Provider=sqloledb;Data Source=（local);Initial Catalog=database_name;User Id=myUsername;" & _

"Password =myPassword"

(3)远程计算机

Dim cn as ADODB.connection

Cn.open "Provider=sqloledbNetwor Library=DBMSSOCN;Data Source=IP;Initial Catalog=database_name;User Id=myUsername;" & _

"Password =myPassword"

看着这么多方法，其实都是由标准的演变而来的，懂得标准的是如何连接数据库的你就行了。

记是永远记不住的，遇到的时候不懂的，记得不太清楚的，我们可以再网上查找，合理的利用网络资源！