I am using the version of b4a 5.80
My code
Sub Process_Globals
Dim mh1 As MysqlHandler
Dim rs1 As ResultSet
End Sub
Sub conectar
mh1.Initialize("50.62.161.40", "database", "usuario", "password")
If mh1.isConnected= False Then
Msgbox("Connection error", "Conexión")
ExitApplication
Return
Else
'Msgbox("Successful Connection", "Conexion")
Return
End If
End Sub
My code
Sub Process_Globals
Dim mh1 As MysqlHandler
Dim rs1 As ResultSet
End Sub
Sub conectar
mh1.Initialize("50.62.161.40", "database", "usuario", "password")
If mh1.isConnected= False Then
Msgbox("Connection error", "Conexión")
ExitApplication
Return
Else
'Msgbox("Successful Connection", "Conexion")
Return
End If
End Sub