'************************************************************************* '**函 数 名: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
Gcnn.Execute strSQL, RecordsAffected If RecordsAffected >0 Then MsgBox "成功" End If
'**函 数 名: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
MsgBox "成功"
End If