Conexiones

edward_ejbm
26 de Agosto del 2004
Hola un saludo a toda la gente que le gusta la programacion fox
Mi consulta como realizar la conexion al SQL Server no se si alguien tiene informacion o alguna pagina web que tenga documentacion sobre este tema SQL Server con Visual Fox Pro
Gracias por la ayuda

foxleonardo
26 de Agosto del 2004
Hola
La forma mas rápida y fácil es atravéz del ODBC de Windows, creas un dsn apuntando a la BD de SQL, y en fox haces las conexiones aqui hay un ejemplo:

ahh, revisa VFP 8, esta muy orientado a SQL sobre todo con el CursorAdapter, eso si, debes olvidarte del entorno de datos del VFP al trabajar con SQL, puedes usar vistas remotas, pero, VFP se trae la totalidad de los registros de una tabla para crear un cursor...lo malo, el tiempo.. se demora mucho y ademas crea un cursor en la maquina del cliente, eso te deja fuera de linea.... mejor es trabajar con querys directos en el servidor sql.

Atte.
foxleonardo
www.empresadae.cl

Ejemplo:
Lcdsn = "BD"
Lclogin = "login"
Lcpass = "password"
lnconexion = SQLCONNECT(lcdsn,lclogin,lcpass)
*****hasta aqui la conexión*****
lcresultado='doccliente'
lcstring="SELECT tbl_doccliente.docli_idcliente, tbl_doccliente.docli_iddocumento, tbl_doccliente.docli_patente, tbl_doccliente.docli_estado, "+;
" tbl_documento.doc_descripcion, tbl_documento.doc_obligatorio, tbl_documento.doc_dependencia, tbl_documento.doc_iddocumento "+;
" FROM tbl_doccliente INNER JOIN "+;
" tbl_documento ON tbl_doccliente.docli_iddocumento = tbl_documento.doc_iddocumento "+;
" WHERE (tbl_doccliente.docli_patente = ?vehiculos.veh_patente)"

if lnconexion > 0
nval = SQLEXEC(lnconexion, lcstring, lccursor)
if nval=-1
messagebox([Ha ocurrido un error en la consulta],48,[Aviso])
endif
else
messagebox([No se ha creado la conexión...],28,[Error])
return .F.
endif