asp可以直接连接access数据库吗？不使用odbc数据源。

[net_morning]

asp可以直接连接access数据库吗？不使用odbc数据源。
如果必须配置odbc的话，要在服务器配置，太麻烦了，尤其是租赁空间的服务器。
大家有什么好办法吗？

[yangsm]

用ADO吗？

[lxqlogo0]

'asscess
dim con,res
set con=server.createobject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("st.mdb") & ";Persist Security Info=False"
set res=server.CreateObject ("adodb.recordset")
res.open "sql",con,1,3
'sqlserver
dim con,res
set con=server.createobject("ADODB.Connection")
con.Open "provider=sqloledb.1 ;user id=sa;password=111;datasource=;initial catalog=master"
set res=server.CreateObject ("adodb.recordset")

res.open "sql",con,1,3

[avonqin]

<%
Set Conn = Server.Createobject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+Server.MapPath("20030408.mdb")
Conn.Open DSNtemp '打开数据库
%>

[zhangfeng1133]

<%
Set Conn = Server.Createobject("ADODB.Connection") ''连接对象
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+Server.MapPath("20030408.mdb")
Conn.Open DSNtemp '打开数据库连接
set rs=server.creatobject("adodb.recordset")''记录集对象
sql="select * test"
rs.open sql,conn,1,1 ''''''''''''''''打开记录集
%>

[srj911]

<%
Set Conn = Server.Createobject("ADODB.Connection")
connstr="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+Server.MapPath("db1.mdb")
Conn.Open connstr '打开数据库
%>

[aBoris]

http://www.connectionstrings.com/
----------------------------------------
这里有您想要的！try it.thanks.

[zhang_luo]

这个是最基本的方法啦
楼上好的都差不多的
你多试几次就没问题的了
还有就是在打开的时候记得这句
rst.open sql,cnn,1,3
后面那两个数字控制
1，2
1，1
1，3
2，1
等等
控制类型不一样的，添加和只是查询可以不一样，然后可以相对提高查询速度
多试试就OK了

[blueice2002]

asp与sql server 数据库的连接
<%
'连接数据库————————————————————————————
set conn=server.createobject("adodb.connection")
Connstr="Provider=SQLOLEDB;Data Source=127.0.0.1;UID=sa;PWD=sa;DataBase=web"
'打开数据库——————————————————————————————————
conn.open connstr
'写数据查询语句————————————————————————
set rs=conn.execute("select * from asp where id>2")
'输出查询结果——————————————————————————
do until rs.eof
response.write rs("id")&"<br/>"
response.write rs("name")&"<br/>"
rs.movenext
loop
%>
************************************
asp与access 数据库的连接
********************************
<% dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("login.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
set rs=conn.execute("select * from login_info where id>1")
do until rs.eof
response.write rs("id")&"<br/>"
response.write rs("username")&"<br/>"
response.write rs("password")&"<br/>"
rs.Movenext
loop %>

*****************************************************
*****************************************************
<!--#include file="conn.asp"-->
<%
set rs=conn.execute("select * from login_info where id>2")
'set rs=server.createobject("adodb.recordset")
'sql="select * from login_info where id > ='1' "
'rs.open sql,conn,1,1
do until rs.eof
response.write rs("id")&"<br/>"
response.write rs("username")&"<br/>"
response.write rs("password")&"<br/>"
rs.Movenext
loop
%>

**********************************************************
***********************************************************





SELECT语法：(基本)



*************************************************************
**********************************************************
SELECT [DISTINCT]
(column [{, column } ] )| *
FROM table [ { , table} ]
[ORDER BY column [ASC] | [DESC
[{ , column [ASC] | [DESC } ] ]
WHERE predicate [ { logical-connector predicate } ];
------------------------------------------------------

INSERT语法：

INSERT INTO table
[(column { ,column})]
VALUES
(columnvalue [{,columnvalue}]);
------------------------------------------------------

UPDATE语法：

UPDATE table
SET column = value [{, column = value}]
[ WHERE predicate [ { logical-connector predicate}]];
------------------------------------------------------

DELETE语法：

DELETE FROM table
[WHERE predicate [ { logical-connector predicate} ] ];
------------------------------------------------------
blueice 2003整理 http://hshlin.8u8.com
*************************************************