关于用ADO连接Access数据库(页 1) - ACCESS - 编程论坛

zhoukang_xa 发表于 2006-9-14 16:19

关于用ADO连接Access数据库

哪里能找到用ADO对象访问数据库的详细介绍，现在看到的东西都不实用！ 论坛里的达人们能不能整理个比较实用的教程啊，谢谢了！

勇者RX 发表于 2006-9-14 16:25

如果你真的想学的话,因该从最基本开始,买一本教材是必要的.每一个高手都是从看书开始的,希望你明白!

zhoukang_xa 发表于 2006-9-14 16:26

首先一个问题，用ADO连接数据库以后，怎么把某一条记录的某个属性赋值给一个变量，又怎么修改某一条记录的某个属性值！ 第二个问题，怎么删除某一条记录？

zhoukang_xa 发表于 2006-9-14 16:30

嘿嘿，手头有两本教材，一本是人民邮电的，另一本是清华的，人民邮电的根本没讲什么ADO，直接给了一堆例子，所以我现在会一些ADO的用法，但是不系统！ 清华的着重讲了一下DAO，ADO一笔代过，也是给了些例子！所以我对这些东西一点概念都没有！

勇者RX 发表于 2006-9-14 16:40

ADO连接ACCESS数据库是用connection内置对象实现的.具体是: <% set cn=server.createobject("adodb.connection") cn.open "driver={microsoft access driver(*.mdb)}; dbq="& server.mappath("你的数据库名.mdb") cn.execute("insert ,update,delete,select")(这些不用我多说,你都知道是什么意思,) (你想对数据库作出什么修改就在这里输入你要的代码) cn.close(记得把连接关闭) set cn=nothing %>

勇者RX 发表于 2006-9-14 16:43

如果你想修改记录,就应该用command对象,查询就用recordset对象!

zhoukang_xa 发表于 2006-9-15 09:04

谢谢勇者！

dayaowang 发表于 2006-9-20 09:53

------------------------------------------------------------------------------- 在网络编程过程中，ADO（Activex 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 oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="DSN=TestData_Resoure;" & _ 
　　　　　　　　　 "Uid=AdminAccount;" & _ 
　　　　　　　　　 "Pwd=PassWord;
oConn.Open strConn
%>
2）通过文件数据源(File DSN)的连接
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="FILEDSN=c:\somepath\mydb.dsn;" & _ 
　　　　　　　　　 "Uid=AdminAccount;" & _
　　　　　　　　　 "Pwd=PassWord;"
oConn.Open strConn
%>
3）通过连接池(DSN-Less)的连接(ODBC Driver for AS/400)
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
strConn= "Driver={Client Access ODBC Driver (32-bit)};" & _
　　　　　　　　　 "System=myAS400;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"
oConn.Open strConn
%>
二、利用数据库驱动程序直接访问数据库的连接字符串。
1） ODBC Driver for Access
● 标准的也是比较常用的连接方法
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn= "Driver={Microsoft Access Driver (*.mdb)};" & _ 
　　　　　　　　　 "Dbq=”&Server.MapPath(“Testdb.mdb”); & _
　　　　　　　　　 "Uid=AdminAccount;" & _
　　　　　　　　　 "Pwd=Password;"
oConn.Open strConn
%>
● 假如是一个工作组的系统数据库，那么连接字符串如下
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn= "Driver={Microsoft Access Driver (*.mdb)};" & _ 
　　　　　　　　　 "Dbq=c:\datapath\Testdb.mdb;" & _
　　　　　　　　　 "SystemDB=c:\datapath\Testdb.mdw;", _
　　　　　　　　　 "admin", ""
oConn.Open strConn
%>
● 假如数据库（MDB）是网络上共享的，那么连接字符串如下
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　　　　　 "Dbq=\\myServer\myShare\myPath\Testdb.mdb;"
oConn.Open strConn
%>
2) ODBC Driver for dBASE
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={Microsoft dBASE Driver (*.dbf)};" & _
　　　　"DriverID=277;" & _
　　"Dbq=c:\FilePath;"
oConn.Open strConn
%>
说明：这里要注意的一点就是，在SQL查询语句中要特别指定数据库文件名，例如：
oRs.Open "Select * From Testdb.dbf", oConn, , ,adCmdText
3) ODBC Driver for Excel
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={Microsoft Excel Driver (*.xls)};" & _
　　　　　　　　　 "DriverId=790;" & _
　　　　　　　　　 "Dbq=c:\filepath\myExecl.xls;" 
oConn.Open strConn
%>
4) ODBC Driver for MySQL (通过 MyODBC驱动程序)
● 连接到本地数据库（local database）
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={mySQL};" & _ 
　　"Server=ServerName;" & _
　　"Option=16834;" & _
　　　　　　 "Database=mydb;"
oConn.Open strConn
%>
● 连接远程数据库（remote databas）
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={mySQL};Server=db1.database.com;Port=3306;" & _
"Option=131072;Stmt=;Database=mydb;Uid=myUsername;Pwd=myPassword;"
oConn.Open strConn
%>
5) ODBC Driver for Oracle
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={Microsoft ODBC for Oracle};" & _
　　　　　　　　　 "Server=OracleServer.world;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"
oConn.Open strConn
%>
6) ODBC Driver for Paradox
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={Microsoft Paradox Driver (*.db)};" & _
　　　　　　　　　 "DriverID=538;" & _
　　　　　　　　　 "Fil=Paradox 5.X;" & _
　　　　　　　　　 "DefaultDir=c:\dbpath\;" & _
　　　　　　　　　 "Dbq=c:\dbpath\;" & _
　　　　　　　　　 "CollatingSequence=ASCII;"
oConn.Open strConn
%>
7) ODBC Driver for SQL Server
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn="Driver={SQL Server};" & _ 
　　　　　 "Server=MyServerName;" & _
　　　　　　　　 "Database=myDatabaseName;" & _
　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　 "Pwd=myPassword;"
oConn.Open strConn
%>
8) ODBC Driver for Sybase (通过Sybase System 11 ODBC Driver驱动程序)
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn= "Driver={SYBASE SYSTEM 11};" & _
　　　　　　　　　 "Srvr=myServerName;" & _
　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　 "Pwd=myPassword;"
oConn.Open strConn
%>
9) ODBC Driver for Sybase SQL Anywhere
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn= "ODBC; Driver=Sybase SQL Anywhere 5.0;" & _
　　　　　　　　　 "DefaultDir=c:\dbpath\;" & _
　　　　　　　　　 "Dbf=c:\sqlany50\mydb.db;" & _
　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　 "Pwd=myPassword;"
　　　　　　　　　 "Dsn="""";"
oConn.Open strConn
%>
10) ODBC Driver for Teradata
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn= "Provider=Teradata;" & _
　　　　　　　　　 "DBCName=MyDbcName;" & _ 
　　　　　　　　　 "Database=MyDatabaseName;" & _ 
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"
oConn.Open strConn
%>
11) ODBC Driver for Text
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn= "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
　　　　　　　　　 "Dbq=c:\somepath\;" & _
　　　　　　　　　 "Extensions=asc,csv,tab,txt;" & _
　　　　　　　　　 "Persist Security Info=False"
oConn.Open strConn
%>
12) ODBC Driver for Visual FoxPro
●使用数据库容器（database container）连接方式
<%
Dim oConn,strConn
Set oConn=Server.CreateObject(“ADODB.Connection”)
StrConn= "Driver={Microsoft Visual FoxPro Driver};" & _
　　　　　　　　　 "SourceType=DBC;" & _
　　　　　　　　　 "SourceDB=c:\somepath\mySourceDb.dbc;" & _
　　　　　　　　　 "Exclusive=No;"
oConn.Open strConn
%>
● 不使用数据库容器（database container）连接方式（即Free Table Directory方式）
 <%
 <%
 Dim oConn,strConn
 Set oConn=Server.CreateObject(“ADODB.Connection”)
 StrConn= "Driver={Microsoft Visual FoxPro Driver};" & _
　　　　　　　　　 "SourceType=DBF;" & _
　　　　　　　　　 "SourceDB=c:\somepath\mySourceDbFolder;" & _
　　　　　　　　　 "Exclusive=No;"
 oConn.Open strConn 
 %>

zhoukang_xa 发表于 2006-9-21 14:47

谢谢大家,我还没到这么深的地方,不过问题已经解决了!我已经实现了上面说的功能! 感谢!

hu9jj 发表于 2006-9-21 22:13

8楼提供的资料确实很好，我已经收下了，谢谢！

lsdm 发表于 2006-9-28 21:41

<DIV class=quote twffan="done">以下是引用hu9jj在2006-9-21 22:13:37的发言： 8楼提供的资料确实很好，我已经收下了，谢谢！</DIV>
确实不错，偶也收藏了。

页: [1]

编程论坛's Archiver

关于用ADO连接Access数据库