FoxPro/Visual FoxPro - ayuda con conexiones

hola amigos foxeros

soy nuevo con esto de trabajar con sql server 2000 o 2005
deseo saber esto de las conexiones cual es la mejor forma de hacerlo con ODBC o las propias sentencias de SQL SERVER, Y CADA VEZ Q' DESEO LEER UNA TABLA DE LA BASES DE DATOS TENGO Q' REALIZAR LA CONEXION

ALGUN MANUAL DONDE SE PUEDA EXTRAER EJEMPLOS DE CONEXIONES CON SQL SERVER 2000 O 2005 AMIGOS


MIL GRACIAS POR SU AYUDA

Joel Calla

ejemplo de conexiones, tomado por cierto de este mismo foro o utiliza google pone cadena de conexion o conexio vfp sql server este es un ejemplo.

Si tienes seguridad propia de la base de datos, así

nHandle = Sqlstringconnect("Driver={SQL Server}"+;
";Server=Server " + ;
";Database=NombreData" + ;
"User=miusuario" +;
"Password=Clave"

Si usas confianza por usuario de Windows, así :

nHandle = Sqlstringconnect("Driver={SQL Server}"+;
";Server=Server " + ;
";Database=NombreData"

Con esto ya tienes una conexion
Luego puedes preparar tu consulta, así:

lcCliente_no = '0101000055'

*-* Llenamos una variable con la consulta que necesitemos.
cSql = ''
TEXT TO lcSql NOSHOW
SELECT *
FROM Clientes
WHERE Cliente_No = ?lcCliente_no
ENDTEXT

*-* Al ejecutar nuestra consulta, nos devuelve un cursor.

If !(SQLEXEC(lnHandle, lcSql, "Cur_Tmp", aInfo) > 0)
= AERROR(laError)
lcError = "Error: en instruccion SQL" + CHR(13)+ laError(2)
Messagebox(lcError + CHR(13)+ lcSql,0+16,"Advertencia")

=SQLDISCONNECT(lnHandle)
RETURN .T.
ENDIF

*-* Nos desconectamos de la base de datos, por rendimiento debemos hacerlo.
=SQLDISCONNECT(lnHandle)

saludes