怎么判断插入成功

Question

我写了一段程序
    While i < 10000
        sSql = "insert into autoid (sno) values (" & i & ")"
        PCN.Execute sSql
        i = i + 1
    Wend
原想着循环着插入一万条记录。
最后发现数据库中存的记录是乱的。
我想应该是第一条还没插进去，就直接插了后面的记录。
我怎么判断数据有没有插成功？数据库里面的内容是乱的。

Answer 1

dim lngAffected as long 
While i < 10000
    i = i + 1
    sSql = "insert into autoid (sno) values (" & i & ")"
    PCN.Execute sSql,lngAffected
    if lngAffected=0 then debug.? i  '插入不成功，输出i值
Wend

Answer 2

判断插入是否成功，只要你的INSERT语句没有报错，那就肯定是插入成功的。dim i as integer
While i < 10000这样，I是从0开始的。
插入到数据库里的第一个数是0，二自增字段的第一个数是1,所以你autoid  和 sno 差1。 

Answer 3

objConn.Execute sSql,lngAffected
if lngAffected=0 then msgbox "failed"

Answer 4

while 和wend 之间加一个doEvents 试试