请教,忘记给分了

[oaxiazai]

ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/stafpersoninf.asp，行 135

当没有记录的时候要显示为“请选择要查询的员工”或者默认显示某个人的纪录改怎么改

<%
'读出姓名、部门、职位
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select name,userdept,userlevel from userinf where username=" & sqlstr(username)
rs.open sql,conn,1
name=rs("name")
userdept=rs("userdept")
userlevel=rs("userlevel")
'打开数据库，读出个人档案
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from personinf where username=" & sqlstr(username)
rs.open sql,conn,1
dim a(33)
if not rs.eof and not rs.bof then
for i=1 to 33
a(i)=rs("a" & i)
next
inputdate=rs("inputdate")
updatedate=rs("updatedate")
havephoto=rs("havephoto")
id=rs("id")
else
for i=1 to 33
a(i)=""
next
inputdate=""
updatedate=""
havephoto="no"
end if
%>

[jinjazz]

用while 和eof配合，不要用 for i=1 to 33

[qwegis]

我觉得VBscript的数组下标应该是从0开始的吧 你那里的循环应该是for 0 to 32

[hookee]

<%
'读出姓名、部门、职位
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select name,userdept,userlevel from userinf where username='" & sqlstr(username) & "'"
rs.cursorLocation = 3
rs.open sql,conn,1,1
If Not (rs.eof and rs.bof) then
  name=rs("name")
  userdept=rs("userdept")
  userlevel=rs("userlevel")
else
  rs.close
  conn.close
  response.write "没有记录"
  response.end
end if
'打开数据库，读出个人档案
set rs=server.createobject("adodb.recordset")
sql="select * from personinf where username='" & sqlstr(username) & "'"
rs.cursorLocation = 3
rs.open sql,conn,1,1
dim a(33)
if not (rs.eof and rs.bof) then
  for i=1 to 33
     a(i)=rs("a" & i)
  next
  inputdate=rs("inputdate")
  updatedate=rs("updatedate")
  havephoto=rs("havephoto")
  id=rs("id")
else
  for i=1 to 33
    a(i)=""
  next
  inputdate=""
  updatedate=""
  havephoto="no"
end if
rs.close
conn.close
%>

[睿睿爸爸]

和数据应该没关系，我理解，她建了个表，表里有33个字段，从a1到a33

[toury]

sql="select name,userdept,userlevel from userinf where username=" & sqlstr(username)
rs.open sql,conn,1,1
if rs.eof then
response.write"查无此人"
rs.close
set rs=nothing
response.end
end if
....

[jinjazz]

[Quote=引用 4 楼 bloomdeng 的回复:]
和数据应该没关系，我理解，她建了个表，表里有33个字段，从a1到a33
[/Quote]
...
哦，我理解错了

[hello晨光]

请加上
If Not Rs.Eof Then

End IF


--------------------
www.33996.cn

[浪尖赏花]

应该是查询的数据为空了，在循环前加上为空的判断吧

[wzywzx]

[Quote=引用 3 楼 hookee 的回复:]
VBScript code<%'读出姓名、部门、职位set conn=opendb("oabusy","conn","accessdsn")set rs=server.createobject("adodb.recordset")
sql="select name,userdept,userlevel from userinf where username='"& sqlstr(username)¡­
[/Quote]
安3楼的就提示[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'username=''lfz''' 中。