RE:Conexion SQL SERVER 2005
Mira no necesitas mas que unas cuantas lineas, como estas, Además lo que parece que te falta es que el usuario que usas esté autorizado dentro de la seguridad de la base de datos, por lo que sospecho la seguridad es de confianza en el usuario de Windows.
Logeate en la PC con el mismo usuario, si esto no funciona prueba esto
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)
Espero que te sirva el ejemplo.