Question

求ASP连接查询access和sqlserver的代码

求连接ACCESS并且返回db1.mdb中table1的所有记录的代码
和连接SQLSERVER并且返回database1中table2的所有记录的代码
多谢！

Answer 1

给你个输出所有记录的例子，具体语句如下，具体字段名及各种变量请自行按照你的数据库进行修改：

<%
'--------------连接Access数据库db1.mdb------------------
AccessDbUrl="/Db/" 'Access数据库地址
Set Conn=Server.CreateObject("ADODB.Connection")
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(AccessDbUrl)&"db1.mdb"
'----------------------------------------------------

Set rs=conn.Execute("SELECT * FROM table1") '返回数据表table1中的所有记录

'-------列出表中所有记录--------
Do While Not rs.Eof '当数据表连接不为空时执行循环
Response.Write(rs("字段名一")&" "rs("字段名二")) '输出当前记录的所有字段，中间用空格隔开，多个字段请自行添写
rs.Novenext '将指针移动到下一条记录
Loop '结束循环
'-------------------------------

'-------关闭数据表连接-------
rs.Close
Set rs=Nothing
'-----------------------------

'----------关闭数据库连接------
conn.Close
Set conn=Nothing
'------------------------------
%>
<%
'--------------连接SQL Server数据库database1------------------
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Description=sqldemo;SERVER=CDHC10;UID=SQL登陆用户;Password=SQL登陆密码;DATABASE=database1"
'----------------------------------------------------

Set rs=conn.Execute("SELECT * FROM table2") '返回数据表table2中的所有记录

'-------列出表中所有记录--------
Do While Not rs.Eof '当数据表连接不为空时执行循环
Response.Write(rs("字段名一")&" "rs("字段名二")) '输出当前记录的所有字段，中间用空格隔开，多个字段请自行添写
rs.Novenext '将指针移动到下一条记录
Loop '结束循环
'-------------------------------

'-------关闭数据表连接-------
rs.Close
Set rs=Nothing
'-----------------------------

'----------关闭数据库连接------
conn.Close
Set conn=Nothing
'-----------------------------
%>

Answer 2

< %
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\user.mdb")
//用来连接\db\目录下的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

% >
<% //连接Sqlserver 的
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={SQLServer};server=renwen.net;uid=username;
pwd=password;database=db"connopen
%>