VB+SQLSERCER2000+事务管理

Question

是不是只要加上这2句话就可以了？ 
Connection.BeginTrans
和
Connection.CommitTrans 其他要不要做设置啊 比如数据库方面 我一直报错说没有活动事务！汗死！

Answer 1

Connection.Execute strsql加这个 

Answer 2

恩啊 我加了啊 !
Connection.BeginTrans 
connection.executs (sql1) 
Connection.CommitTrans
是不是这样啊

Answer 3

这是我写的！不知道那里错了？ 你能不能写个示例代码给我参考一下么？
'工程引用 Mircsoft ActiveX Data Object 2.8 Library
dim  cn as Connection
Dim str As String
set cn = new ADODB.Connection 
str="Provider=SQLOLEDB.1;Persist Security Info = False;User ID =sa; Initial Catalog=test;Data Source=127.0.01"
cn.open str
dim sql as string 
sql= "insert into text (name,phone) values ('tom','123')"
cn.BeginTrans 
cn.executs (sql) 
cn.CommitTrans 
cn.close

Answer 4

private sub command1_click()
'设置错误陷井
on error goto ErrHandle
    '开始事务
     conn.begintrans
    conn.execute "insert into tablename() values(...)"
    conn.execute "update tablename set ... where ..."
    conn.execute "delete from tablename where ..."
    '提交事务
     conn.committrans
    exit sub
'错误处理
ErrHandle:
    '出错，则回滚事务
     conn.rollbacktrans
    msgbox "操作失败，错误原因为：" & err.description,48,"提示"
    exit sub
end sub 

Answer 5

Public Function Mod_Write_OriginalInfo(OriginalDate As String, OriginalWell_AutoNO As String, OriginalData As String) As Boolean
    On Error GoTo ErrAA
    Dim i As Long
    
    gobjDBCnnt.BeginTrans
    For i = 0 To Len(OriginalData) \ 100
        gobjDBCnnt.Execute "insert into OriginalInfo(Original_OrderID,Original_Date,Original_Well_AutoNO,Original_Data)values('" & _
                            (i + 1) & "', '" & OriginalDate & "','" & OriginalWell_AutoNO & "','" & _
                            Replace(Mid(OriginalData, i * 100 + 1, 100), "'", "‘") & "')"
    Next
    gobjDBCnnt.CommitTrans
    
    Mod_Write_OriginalInfo = True
    
    Exit Function
ErrAA:
    Mod_Write_OriginalInfo = False
    gobjDBCnnt.RollbackTrans
    '写入错误消息
    Mod_Write_ErrMessage Err.Description, "ModWriteDataBase:Mod_Write_OriginalInfo"
End Function