vb6.0 判断insert语句是否成功插入到数据库

Question

    Dim conn As New ADODB.Connection
    '定义记录集
    'Dim rs As New ADODB.Recordset
    Dim SqlStr As String
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "insert into tbl_feedback(a,b,c) values('a','b','c')"
    conn.execute SqlStr请问这如何判断是否插入到数据库。

Answer 1

插入后再查询是听麻烦，而且效率低。
其实一般的执行插入操作后如果出错的话都会有错误提示的，只要你不用on error resume next全部忽略就行了。加上错误捕获，例如on error goto err1，在err1处增加错误捕获，借助err.number来处理，不过只要错误号不是0就是插入失败了。