Code: Select all
FW_AdoConnectionString( "DSN=myDsn;Uid=myUsername;Pwd=myPassword;")
Code: Select all
FW_AdoConnectionString( "DSN=myDsn;Uid=myUsername;Pwd=myPassword;")
ANSI
Driver={PostgreSQL ANSI};Server=IP address;Port=5432;Database=myDataBase;
Uid=myUsername;Pwd=myPassword;
Code: Select all
TRY
oCon := CreateObject( "ADODB.Connection" )
oCon:ConnectionString := "DSN=Finca_Raiz_lan;Uid=postgres;Pwd=123456;"
oCon:Open()
CATCH oError
MsgAlert("Error en la conexión: " + oError:description )
END