DateTime.SetTimeZone(0)
Private Sub btnTest_Click
pool.GetConnectionAsync("Con")
Wait For Con_ConnectionReady (success As Boolean, sql As SQL)
If success Then
Dim query As String = $"SELECT reset_period_start FROM loggers WHERE logger_unique_id=?"$
Dim SenderFilter As Object = sql.ExecQueryAsync("SQL", query, Array(1))
Wait For (SenderFilter) SQL_QueryComplete (success As Boolean, rs As ResultSet)
If success Then
Dim jrs As JavaObject = rs
Do While rs.NextRow
If rs.GetString("reset_period_start")<>Null Then
Dim strPerStart As String = DBHelper.GetUTCDateTimeColumn(jrs, 1) 'the number here is the column index (1 based) of the results
Log(strPerStart)
End If
Loop
rs.Close
End If
sql.Close
End If
End Sub
Public Sub GetUTCDateTimeColumn (jrs As JavaObject, colNum As Int) As String
Dim tz As JavaObject
tz.InitializeStatic("java.util.TimeZone")
Dim cal As JavaObject
cal.InitializeStatic("java.util.Calendar")
Dim tzUTC As JavaObject = tz.RunMethod("getTimeZone", Array ("UTC"))
Dim SQLTime As JavaObject = jrs.RunMethodJO("getTimestamp", Array(colNum, cal.RunMethod("getInstance", Array(tzUTC))))
If SQLTime.IsInitialized Then
Dim longLastBlockDT As Long=SQLTime.RunMethod("getTime", Null)
Log("getTime=" & longLastBlockDT)
DateTime.DateFormat="yyyy-MM-dd HH:mm:ss"
Return DateTime.Date(longLastBlockDT)
Else
Return Null
End If
End Sub