Hello
I'm using MySQL-Library to connect to mysql and I can not connect. How can I know the error it gives?
this is the code used
Label_Status.Text ="Conenectando a la base de datos"
db.Initialize("MySQLC",Main.cDbIP,Main.cDbUserName,Main.cDbPassword,Main.cDataBase,True,False)
db.EnableReconnect
db.check_connection
db.ReconnectTime = 1
str_sqlc = "select Telefono_Destino,Mensaje from sms_out"
db.QueryASync(str_sqlc,"")
db.CloseDatabase
Sub MySQLC_QueryResult(data As List, meta As Map)
' Msgbox(meta,"")
If meta = Null Then
Msgbox("rrrrr","")
' sweet.Initialize("OErrorImportar")
' sweet.AlertType = sweet.TypeError
' sweet.showCancelButton(False).showContentText(True).withConfirmText("Ok").withContentText("Error al importar Mensajes").withTitleText("A T E N C I O N").show
Else
datossql = data
For i=0 To datossql.Size-1
Dim dataset As Map = datossql.Get(i)
For o = 0 To dataset.Size -1
'dataset.GetValueAt(o) & "','"
Msgbox(dataset.GetValueAt(o),"")
Next
Next
End If
End Sub
Thanks in advance
I'm using MySQL-Library to connect to mysql and I can not connect. How can I know the error it gives?
this is the code used
Label_Status.Text ="Conenectando a la base de datos"
db.Initialize("MySQLC",Main.cDbIP,Main.cDbUserName,Main.cDbPassword,Main.cDataBase,True,False)
db.EnableReconnect
db.check_connection
db.ReconnectTime = 1
str_sqlc = "select Telefono_Destino,Mensaje from sms_out"
db.QueryASync(str_sqlc,"")
db.CloseDatabase
Sub MySQLC_QueryResult(data As List, meta As Map)
' Msgbox(meta,"")
If meta = Null Then
Msgbox("rrrrr","")
' sweet.Initialize("OErrorImportar")
' sweet.AlertType = sweet.TypeError
' sweet.showCancelButton(False).showContentText(True).withConfirmText("Ok").withContentText("Error al importar Mensajes").withTitleText("A T E N C I O N").show
Else
datossql = data
For i=0 To datossql.Size-1
Dim dataset As Map = datossql.Get(i)
For o = 0 To dataset.Size -1
'dataset.GetValueAt(o) & "','"
Msgbox(dataset.GetValueAt(o),"")
Next
Next
End If
End Sub
Thanks in advance