2010-03-03 47 views

回答

7

检查Err对象

cmd.CommandText = "insert into MyTable values(blah, blah, blah)" 
cmd.CommandType = adCmdText 
On Error Resume Next 
Set rs = cmd.Execute() 
If Err.number<>0 or objConnection.Errors.Count <> 0 Then 
    'Do something to handle the error 
End If 
On Error Goto 0 

也可以看看这个链接了在15Seconds

+0

另请参阅https://support.microsoft.com/zh-cn/kb/167957 – feetwet 2016-08-27 20:37:52

3

如果你不想检查错误,您可以:

cmd.CommandText = "insert into MyTable values(blah, blah, blah) SELECT @@Rowcount" 
cmd.CommandType = adCmdText 

Set rs = cmd.Execute() 
RecordsAffected = rs(0) 

在同样的waw,如果你有一个标识栏,你可以使用

cmd.CommandText = "insert into MyTable values(blah, blah, blah) SELECT @@Identity" 
cmd.CommandType = adCmdText 

Set rs = cmd.Execute() 
NewID = rs(0)