在VB中  我执行了update 语句以后不知道是否执行成功了如果不成功的我想把它写入日志中去?请问怎么判断啊我的语句 strSQL为update语句
rs.Open strSQL, strconn, adOpenKeyset, adLockBatchOptimistic

解决方案 »

  1.   

    '*************************************************************************
    '**函 数 名:exsql
    '**输    入: -
    '**输    出:(Boolean) -执行是否成功
    '**功能描述:执行sql语句
    '**全局变量:
    '**调用模块:
    '**作    者:影子
    '**日    期:2005-03-17 11:01:11
    '**修 改 人:
    '**日    期:
    '**版    本:V1.0.0
    '*************************************************************************
    Public Function exsql(ParamArray sql()) As Boolean    '事务执行1个sql语句
        Dim cnConn As ADODB.Connection
        Set cnConn = New ADODB.Connection
        Dim Mysql
        On Error GoTo err1
        cn="连接字符串"
        cnConn.Open CN
        cnConn.BeginTrans '开始一个事务    For Each Mysql In sql
            cnConn.Execute Mysql
        Next
        cnConn.CommitTrans '提交一个事物    Set cnConn = Nothing
        exsql = TrueExit Functionerr1:
        cnConn.RollbackTrans '回滚一个事物
        exsql = False
    End Function
      

  2.   

    Gcnn.Execute strSQL, RecordsAffected        If RecordsAffected >0 Then
               MsgBox "成功"
            End If