ADODB.Field 错误 '800a0bcd',BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

[xaut0420]

..
Set folder=fs.GetFolder(secPaths)
for each file in folder.Files
if fileList1="" then
fileList1=file.Name
cmdtxt="select * from upload_table where new_filename='"&file.Name&"' and department='sczb'"
Set rs=Conn.Execute(cmdtxt,20,1)
filelist2=rs("old_filename").value..

ADODB.Field 错误 '800a0bcd',BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。报错行: filelist2=rs("old_filename").value
哪位见这样的 问题?解决一下.

[wanghui0380]

if not rs.eof then
filelist2=rs("old_filename").value
----
end if

[BlueDestiny]

判断一下是否有数据再操作

[邦迪代驾]

判断一个数据库是否到尾

[laifangsong]

if not rseof
filelist2=rs("old_filename").value..
end if

[laifangsong]

if not rs.eof then
filelist2=rs("old_filename").value..
end if