提示为何解?
juio 2000-07-20 04:01:00 运行.asp提示:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'Execute'
是缺少东西?
源码如下:
set aa=server.CreateObject("adodb.connection")
aa.Open "dsn=tltalk1;uid=sa;pwd=;database=tl"
set aa=server.Createobject("ADODB.recordset")
commandtext="select * from tltalk1"
set tt=aa.Execute(commandtext,recordsaffected,adcmdtext)
Response.Write"<table border=3>"
Response.Write"<tr>"
for i=0 to tt.fields.count-1
Response.Write "<td>"& ucase(tt(i).name) &"<td>"
next
Response.Write "<tr>"
while not rs.eof
Response.Write "<tr>"
for i=0 to tt.fields.count-1
Response.Write "<td>" & tt(i).value & "</td>"
next
tt.movenext
Response.Write "</tr>"
wend
Response.Write "</table>"