服饰网站建设,微网站建设 合同,网站建设get你,专业微信网站建设价格通过ADO连接各种数据库的字符串集 海南省信息服务中心 温大文 在网络编程过程中#xff0c;ADO#xff08;Activex Data Object#xff09;编程往往是不可少的工作#xff0c;特别是开发电子商务网站。既然讲到ADO数据对象#xff0c;那么就顺便简单地介绍一下ADO数据对象… 通过ADO连接各种数据库的字符串集 海南省信息服务中心 温大文 在网络编程过程中ADOActivex Data Object编程往往是不可少的工作特别是开发电子商务网站。既然讲到ADO数据对象那么就顺便简单地介绍一下ADO数据对象及其功能。ADO数据对象共有七种独立的对象他们分别是连接对象Connection、记录集对象RecordSet、域对象Field、命令对象Command、参数对象Parameter、属性对象Property和错误对象Error。功能请参见附录1。 ADO数据对象用来连接数据库的方式有两种分别是ODBC和OLE DB方式下面就分别介绍用这两种方式连接数据库的例子。 第一种ODBC DSN-Less Connections ODBC Driver for Access ODBC Driver for dBASE ODBC Driver for Excel ODBC Driver for MySQL ODBC Driver for Oracle ODBC Driver for Paradox ODBC Driver for SQL Server ODBC Driver for Sybase ODBC Driver for Sybase SQL Anywhere ODBC Driver for Text ODBC Driver for Teradata ODBC Driver for Visual FoxPro 第二种OLE DB Data Provider Connections OLE DB Provider for Active Directory Service OLE DB Provider for DB2 OLD DB Provider for Internet Publishing OLE DB Provider for Index Server OLE DB Provider for Microsoft Jet OLE DB Provider for ODBC Databases OLE DB Provider for Oracle (From Microsoft) OLE DB Provider for Oracle (From Oracle) OLE DB Provider for Simple Provider OLE DB Provider for SQL Server 一、下面我就先讲利用ODBC DSN来访问数据库要完成这项工作必须先通过“控制面板”—“管理工具”—“ODBC数据源”来建立一个数据源名例如叫做TestData_Resoure。 1 通过系统数据源(System DSN)的连接 % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDSNTestData_Resoure; _ UidAdminAccount; _ PwdPassWord; oConn.Open strConn % 2 通过文件数据源(File DSN)的连接 % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnFILEDSNc:\somepath\mydb.dsn; _ UidAdminAccount; _ PwdPassWord; oConn.Open strConn % 3 通过连接池(DSN-Less)的连接(ODBC Driver for AS/400) % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) strConn Driver{Client Access ODBC Driver (32-bit)}; _ SystemmyAS400; _ UidmyUsername; _ PwdmyPassword; oConn.Open strConn % 二、利用数据库驱动程序直接访问数据库的连接字符串。 1 ODBC Driver for Access ● 标准的也是比较常用的连接方法 % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn Driver{Microsoft Access Driver (*.mdb)}; _ Dbq”Server.MapPath(“Testdb.mdb”); _ UidAdminAccount; _ PwdPassword; oConn.Open strConn % ● 假如是一个工作组的系统数据库那么连接字符串如下 % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn Driver{Microsoft Access Driver (*.mdb)}; _ Dbqc:\datapath\Testdb.mdb; _ SystemDBc:\datapath\Testdb.mdw;, _ admin, oConn.Open strConn % ● 假如数据库MDB是网络上共享的那么连接字符串如下 % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{Microsoft Access Driver (*.mdb)}; _ Dbq\\myServer\myShare\myPath\Testdb.mdb; oConn.Open strConn % 2) ODBC Driver for dBASE % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{Microsoft dBASE Driver (*.dbf)}; _ DriverID277; _ Dbqc:\FilePath; oConn.Open strConn % 说明这里要注意的一点就是在SQL查询语句中要特别指定数据库文件名例如 oRs.Open Select * From Testdb.dbf, oConn, , ,adCmdText 3) ODBC Driver for Excel % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{Microsoft Excel Driver (*.xls)}; _ DriverId790; _ Dbqc:\filepath\myExecl.xls; oConn.Open strConn % 4) ODBC Driver for MySQL (通过 MyODBC驱动程序) ● 连接到本地数据库local database % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{mySQL}; _ ServerServerName; _ Option16834; _ Databasemydb; oConn.Open strConn % ● 连接远程数据库remote databas % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{mySQL};Serverdb1.database.com;Port3306; _ Option131072;Stmt;Databasemydb;UidmyUsername;PwdmyPassword; oConn.Open strConn % 5) ODBC Driver for Oracle % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{Microsoft ODBC for Oracle}; _ ServerOracleServer.world; _ UidmyUsername; _ PwdmyPassword; oConn.Open strConn % 6) ODBC Driver for Paradox % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{Microsoft Paradox Driver (*.db)}; _ DriverID538; _ FilParadox 5.X; _ DefaultDirc:\dbpath\; _ Dbqc:\dbpath\; _ CollatingSequenceASCII; oConn.Open strConn % 7) ODBC Driver for SQL Server % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConnDriver{SQL Server}; _ ServerMyServerName; _ DatabasemyDatabaseName; _ UidmyUsername; _ PwdmyPassword; oConn.Open strConn % 8) ODBC Driver for Sybase (通过Sybase System 11 ODBC Driver驱动程序) % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn Driver{SYBASE SYSTEM 11}; _ SrvrmyServerName; _ UidmyUsername; _ PwdmyPassword; oConn.Open strConn % 9) ODBC Driver for Sybase SQL Anywhere % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn ODBC; DriverSybase SQL Anywhere 5.0; _ DefaultDirc:\dbpath\; _ Dbfc:\sqlany50\mydb.db; _ UidmyUsername; _ PwdmyPassword; Dsn; oConn.Open strConn % 10) ODBC Driver for Teradata % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn ProviderTeradata; _ DBCNameMyDbcName; _ DatabaseMyDatabaseName; _ UidmyUsername; _ PwdmyPassword; oConn.Open strConn % 11) ODBC Driver for Text % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn Driver{Microsoft Text Driver (*.txt; *.csv)}; _ Dbqc:\somepath\; _ Extensionsasc,csv,tab,txt; _ Persist Security InfoFalse oConn.Open strConn % 12) ODBC Driver for Visual FoxPro ●使用数据库容器database container连接方式 % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn Driver{Microsoft Visual FoxPro Driver}; _ SourceTypeDBC; _ SourceDBc:\somepath\mySourceDb.dbc; _ ExclusiveNo; oConn.Open strConn % ● 不使用数据库容器database container连接方式即Free Table Directory方式 % % Dim oConn,strConn Set oConnServer.CreateObject(“ADODB.Connection”) StrConn Driver{Microsoft Visual FoxPro Driver}; _ SourceTypeDBF; _ SourceDBc:\somepath\mySourceDbFolder; _ ExclusiveNo; oConn.Open strConn % (未完待续 转载于:https://www.cnblogs.com/tangsong/archive/2012/10/16/2725593.html
