db.InitializeAsync("MySQL","com.mysql.jdbc.Driver", "jdbc:mysql://url/dbname?characterEncoding=utf8","user","pw")
Wait For MySQL_Ready (Success As Boolean)
If Success Then
Log($"MySQL_Ready(${Success})"$)
End If
Dim qry As String = $"Select img_id,DATE_FORMAT(img_createdon, '%e %b %Y') AS date_formatted FROM beka_attachments LIMIT 0,1;"$
Dim RS As ResultSet = db.ExecQuery2(qry, Array As String())
If RS.IsInitialized Then
If RS.NextRow Then
'belegid = RS.GetString("order_id")
Log($"imgID: ${RS.GetString("img_id")}"$)
Log($"imgTime: ${RS.GetString("date_formatted")}"$)
RS.Close
End If
End If