Inicio > Visual Fox Pro > Cadena de conexión VFP con PostGreSQL 8.4

Cadena de conexión VFP con PostGreSQL 8.4


  Cadena de conexión VFP con PostGreSQL 8.4 :

*** Datos de servidor
lcRutaServer=”192.168.0.144″
lcBaseDatos=”nomre de la DB”
lcUser=”postgres”
lcPasword=”Password del servidor PostGresSQL”

*** Cadena de conexi?2n
lcConC = “Provider=MSDASQL;Driver={PostgreSQL ANSI};SERVER=&lcRutaServer;DATABASE=&lcBaseDatos;UID=&lcUser;PWD=&lcPasword;”

miErrorTry = .F.
TRY
 *** Genera la conexión
 STORE SQLSTRINGCONNECT(lcConC,.T.) TO ConPostGresql
CATCH
 miErrorTry = .T.  
ENDTRY

*** Verifica si existe un error en la conexión
IF miErrorTry THEN  
    MESSAGEBOX(‘Ocurrio un error en la conexion a POSTGRESQL’)
 RETURN
ENDIF

*** Verifica si existe un error en la conexión
IF ConPostGresql <= 0
 lError=AERROR(Mi_Error)
    MESSAGEBOX(Mi_error(1,3),0+64)
    RETURN .F.
ENDIF

MESSAGEBOX(‘Conexión a Postgresql realizada’)

Categorías:Visual Fox Pro
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: