UC知道asp access ado odbc~~~
来源：百度知道 编辑：UC知道 时间：2024/05/15 11:38:18
ado
<%
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("fn/lz.mdb")
set rs=server.createobject("adodb.recordset")
sql="select top 6 title from art_file where type in(select id from art_type where art_type='理论园地') order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
^^^^^^^^
<%
rs.movenext
loop%>
提示错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
帮帮我!快疯了!
%>
<%
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("fn/lz.mdb")
set rs=server.createobject("adodb.recordset")
sql="select top 6 title from art_file where type in(select id from art_type where art_type='理论园地') order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
^^^^^^^^
<%
rs.movenext
loop%>
提示错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
帮帮我!快疯了!
%>
用这个连接字符串试试:
DBPath = Server.MapPath("fn/lz.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & DBpath
补充下伊人的答案：
dbname="fn/lz.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbfolder&dbname)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr