FoxPro/Visual FoxPro - Visual Fox con tablas de SQL

 
Vista:

Visual Fox con tablas de SQL

Publicado por José Luis López (4 intervenciones) el 29/04/2003 19:03:43
Estoy haciendo un programa en VFP que se conecte anuestro servidor de sql
Cree una coneccion ODBC , para poder comunicarmecon el servidor
Quiero jalar cierta info del servidor de Sql (Con querys) para guardarlos en variables y jugar despues con esos valores.
Mi problema es que no se como avisarle mediate codigo al servidor (abrir la comunucacion y cerrarla ) para obtner ciertos batches del las tablas del servidor.
Alguien me puede ayudar???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Visual Fox con tablas de SQL

Publicado por Oggy (8 intervenciones) el 01/05/2003 04:35:08
La forma en que tendrias que hacer esto es de la siguiente forma:

Utilizar la instruccion SQLCONNECT( 'Origen de datos', ' usuario', ' password' )

por ejemplo h= SQLCONNECT( 'DATOS', 'sa', 'sa')
esta linea te permitira conectarte via ODBC a la base de datos,
'DATOS' vendria a ser el controlador ODBC que has agregado y lo demas el usuario y el password, h es un manejador de conexion... si h vale 1 despues de ejecutar la instrucccion la conexion es correcta

Luego puedes utilizar sentencias SQL para acceder y extraer informacion de las tablas mediante esta forma

SQLEXEC(h, 'SELECT * FROM CUSTOMERS ', 'XCURSOR')
en esta instruccion estamos diciendo lo siguiente:
Ejecuta la instruccion SELECT y envia los resultados a el cursor XCURSOR (tabla temporal), h es el manejador de la instruccion SQLCONNECT tienes que hacerlo de esa forma

Para finalizar la conexion usar SQLDISCONNECT(h)

A continuacion te incluyo un pequeño codigo donde se utiliza esto:

** gcOdbc, gcUser y gcPassWord son variables que contienen la
** informacion adecuada
h = SQLCONNECT(gcOdbc, gcUser, gcPassWord)
IF h < 1
RETURN .F. ** Error de conexion**
ENDIF

SQLEXEC (h, 'SELECT * FROM CJGDKAR ', 'XCURSOR')
SELECT * FROM XCURSOR INTO TABLE pcFilKar

SQLDISCONNECT(h)

Ojalas te sea de utilidad ... si kieres mas ayuda quizas pueda ayudarte solo escribeme...


Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar