有关记录集

Question

if not rs.eof then
rs.movelast
endif

Answer 1

dim cn as new adodb.connectionstring------------adodb.connection
dim cmd as new adodb.command
dim rs as adodb.recordset
cn.connectionstring="file name=c:\aaa.udl"
cn.open
set cmd.activeconnection=cn
cmd.commandtype=adtext  ,记不清了
cmd.commandtext="select * form st1"
set rs=cmd.execute
rs.movelast   -----------數据庫中沒有數据

Answer 2

在最后一行前面一个控制语句
if rs.BOF and rs.EOF then   exitsubelse
   rs.MoveLastend if