Sub Connect
Pool.Initialize("com.mysql.jdbc.Driver", _
$"jdbc:mysql://${MySQLHost}:${MySQLPort}/${MySQLDB}?characterEncoding=utf8"$, MySQLUSR, MySQLPW)
Pool.GetConnectionAsync("IsConnected")
End Sub
Private Sub IsConnected_ConnectionReady (Success As Boolean, SQL As SQL)
If Success Then
log("Connected")
Else
Log("Not Connected")
End If
SQL.Close
End Sub