FoxPro/Visual FoxPro - Acceso a datos ODBC

 
Vista:

Acceso a datos ODBC

Publicado por luis (8 intervenciones) el 15/04/2008 00:03:05
Saludos! estoy haciendo una aplicacion en VFP 9 con una base de datos SQL SERVER 2000 y lo que quiero hacer es que el programa reconozca los datos de conexion indicados en Panel Control/Herramientas Administrativas/Origenes de Datos hasta ahora tengo lo siguiente:

FUNCTION conectarSQL()
PARAMETERS pserver,pusuario,pclave,pdata

lcStringCnxLocal1 = "DRIVER={SQL Server};" + ;
"SERVER="+pserver+";" + ;
"UID="+pusuario+";" + ;
"PWD="+pclave+";" + ;
"DATABASE="+pdata+";"

SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal1)
RETURN lnHandle
ENDFUNC

Los datos pserver,pusuario,pclave,pdata los deberia sacar del registro ODBC alguien sabe como? gracias
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:Acceso a datos ODBC

Publicado por jose camilo (805 intervenciones) el 15/04/2008 05:27:28
Con relacion al usuario Utiliza SA (SISTEM ADMINISTRATOR) es un usuario k por defecto viene en Sql
lo mejor es usar una cadena de caracteres hecha por ti

Mira esto
es un ejemplo esta para SQL server 2005 expres (es gratis y te sirve para 5 terminales)
el ejemplo esta para un select pero funciona para insert,delete,update

Trabajo="Driver=SQL Server;";
+ "Server=127.0.0.1;";
+ "DATABASE=tubasedatos;";
+ "UID=sa;";
+ "PWD=tuclave;"

STRTrabajo = SQLSTRINGCONNECT(Trabajo)
If STRTrabajo <= 0
MessageBox('Error al Conectar a la Base de Datos de Trabajo',16,'JJ-System')
RETURN
EndIf
If SQLEXEC(STRTrabajo,"SELECT * FROM Cuenta") <= 0
MessageBox('Error al Conectar a la Base de Datos de Trabajo',16,'JJ-System')
Return
EndIf
BROWSE
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

RE:Acceso a datos ODBC

Publicado por Plinio (7841 intervenciones) el 15/04/2008 13:08:53
Luis, has probado trabajar con vistas remotas?
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