Question

Asp如何连接Access2010数据库

源代码：
<%
set conn=server.createobject("adodb.connection")
conn.open "Provide=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("xhnew.accdb")
%>

运行后错误：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

/conn.asp，行 3

驱动已经装了，网上查了很久不知道什么原因

Answer 1

应该是这样的：
<%
Dim connstr
connstr="provider=microsoft.ACE.oledb.12.0;data source=" & server.MapPath("bb.accdb")
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
%>
如果不懂再找我帮你。

追问

谢谢!已经可以运行了
connstr="provider=microsoft.ACE.oledb.12.0;data source=" & server.MapPath("bb.accdb")

能请教下上面语句是什么意思么？

追答

这句话的意思就是连接数据库，bb.accdb是数据库的名字，明白不？？

Answer 2

asp连接access数据库的方法：
1、设置数据库连接方式：
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data 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.0;data 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=xxx;UID=;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.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
%>