Question

连接Access数据库常用方法有哪些?

不要复制别别人的给我。.我需要的就是这个小小的问题..
能说出．． 有多少种常用连接方法吗？
不用写那么多代码？ 就比如说．用xxxx链接数据库 或者第2种xxx连接数据库 就可以了。

Answer 1

在基于微软IIS/PWS的网络平台上，通过服务器端运行的ASP程序来访问后台数据库，是一种最常见的模式了。而对于小型的数据库应用需求，微软的Access数据库，应该是与ASP程序配套使用的首选。由于Access数据库的ODBC驱动程序支持的SQL指令全，执行效率高，所以Access后台数据库+ASP服务器端程序+客户端IE浏览器，是一个精练实用高效的组合模式。

在这种使用模式中，ASP程序无疑是最重要的，是沟通客户端和后台数据库之间的桥梁。在ASP程序中，通过VB Script，建立对Access数据库的连接，是客户能够访问后台数据库的前提。

一、建立Access数据库连接的常用方法

在ASP中建立对Access数据库连接的一般格式如下：

<%
DbPath=Server.MapPath(数据库名)
Set Conn=Server.CreatObject(“ADODB.Connection”)
Conn.Open “driver={Microsoft Access Driver (*.mdb)};dbq=”& DbPath
Set rs=Server.CreatObject(“ADODB.Recordset”)
Rs.Open 数据表名或SQL指令,Connection对象，Recordset类型，锁定类型
… …
%>

它的各步骤及参数意义如下：

第一行程序：利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中。这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。例如数据库是Test.mdb，则该行程序成为：DbPath=Server.MapPath(“Test.mdb”)。

第二行程序：建立一个ADO对象集中的Connection对象，也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后，Conn成为一个连接对象。

第三行程序：利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库，所以要指定ODBC驱动程序参数，表示要透过Access的ODBC驱动程序来访问数据库：driver={Microsoft Access Driver (*.mdb)};。另一个参数dbq= & DbPath，运算后等效于dbq=Server.MapPath(数据库名) ,是利用了第一行的Server.MapPath(数据库名)函数，用来指定要打开的数据库文件。到这里，就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”，则打开Access数据库Test.mdb。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。

第四行程序：建立一个ADO对象集中的Recordset对象，以便利用Recordset对象操作数据库（当然，这只是对数据库操作的多种方式之一）。执行这行后，rs就成为一个Recordset对象。

第五行程序：利用rs对象的Open方法打开数据库中的数据表。这其中有四个参数，其意义如下：

数据表名或SQL指令串：在这个参数里指定要打开的数据库内的数据表名称，或者是用SQL的Select指令串确定的数据表的指定范围数据，例如，数据库Test.mdb中有数据表Number，则该参数成为“Number”，注意引号不能丢；若想打开数据表Number中xh字段值小于90的数据记录，则该参数可能成为如下的形式：

“Select * From Number Where xh < 90”。

Connection对象：指定已经打开的数据库的Connection对象，在这里固定是Conn，注意无须引号的。

Recordset类型：表示打开数据表的方式，有四种选择。数字0表示只读方式，且当前记录只能下移；数字1表示可读写方式，当前记录可自由上下移动，但不能及时看到别的用户建立的新记录，除非重新启动；数字2表示可读写方式，当前记录可自由移动，而且可以及时看到别的用户增加的新记录；数字3表示只读方式，但当前记录可以自由移动。一般选择2为好，除非为了禁止数据被修改。

锁定类型：这个参数指定数据库的锁定功能。因为网络上的数据库都是多用户的，很可能同时有多个用户在操作数据库。为了避免错误，让同一时间只可能有一个用户修改数据，就要用锁定功能。有四种选择：数字1表示只读方式锁定，用户不能更改数据；数字2表示悲观锁定，当一个用户用rs对象开始修改数据时就锁定数据库，直到用户用rs.Update更新记录后，才解除锁定；数字3表示乐观锁定，只有在数据写入数据库中时候才锁定，不保险，慎用！数字4表示批次乐观锁定，只有在使用rs.UpdateBatch成批更新数据时候才锁定数据记录。属于很少使用的。一般地，使用悲观锁定比较安全，但是效率要低些。

二、使用Recordset对象操作数据

用上面的方法打开数据库，是利用了Recordset对象建立的数据库连接，然后的对数据操作，也要使用该对象。

用rs.open “数据表名”，Conn，2，2 方式打开数据表，就可以方便的对数据进行操作：

常见的操作对象：

rs.addnew :添加一个新记录在数据表末尾。

rs.delete :删除当前记录。

rs.eof :判断是否已过最后记录。

rs.bof :判断是否移过首记录。

rs.update :数据修改生效。

rs(“字段名”)：当前记录指定字段的值。

从数据表中提取数据：用x=rs(“字段名”)的格式，提取数据表中当前记录指定字段的值。

向数据表中填入或修改数据：用rs(“字段名”)=数据值或变量的方式，修改当前记录指定字段的值。

三、使用SQL指令操作数据库

在使用SQL指令对数据库进行操作时，要用如下方式打开数据库和操作：

<%
DbPath=Server.MapPath(数据库名)
Set Conn=Server.CreatObject(“ADODB.Connection”)
Conn.Open “driver={Microsoft Access Driver (*.mdb)};dbq=”& DbPath
Sql=操作数据库的指令串
Conn.Execute sql
… …
%>

四、使用DSN连接数据库

在以上连接数据库的方式中，都是在程序中指定数据库，指定ODBC驱动程序。如果数据源有变化，就需要修改程序。如果在系统级别上，预先定义好数据源DSN，就可以避免这个麻烦。

在定义DSN的过程中，就已经指定好了数据源需要的ODBC驱动程序，也指定好了数据库文件的实际路径和名字，我们在程序中，只需要引用预先定义的数据源名DSN即可。

设定义好的DSN为test，则打开数据库的方式为：

五、结束语

在ASP程序中，建立数据库的连接和访问数据库，有很多方式和技术细节，在此难以一一详述。实际上，对SQL Server数据库，DBF数据库，文本文件，电子表格文件等，也都可以很方便的打开和访问，与对Access数据库的访问大同小异而已。如果说方便，Access应该是首选。如果考虑安全保密性，SQL数据库更好些。使用系统数据源DSN的方式建立对数据库的连接，具有更大的灵活性，也更简便些。

Answer 2

方法如下：
第一种连接和记录集分开声明
<%
db="db/darden.mdb"
set conn=server.createobject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & "")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ebook order by id desc"
rs.open sql,conn,3,3
rs.addnew
......
......
rs.update (rs.delete)
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<center><a href=viewdatabase.asp>显示文字</a></center>")
Response.Redirect "homepage.asp"
%>
第二种连接和记录集一同声明
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ebook order by id desc"
conn = "DBQ=" + server.mappath("book.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
rs.open sql,conn,3,3
rs.addnew
......
......
rs.update (rs.delete)
rs.close
set rs=nothing
response.write("<center><a href=viewdatabase.asp>显示文字</a></center>")
%>
ASP数据库简单*作教程
<1>.数据库连接(用来单独编制连接文件conn.asp)
<%
Set conn = Server.CreateObject(ADODB.Connection)
conn.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= & Server.MapPath(\bbs\db1\user.mdb)
%>
(用来连接bbs\db1\目录下的user.mdb数据库)
<2>显示数据库记录
原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof
如果是从尾到头：用循环并判断指针是否到开始 使用：not rs.bof
<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
<%
set rs=server.CreateObject(adodb.recordset) (建立recordset对象)
sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.movefirst ---->(将指针移到第一条记录)
while not rs.eof ---->(判断指针是否到末尾)
response.write(rs(name)) ---->(显示数据表message中的name字段)
rs.movenext ---->(将指针移动到下一条记录)
wend ---->(循环结束)
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
%>
其中response对象是服务器向客户端浏览器发送的信息
<3>增加数据库记录
增加数据库记录用到rs.addnew,rs.update两个函数
<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
<%
set rs=server.CreateObject(adodb.recordset) (建立recordset对象)
sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.addnew 新增加一条记录
rs(name)=xx 将xx的值传给name字段
rs.update 刷新数据库
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
%>
<4>删除一条记录
删除数据库记录主要用到rs.delete,rs.update
<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
<%
dim name
name=xx
set rs=server.CreateObject(adodb.recordset) (建立recordset对象)
sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
-------------------------------------------------------
while not rs.eof
if rs.(name)=name then
rs.delete
rs.update 查询数据表中的name字段的值是否等于变量name的值xx，如果符合就执行删除，
else 否则继续查询,直到指针到末尾为止
rs.movenext
emd if
wend
------------------------------------------------------
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
-------------------------------------------------------
%>
<5>关于数据库的查询
(a) 查询字段为字符型
<%
dim user,pass,qq,mail,message
user=request.Form(user)
pass=request.Form(pass)
qq=request.Form(qq)
mail=request.Form(mail)
message=request.Form(message)
if trim(user)&x=x or trim(pass)&x=x then (检测user值和pass值是否为空，可以检测到空格)
response.write(注册信息不能为空)
else
set rs=server.CreateObject(adodb.recordset)
sqlstr=select * from user where user='&user&' (查询user数据表中的user字段其中user字段为字符型)
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
rs(user)=user
rs(pass)=pass
rs(qq)=qq
rs(mail)=mail
rs(message)=message
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write(注册成功)
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write(注册重名)
%>
(b)查询字段为数字型
<%
dim num
num=request.Form(num)
set rs=server.CreateObject(adodb.recordset)
sqlstr=select * from message where id=&num (查询message数据表中id字段的值是否与num相等，其中id为数字型)
rs.open sqlstr,conn,1,3
if not rs.eof then
rs.delete
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write(删除成功)
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write(删除失败)
%>

Answer 3

非常简单，一般是做一个conn.asp文件，像这样：

<%
dim Conn,dbpath
Set conn=server.createobject("adodb.connection")
Dbpath=server.mappath("xxx.mdb")
Conn.open "provider=Microsoft.JET.OLEDB.4.0;data source=" &Dbpath
%>

然后再其他页面，用<!-- #include file="conn.asp" -->来调用。

调用后在要显示的地方读取数据库的内容，像这样

<%
sql="select * from xxx order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>

说明一下，这是我自己开发的ASP网站系统里的部分程序。

Answer 4

<%
set conn=server.createobject("adodb.connection")
connstr="provider =microsoft.jet.oledb.4.0;data source=" & server.mappath("data.mdb")
conn.open connstr
%>