execute问题

Question

Set SNRec = DB_SerialNO.Execute("select * from tablename")
Dim InsertRecSql As String
 InsertRecSql = " insert into tablename values('aa')"
 DB_SerialNO.Execute InsertRecSql运行后出现查询值的数目与目标字段中的数目不同

Answer 1

如果不能,是否意味在用execute查询完表后不能再修改表中的数据库,例如插入或删除某一记录呢?

Answer 2

在中间加一个判断呀
Set SNRec = DB_SerialNO.Execute("select * from tablename")
if SNRec.RecordCount = ? then
    Dim InsertRecSql As String
    InsertRecSql = " insert into tablename values('aa')"
    DB_SerialNO.Execute InsertRecSql
else
    不插入记录
end if

Answer 3

如果你用的是Access, 一定要先  MoveLast 再 Count, 而且插入记录时会有延迟,如果插入之后要马上统计,最好先 Sleep 500---1000ms.

Answer 4

.Range("A" & iRow & ":A" & iRow).NumberFormat = "000000"