asp怎么连接access数据库

asp连接access数据库的方法：

1、设置数据库连接方式：

set dbconnection=Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

SET uplist=dbconnection.EXECUTE(SQL)

2、设置连接数据库

DBPath = Server.MapPath("customer.mdb")

set session("rs")=Server.CreateObject("ADODB.Recordset")

' rs=Server.CreateObject("ADODB.Recordset")

connstr="provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

session("rs").Open sql,connstr,1,3

3、建立odbc数据源

set conn=server.createobject("Adodb.connection")

conn.open "DSN=xxxUID=PWD=Database=customer

4、附上一个经常用的sqlserver与access通用的连接数据库代码：

<%

Const DataBaseType=1

If DataBaseType=0 then

DBPath="/jb51/news.asp"

SqlNowString = "Now()"

ystr=true

nstr=false

suiji="rnd(id)"

Else

'如果是SQL数据库，请认真修改好以下数据库选项

DataServer = "wwwjb51net" '数据库服务器IP

DataUser = "jb51net" '访问数据库用户名

DataBaseName = "jb51net" '数据库名称

DataBasePsw = "密码" '访问数据库密码

SqlNowString = "getdate()"

ystr=1

nstr=0

suiji="newid()"

End if

On Error Resume Next

If DataBaseType = 1 Then

ConnStr="driver={SQL Server}server="&dataserver&"UID="&datauser&"PWD="&databasepsw&"Database="&databasename

Else

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath(DBPath)

End If

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnStr

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

第一行程序：利用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。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。

方法如下：

1、首先新建一个access数据库。access的版本建议是2003年版本的，没有access可以自行下载安装。数据库的名字我们就叫db1.mdb，新建数据库表明为table_1，在表1中新建name等几个字段，并相应插入字段值。

2、用FTP工具在虚拟服务器中新建一个mytest文件夹，将该数据库上传到mytest文件夹中。

3、在mytest文件夹下，新建一个test.asp文件，该文件的内容如下：

<%

set conn=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath = Server.MapPath("db1.mdb")

conn.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath

sql="select * from table_1 order by id asc"

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

do while not rs.eof

response.write(rs("name"))

rs.movenext

loop

conn.close

set rs=nothing

set conn=nothing

%>

4、然后在地址栏输入域名\mytest\test.asp，显示结果如下图。查询到的是“name"字段的值。

---