josuefema
17 de Diciembre del 2003

Hola amigos mi nombre es Josué, y agradeceria mucho si alguien me podria enviar ejemplos pequeños sobre como enlazar V.Foxpro com el SQL. bueno recien estoy viendo esta parte.
Gracias

Luis Asca?
17 de Diciembre del 2003

Si claro, lo primero que tienes que hacer es configurar un ODBC(nombre del ODBC, descripción, servidor, usuario,contraseña y la base de datos) en el panel de control (herramientas administrativas) de tu sistema.

Acto seguido, podras realizar la conección con el siguiente código:

Note Realizamos la conección
liHandle = SQLCONNECT('Mi_ODBC_SQLServer','usuario','contraseña')
liResult = SQLEXEC(liHandle, "exec sp_setapprole 'usuario', 'contraseña'")
IF liResult < 0
*/ si logramos la conección, procedemos hacer la consulta
SQLEXEC(liHandle, 'select * from tabla')
brow noed
*/ Si deseas traer una copia de tu consulta lo puedes conseguir así...copy to tabla
ELSE
messagebox("Error en la conección,Conección")
ENDIF

SQLDISCONNECT(liHandle)
wait wind "Conección lograda" nowait
close all
return

No olvidar que Mi_ODBC_SQLServer es el nombre que que creaste en tu ODBC

Saludos.