Sub Query_CallableResult(data As List, meta As Map)
End Sub
Sub Query_Status(Connected As Boolean, ReConnecting As Boolean, RetriesLeft As Int)
Log("Connected = " & Connected)
Log("ReConnecting = " & ReConnecting)
Log("RetriesLeft = " & RetriesLeft)
End Sub
Sub Query_ExecResult(meta As Map)
Log(meta)
End Sub
Sub Query_BatchResult(batch As Map)
Log("MySQL_BatchResult()")
Log("Time: "&batch.Get("ms")&"ms")
Log("Size: "&batch.Get("size"))
Dim res As List = batch.Get("results")
Log("Results: "&res.Size)
For i=0 To res.Size-1
Log(i&"="&res.Get(i))
Next
' (MyMap) {ms=316, size=10, results=(ArrayList) [1, 1, 1, 1, 1, 1]}
Log(batch)
End Sub
Sub Query_QueryResult2(data As List, meta As Map)
'Dim m As Map = meta
Log("MySQL_QueryResult2(Columns "&meta.get("ColumnCount") _
&", Records "&meta.Get("RecordCount")&","&meta.Get("ms")&"ms)")
Log("Records: "&data.Size)
For i=0 To data.Size-1
Log(data.Get(i))
Next
End Sub
Sub Query_QueryResult(data As List, meta As Map)
Dim m As Map = meta
'MySQL_QueryResult2((MyMap) {ColumnCount=3, RecordCount=5, ms=32})
Log("MySQL_QueryResult(Columns "&m.get("ColumnCount")&", Records " _
&m.Get("RecordCount")&","&m.Get("ms")&"ms,"&m.Get("TaskID"))
End Sub
Sub Query_ListTables(tables As List, ms As Long)
Log("MySQL_ListTables("&ms&"ms)")
For i=0 To tables.Size-1
'Log("Table "&tables.Get(i))
Next
End Sub