Fiz um programinha de teste:
PROCEDURE Main
LOCAL oCN := ConexaoSQL(1)
setmode(41,70)
cls
IF ! AbreConexao( oCN )
?"Não conectou"
inkey(11)
QUIT
ENDIF
?"Conectou"
inkey(11)
oCN:Close()
RETURN
FUNCTION AbreConexao( oCN )
BEGIN SEQUENCE WITH __BreakBlock()
oCN:Open()
ENDSEQUENCE
RETURN oCN:State != 0
FUNCTION ConexaoSQL( nProvedor )
LOCAL cnConnection, cServer, cDatabase, cUser, cPassword, nPort := 3306
hb_Default( @nProvedor, 1 )
DO CASE
CASE nProvedor == 1
cServer :="127.0.0.1"
cDatabase :="inacio"
cUser :="inacio"
cPassword :="*******"
CASE nProvedor == 2
ENDCASE
cnConnection := win_OleCreateObject( "ADODB.Connection" )
cnConnection:ConnectionString := ;
MariaDB_StringConexao() + ";" + ;
"Server=" + cServer + ";" + ;
"Port=" + Ltrim( Str( nPort ) ) + ";" + ;
"Database=" + cDatabase + ";" + ;
"User=" + cUser + ";" + ;
"Password=" + cPassword + ";" + ;
"Collation=latin1;" + ;
"AUTO_RECONNECT=1;"
cnConnection:CursorLocation := 3 // AD_USE_CLIENT
cnConnection:CommandTimeOut := 300 // seconds
cnConnection:ConnectionTimeOut := 300 // seconds
RETURN cnConnection
FUNCTION Mariadb_StringConexao()
LOCAL cTxt := ""
cTxt += "Driver={MariaDB ODBC 3.1.6}"
RETURN cTxt
Só dá "não conectou".
Pelo Heidisql a conexão funciona sem problema, tanto no localhost quanto no provedor.
Estou achando que o problema pode ser o conector, mas não sei como resolver o problema.
Alguém pode me ajudar?