Sub insertrows
Log("Init Insertion : " & DateTime.Time(DateTime.Now))
Dim sql1 As SQL = pool.GetConnection
sql1.BeginTransaction
Try
'For i = 1 To 100
sql1.ExecNonQuery2("INSERT INTO users(name,email,pass) VALUES(?,?,?)",Array As Object("Example","mail@domain.com","XdX3162"))
'Log(i)
'Next
sql1.TransactionSuccessful
Catch
Log(LastException.Message)
sql1.RollBack 'no changes will be made
End Try
Log("End Insertion : " & DateTime.Time(DateTime.Now))
sql1.Close
End Sub