ASP连接Access数据库

ASP连接Access数据库（无密码）

新建一个asp文件，然后加入：

<%
Response.Write("*************************"&"<br>")
Response.Write("ASP Connect Access"&"<br>")
Response.Write("*************************"&"<br>")

'示例：ASP连接Access数据库，无密码连接

DBPath=Server.MapPath("myData.mdb") '数据库存放路径
Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath  '连接字符串
Set conn = Server.CreateObject("ADODB.Connection") '新建一个连接
conn.open Strconn

Set rs=Server.CreateObject("ADODB.RecordSet") '新建一个查询
strSQL="SELECT * FROM TBL_USER"  '查询的SQL语句
rs.Open strSQL,conn,1,1  '执行查询
'Response.Write rs("UserName") '获取UserName字段的值
'**********
do while not rs.eof
%>
<table width="100%" border="1" >
<tr>
<td width="150"><%=rs("UserName")%></td>
<td width="150"><%=rs("PassWord")%></td>
<td width="150"><%=rs("INFO")%></td>
</tr>
</table>
<%
rs.movenext
loop

'**********
rs.close
set rs=nothing
conn.close
set conn=nothing

%> 

 

方法2:

'示例：ASP连接Access数据库，无密码连接

DBPath=Server.MapPath("DataBase/myData.mdb") '数据库存放路径
Strconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & DBPath  '连接字符串
Set conn = Server.CreateObject("ADODB.Connection") '新建一个连接
conn.open Strconn