dim rs as ADODB.RecordSet dim cmd as new ADODB.Commandcmd.ActiveConnection=已定义的连接 cmd.CommandText="SQL语句"Set rs=cmd.Execute rs.MoveLast '在这里就会报错 还有一个问题很郁闷:只有当到达最后一条记录时,rs.RecordCount才会返回正常值,否则就一直是-1,而我movelast时又报错,所以得到这个RecordCount时也不得不“曲线”求得,参考WangPengAn老师的建议,晚上回家试一下...
dim cmd as new ADODB.Commandcmd.ActiveConnection=已定义的连接
cmd.CommandText="SQL语句"Set rs=cmd.Execute
rs.MoveLast '在这里就会报错
还有一个问题很郁闷:只有当到达最后一条记录时,rs.RecordCount才会返回正常值,否则就一直是-1,而我movelast时又报错,所以得到这个RecordCount时也不得不“曲线”求得,参考WangPengAn老师的建议,晚上回家试一下...
set rst=mcnn.excute(sql)
rs.CursorLocation =adUseClient