ADODB.Field 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”
<%
Dim Recordset_ZhaGong_PiZhuen
Dim Recordset_ZhaGong_PiZhuen_cmd
Dim Recordset_ZhaGong_PiZhuen_numRows
Set Recordset_ZhaGong_PiZhuen_cmd = Server.CreateObject ("ADODB.Command")
Recordset_ZhaGong_PiZhuen_cmd.ActiveConnection = MM_TianShen_STRING
Recordset_ZhaGong_PiZhuen_cmd.CommandText = "select * FROM ZhaGongGongShi WHERE id1 is not null "
Recordset_ZhaGong_PiZhuen_cmd.Prepared = true
Set Recordset_ZhaGong_PiZhuen = Recordset_ZhaGong_PiZhuen_cmd.Execute
Recordset_ZhaGong_PiZhuen_numRows = 0
%>
上述SQL命令,如果记录行数>=1,则ASP页面,正常浏览.
上述SQL命令,如果记录行数=0,则ASP页面,则提示出错毕业论文 .
当运行到如下命令时: <td><%=(Recordset_ZhaGong_PiZhuen.Fields.Item
("danjuhao").Value)%></td>
出错信息为:
ADODB.Field 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
问一下:如果遇到没有记录的情况,应该怎么处理呢?
由于是初学,望各位老师,指点的时候,详尽些.
<% Dim Recordset_ZhaGong_PiZhuen Dim Recordset_ZhaGong_PiZhuen_cmd Dim Recordset_ZhaGong_PiZhuen_numRows Set Recordset_ZhaGong_PiZhuen_cmd = Server.CreateObject ("ADODB.Command") Recordset_ZhaGong_PiZhuen_cmd.ActiveConnection = MM_TianShen_STRING Recordset_ZhaGong_PiZhuen_cmd.CommandText = "select * FROM ZhaGongGongShi WHERE id1 is not null " Recordset_ZhaGong_PiZhuen_cmd.Prepared = true Set Recordset_ZhaGong_PiZhuen = Recordset_ZhaGong_PiZhuen_cmd.Execute Recordset_ZhaGong_PiZhuen_numRows = 0 if Recordset_ZhaGong_PiZhuen.eof or Recordset_ZhaGong_PiZhuen.bof then response.write "没有记录" else '....读数据。。 %> <td><%=(Recordset_ZhaGong_PiZhuen.Fields.Item ("danjuhao").Value)%></td> <% end if %>