网站查询系统如何连接Access数据库?

发布网友发布时间：2022-05-01 19:50

共1个回答

热心网友时间：2022-04-11 20:50

在ASP中的连接
<%
' DSN连接

Dim conn
set conn=Server.CreateObject("Adodb.Connection")
conn.open "DSN=DsnName" 'DsnName为已创建好的DSN名称
%>

<%
'通过ADO连接数据库

'无密码的连接
Set conn=Server.CreateObject("Adodb.Connection")
DBPath=Server.MapPath("data/data.mdb") '数据库文件的路径
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&DBPath

'有密码的连接
Set conn=Server.CreateObject("Adodb.Connection")
DBPath=Server.MapPath("data/data.mdb") '数据库文件的路径
conn.open "driver={Microsoft Access Driver(*.mdb)};PWD=minma;dbq="&DBPath&

'minma为数据库密码
%>

<%
'通过OLE DB连接数据库

'无密码的连接
Set conn=Server.CreateObject("Adodb.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/data.mdb")

'或
Set conn=Server.CreateObject("Adodb.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/data.mdb")&";User Id=admin;Password=" 'User ID为可选项,是指写访问数据库权限的用户名称

'有密码的连接

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

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/data.mdb")&";Jet OLEDB:Database Password=MYDBPASSWORD;","admin",""
%>

参考资料：http://www.zdoo.cn http://www.mywebsearch.cn