Sub GetNumberOfChanges() As Long
Dim strSQL As String
Dim lRows As String
strSQL = "SELECT changes()"
lRows = SQL1.ExecQuerySingleResult(strSQL)
Return lRows
End Sub
SQL1.BeginTransaction
Try
'block of statements like:
For i = 1 to 1000
SQL1.ExecNonQuery("INSERT INTO table1 VALUES(...)
Next
SQL1.TransactionSuccessful
Catch
Log(LastException.Message) 'no changes will be made
End Try
SQL1.EndTransaction