Sub ConnectDatabase
' MySQL Connection Attempt
Try
'SQLCon.Initialize2("com.mysql.jdbc.Driver", "jdbc:mysql://" & dbMySQL.dbhost & ":" & dbMySQL.dbport & "/" & dbMySQL.dbname & "?characterEncoding=utf8",dbMySQL.dbusername,dbMySQL.dbpassword)
SQLCon.InitializeAsync("SQLCon" ,"com.mysql.jdbc.Driver", "jdbc:mysql://" & dbMySQL.dbhost & ":" & dbMySQL.dbport & "/" & dbMySQL.dbname & "?characterEncoding=utf8",dbMySQL.dbusername,dbMySQL.dbpassword)
Catch
' handle Error, like
Log("ERROR: " & LastException.Message)
End Try
End Sub
Sub SQLCon_Ready(Success As Boolean)
If Success Then
Log ("OK")
Else
Log("KO")
End If
End Sub
Sub DisconnectDatabase
Try
SQLCon.Close
Catch
Log("ERROR: " & LastException.Message)
End Try
End Sub