'mdicSqls As Scripting.Dictionary Filled With Your Sql Statements
'-----------------------------------------------------------------------------
'名称 ExecuteBatch
'描述 执行批量加入的SQL语句
'参数 无
'返回 Boolean
'异常 返回错误描述
'-----------------------------------------------------------------------------
Public Function ExecuteBatch()
ExecuteBatch = False
On Error Resume Next
mcnnDb.BeginTrans
Dim sqlItem
For Each sqlItem In mdicSqls.Items
mcnnDb.Execute (sqlItem)
Next
If Err.Number Then
mcnnDb.RollbackTrans
mstrLastError = Err.Description
mcnnDb.Errors.Clear
Err.Clear
Else
mcnnDb.CommitTrans
ExecuteBatch = True
End If