UC知道出现没有定义数据源
来源：百度知道 编辑：UC知道 时间：2024/06/14 05:25:58
<%
set con=server.createobject("ADODB.connection")
con.open"provider=microsoft.jet.oledb.4.0;data source=文件路径"
%>
<html>
<body>
显示DB数据库中通讯录所以列表名;
<hr>
<UL>
<%
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft Access Driver (*.mdb)};dbq=c:\Inetpub\wwwroot\bat\db.mdb"
conn.open
set rs=conn.execute("select * from 通讯录")
for I=0 to rs.fileds.count-1
%>
<% =rs(i).name%>
</UL>
<% next
conn.close%>
</body></html>
set con=server.createobject("ADODB.connection")
con.open"provider=microsoft.jet.oledb.4.0;data source=文件路径"
%>
<html>
<body>
显示DB数据库中通讯录所以列表名;
<hr>
<UL>
<%
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft Access Driver (*.mdb)};dbq=c:\Inetpub\wwwroot\bat\db.mdb"
conn.open
set rs=conn.execute("select * from 通讯录")
for I=0 to rs.fileds.count-1
%>
<% =rs(i).name%>
</UL>
<% next
conn.close%>
</body></html>
你的fields写错了"l"和"e"换一下,我给改成下面的了,数据库地址用相对路径!程序已调试通过!~~
<%
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "db.mdb"
On Error Resume Next
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
End If
sub CloseConn()
conn.close
set conn=nothing
end sub
set rs=conn.execute("select * from 通讯录")
for i=0 to rs.fields.count-1
Response.Write "<li>"&rs(i).name
Next
%>