ADO参考,各种连接数据库字符串

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ADO参考,各种连接数据库字符串，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含4733字，纯文字阅读大概需要7分钟。

内容图文

ADO参考 摘要：在OLE DB(建立于低层ODBC 之上，是一个针对 SQL 数据源和非SQL 数据源，如邮件和目录等进行操作的应 用程序接口)的基础上，Microsoft 推出了另一个数据访问对象模型：ADO(ActiveX Da ta Object：ActiveX数据对 象)。ADO 采用基于 DAO 和 RDO

ADO参考
摘要：在OLE DB(建立于低层ODBC 之上，是一个针对 SQL 数据源和非SQL 数据源，如邮件和目录等进行操作的应用程序接口)的基础上，Microsoft 推出了另一个数据访问对象模型：ADO(ActiveX Data Object：ActiveX数据对象)。ADO 采用基于 DAO 和 RDO 的对象，并提供比 DAO 和 RDO 更简单的对象模型，它包含一些简化对数据存储区数据的访问任务的内置对象。同时ADO具有强大的功能和灵活性，它可以使用相同的编程模式连接到不同的数据库，为我们提供了数据库访问接口。
ADO对象
ADO 模型中定义了六个常用的对象：Connection、Command、Recordset、Error、Field和Parameter对象，通过这些对象的属性和方法，我们可以很方便地建立数据库连接，执行SQL查询以及存取操作。下图直观地描述了对象之间的关系：

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 属性以便获取数据。
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

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

内容总结

以上是互联网集市为您收集整理的ADO参考,各种连接数据库字符串全部内容，希望文章能够帮你解决ADO参考,各种连接数据库字符串所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端