ADO连接各种数据库

Connection对象
代表打开的、与数据源的连接。一般使用 Connection 对象的集合、方法、和属性执行下列操作： 
1、在打开连接前使用 ConnectionString、ConnectionTimeout 和 Mode 属性对连接进行配置。
2、使用 DefaultDatabase 属性设置连接的默认数据库。
3、使用 Provider 属性指定 OLE DB 提供者。
4、使用 Open 方法建立到数据源的物理连接。使用 Close 方法将其断开。
5、使用 Execute 方法执行对连接的命令，并使用 CommandTimeout 属性对执行进行配置。
6、使用 BeginTrans、CommitTrans 和 RollbackTrans 方法以及 Attributes 属性管理打开的连接上的事务（如果提供者支持则包括嵌套的事务）。 
7、使用 Errors 集合检查数据源返回的错误。

Command对象
定义了对数据源执行的命令，我们可以使用 Command 对象的集合、方法、属性进行下列操作： 
1、使用 CommandText 属性定义命令（例如，SQL 语句）的可执行文本。
2、通过 Parameter 对象和 Parameters 集合定义参数化查询或存储过程参数。
3、使用 Execute 方法执行命令并在适当的时候返回 Recordset 对象。 
4、执行前使用 CommandType 属性指定命令类型以优化性能。
5、使用 CommandTimeout 属性设置等待命令执行的秒数。
6、通过设置 ActiveConnection 属性关联打开的连接。
7、设置 Name 属性将 Command 标识为与 Connection 对象关联的方法。
8、将 Command 对象传送给 Recordset 的 Source 属性以便获取数据。

Recordset对象
执行命令返回的记录集。任何时候，Recordset 对象所指的当前记录均为集合内的单个记录。通过 Recordset 对象可对几乎所有数据进行操作。它由记录（行）和字段（列）构成。

ADO连接EXCEL2003表
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & 文件全路
Cnn.Open "provider=microsoft.jet.oledb.4.0;Extended properties='excel 8.0;hdr=no';data source=" & 路径
设置“HDR=NO"应该表示所选区域首行不做为标题，如果不设置该项，系统默认将首行非空记录做为ADO记录集的标题行

ADO连接txt文件
ActiveSheet.Cells.Clear
myText = "学生成绩.txt"
myPath = ThisWorkbook.Path
CnnStr = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & "DBQ=" & myPath '
Cnn.Open CnnStr
rs.Open myText, cnn, adopenkeset, adLockOptimistic

ADO连接ACCESS2003的数据库
strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
ThisWorkbook.Path + "\data\数据库档案.MDB" + _
";Jet OLEDB:Database Password=" & "123"
'定义连接字符串 数据源 密码(最长20个字符)
Set ADOcn = New ADODB.Connection ' 赋值变量为对象引用
ADOcn.Open strAccess '打开连接

ADO连接FOXPRO 6.0的数据库
set conn =createobject("adodb.connection")
set rs=createobject("adodb.recordset")
sql="select * from aa.dbf"
conn.open "driver={microsoft visual foxpro driver };sourcetype=dbf;excelusive=no;sourcedb=" & 文件路径
rs.open sql ,conn
msgbox rs.recordcount
rs.close
conn.close
conn=nothing
rs=nothing
需要安装foxpro 的odbc驱动

ADO连接SQL SERVER的数据库
Dim cnn1 As ADODB.Connection
Dim strCnn As String
' 打开连接。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

ADO连接ACCESS2007的数据库
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Access2007数据源 & _
";Jet OLEDB:Database Password=" & 密码
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Excel2007数据源 & _
";Jet OLEDB:Database Password=" & 密码

ADO连接oracle数据库
Sub connect_数据库()
Dim strconnt As String
Set connt = New ADODB.Connection
Dim rs As Object
Set rs = New ADODB.Recordset
Dim sevip, Db, user, pwd As String
'设服务器地址、所连数据，及登录用户密码
sevip = "****"
Db = "****"
user = "****"
pwd = "****"
strconnt = "DRIVER={Microsoft ODBC for Oracle};Password=apps;User ID=apps;Data Source=demo" '
connt.ConnectionString = strconnt
connt.Open
End Sub

ADO连接mysql数据库
Sub connect_数据库()
Dim strconnt As String
strconnt = ""
Set connt = New ADODB.Connection
Dim rs As Object
Set rs = New ADODB.Recordset
Dim sevip, Db, user, pwd As String
'设服务器地址、所连数据，及登录用户密码
sevip = "192.168.*.*"
Db = "***"
user = "***"
pwd = "****"
strconnt = "DRIVER={MySql ODBC 3.51 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" '
connt.ConnectionString = strconnt
connt.Open
End Sub