Inicio > Visual Fox Pro > Crear una conexión con sql y vfp (mediante un archivo xml)

Crear una conexión con sql y vfp (mediante un archivo xml)


En este ejemplo mostrare como generar un archivo xml en base a un cursor de VFP , luego se leerá este y crearemos una cadena de conexión para conectarnos con sql server.

*** Crear el archivo de configuracion del sistema
CREATE CURSOR ConfigSys (server c(20),basedatos c(20),usuario c(20),clave c(20))
SELECT ConfigSys
APPEND BLANK
Replace configsys.server WITH ‘Tuservidor’
Replace configsys.basedatos WITH ‘Tubasededatos’
Replace configsys.usuario WITH ‘Tusuario’
Replace configsys.clave WITH ‘Tupassword’
CURSORTOXML(“ConfigSys”, “ConfigSys.xml”, 1, 512, 0, “1”)

*** Crear la cadena de conexión en base al archivo xml creado anteriormente
If File(‘configsys.xml’)
     Xmltocursor(‘configsys.xml’,’configsys’,512)
     lcserver = Alltrim(server)
     lcbasedatos = Alltrim(basedatos)
     lcusuario = ‘UID=’+Alltrim(usuario) + “;”
     lcclave = ‘PWD=’+Alltrim(clave) + “;”
     lcTrusted_Connection = “Trusted_Connection=yes;” &&”Trusted_Connection=No;”
     USE IN (SELECT(‘configsys’))
ELSE
      MESSAGEBOX(“No existe archivo de configuracion.”, 16, “Error”)
     QUIT
ENDIF

PUBLIC m.cCadenaConexion
m.cCadenaConexion = “Driver={SQL Native Client};Server=” + lcserver + “; ” + “Database=” + lcbasedatos + “; “+lcTrusted_Connection

*** Procedimiento que devuelve un numero de conexion para ser utilizado en las consultas
PROCEDURE HandlerConexion
PUBLIC m.nHandlerConexion
LOCAL m.nTotalConexiones
m.nTotalConexiones = ASQLHANDLES(cnConecxiones)
IF m.nTotalConexiones > 0 THEN
     m.nHandlerConexion = cnConecxiones(1)
ELSE
     m.nHandlerConexion = SQLSTRINGCONNECT(m.cCadenaConexion)
     IF m.nHandlerConexion <= 0 THEN
          MESSAGEBOX(“No se ha podido conectar a la Base de Datos.”, 16, “Error”)
          m.nHandlerConexion = -1
     ENDIF
ENDIF
RETURN m.nHandlerConexion
ENDPROC

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: