Re: [pgsql-es-ayuda] Ayuda con cadena de conexion ODBC windows XP SP 3 desde VFP a POSTGRESQL 8.4

Mon, 07 Dec 2009 05:42:49 -0800 

Hola yo programa también en VFP 9, analiza este ejemplo, sobre todo la
cadena de conexión y me cuentas por favor:

lcServidor          = 'localhost'
lcPuerto            = '5432'
lcBaseDatos      = 'prueba'
usu                   = 'postgres'
pass                 = '1234'

lcStr                  = 'DRIVER={PostgreSQL Ansi};SERVER=' + lcServidor +;
              ';port=' + lcPuerto + ';DATABASE=' + ALLTRIM(lcBaseDatos) +;
              ';UID=' + usu +;
              ';PWD='+ pass +';'

gnConnHandle_temp= SQLSTRINGCONNECT(lcStr,.T.)


if gnConnHandle_temp = -1
    AERROR(arrayerror)

    if arrayerror(4)='28000' then
        MESSAGEBOX('Usuario o contraseña incorrectos',16,':: Error en la
conexión ::')
    endif
    else
        WAIT WINDOW "Conexion exitosa"
        =SQLSETPROP(gnConnHandle_temp,'Transactions',1)

        sqlexec(gnConnHandle_temp,"INSERT INTO ventas
(cli_rut,ven_moto)VALUES (' 18855997', 221379)")


        IF SQLCOMMIT(gnConnHandle_temp)>0
            MESSAGEBOX("Datos Actualizados",0+42,"Mensaje de Dialogo")
            ELSE
                IF AERROR(laError)>0
                    MESSAGEBOX("Se ha producido un error"+laError[2])
                endif
        endif
        = SQLDISCONNECT(gnConnHandle_temp)
endif



  Patricio Castro Benavides

Responder a