Question

VBscript ASP ACCESS数据库输出错误,啥原因？我想把整个数据表都输出来。

这是源码
<% Response.Write("<TR bgcolor=gray align=middle>")set star=Server.CreateObject("adodb.connection")star.open("information1")zd=star.Execute("select * from xiaofei")for I=0 to zd.Fields.count-1Response.Write("<TD><font><b>"+zd(I).name+"</b></font></TD>")nextResponse.Write("</TR>")zd.MoveFirst
while(not zd.Eof)row="<TR align=middle>"for I=0 to zd.Fields.count-1row=row+"<TD>"+zd(I)+"</TD>"nextResponse.Write(row+"</TR>")zd.MoveNextwend%>

Answer 1

试试将
zd=star.Execute("select * from xiaofei")
改为
set zd=star.Execute("select * from xiaofei")
看会不会还报这个错误.

追问

“fields”就没有报错了 但是又有了新的错误

中文字段也输出不来

追答

那是你源代码中的又一处错误,但是,从你上面贴出的代码,我看不到那个第38行.
中文乱码是编码问题造成的,一个一个解决吧.

追问

row=row+""+zd(I)+""
这是38行

追答

试试把
row=row+""+zd(I)+""
改成
row=row & "" & zd(I) & ""

追问

可以输出了 但是中文就会输出乱码 access里的中文是文本格式

 

追答

不知道你用的是什么浏览器,试试在浏览器里换一下编码.如果浏览器自动选择编码错误的话,这样就可以更正,如果是你代码和数据库中保存的文本编码不同的话,就需要特别处理一下了.

Answer 2

试下：
for I=0 to zd.Fields.count-1 改成
for I=0 to zd.recordset.recordcount-1