Sub ListAnimals As ResumableSub
Wait For (Connect) Complete (Success As Boolean)
If Success Then
Log("conn suces")
Try
'Dim sf As Object = mysql.ExecQueryAsync("mysql", "Insert Into Sector (SecID, SecName) Values (?,?) ",Array(10,"New sectore") )
mysql.AddNonQueryToBatch("Insert Into Sector (SecID, SecName) Values (?,?) ",Array(10,"New sectore"))
Dim SenderFilter As Object = mysql.ExecNonQueryBatch("SQL")
Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
If Success = True Then
Log("Success")
Else
Log(LastException)
End If
Catch
Success = False
Log(LastException)
End Try
CloseConnection
End If
End Sub