FoxPro/Visual FoxPro - Crear DNS para SQL 2005, en VFP8

   
Vista:

Crear DNS para SQL 2005, en VFP8

Publicado por Christian Guevara (3 intervenciones) el 24/07/2009 17:45:24
TENGO UNA APLICACION EN VFP8 Y DESEOS CREAR UN DNS PARA MS SQL 2005, PERO ME SALE ERROR PODRIAN AYUDARME.
<br>
<br>#define ODBC_ADD_DSN 1 && Agregar Fuente de Datos
<br>#define ODBC_CONFIG_DSN 2 && Configurar (editar) fuente de datos
<br>#define ODBC_REMOVE_DSN 3 && Eliminar fuente de datos
<br>#define ODBC_ADD_SYS_DSN 4 && Agregar un DSN de Sistema
<br>#define ODBC_CONFIG_SYS_DSN 5 && Configurar un DSN de Sistema
<br>#define ODBC_REMOVE_SYS_DSN 6 && Eliminar un DSN de Sistema
<br>
<br>SET STEP ON
<br>
<br>=MyODBCMsSQL()
<br>
<br>FUNCTION MyODBCMsSQL
<br> DECLARE Integer SQLConfigDataSource in odbccp32.dll;
<br> Integer, Integer, String, String
<br> #DEFINE ODBC_ADD_DSN 1
<br> hwndParent = 0
<br> fRequest = ODBC_ADD_DSN
<br>* lpszDriver = "SQL Native Client"
<br> lpszDriver = "SQL Server"
<br>
<br> lpszAttributes = "DSN=ConexionVFPMsSQL" + CHR(0) + ;
<br> "DESCRIPTION=SQL_Server_ODBC_Driver" + CHR(0) + ;
<br> "DATABASE=dbcontrol"+ CHR(0) + ;
<br> "SERVER=DEVELOPSQLEXPRESS" + CHR(0) + ;
<br> "UID=sa" + CHR(0) + ;
<br> "Pwd=sql" + CHR(0) + ;
<br> "Trusted_Connection=False"
<br>
<br> LOCAL lRet
<br> lRet = SQLConfigDataSource(hwndParent, fRequest,;
<br> lpszDriver, lpszAttributes)
<br>
<br> IF lRet > 0 THEN
<br> *?"DSN creado!!"
<br> ELSE
<br> MESSAGEBOX("Error al crear")
<br> *?"Error al crear"
<br> ENDIF
<br>RETURN
<br>
<br>FUNCTION MyODBCMySQL
<br> DECLARE Integer SQLConfigDataSource in odbccp32.dll;
<br> Integer, Integer, String, String
<br> #DEFINE ODBC_ADD_DSN 1
<br> hwndParent = 0
<br> fRequest = ODBC_ADD_DSN
<br> lpszDriver = "MySQL ODBC 3.51 Driver"
<br>
<br> lpszAttributes = "DSN=ConexionVFPMySQL" + CHR(0) +;
<br> "Description=Conexión con MySQL usando ODBC" + CHR(0) +;
<br> "DATABASE=dbcontrol" + CHR(0) +;
<br> "SERVER=" + CHR(0) +;
<br> "UID=" + CHR(0) +;
<br> "PWD="
<br>
<br> LOCAL lRet
<br> lRet = SQLConfigDataSource(hwndParent, fRequest,;
<br> lpszDriver, lpszAttributes)
<br>
<br> IF lRet > 0 THEN
<br> *?"DSN creado!!"
<br> ELSE
<br> MESSAGEBOX("Error al crear")
<br> *?"Error al crear"
<br> ENDIF
<br>return
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:Crear DNS para SQL 2005, en VFP8

Publicado por Juan286 (179 intervenciones) el 24/07/2009 18:07:04
La verdad tiene k decirnos mas o menos k error es para no estar buscando en todos el codigo para facilir y agilizar la respesta por k todos t van a decir k el error es este.
<br>
<br>IF lRet > 0 THEN
<br>*?"DSN creado!!"
<br>ELSE
<br>MESSAGEBOX("Error al crear")
<br>*?"Error al crear"
<br>ENDIF
<br>return
<br>
<br>y no creo k sea ese verdad
<br>IF lRet > 0 THEN
<br>*?"DSN creado!!"
<br>ELSE
<br>MESSAGEBOX("Error al crear")
<br>*?"Error al crear"
<br>ENDIF
<br>return
<br>
<br>Solo eso
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:Crear DNS para SQL 2005, en VFP8

Publicado por Christian Guevara (3 intervenciones) el 24/07/2009 18:33:22
Bueno lo que pasa es que no puede crear un DNS para MS SQL 2005.

hice la prueba con crear un DNS para MySQL y si me respondio:
ejemplo.
#define ODBC_ADD_DSN 1 && Agregar Fuente de Datos
#define ODBC_CONFIG_DSN 2 && Configurar (editar) fuente de datos
#define ODBC_REMOVE_DSN 3 && Eliminar fuente de datos
#define ODBC_ADD_SYS_DSN 4 && Agregar un DSN de Sistema
#define ODBC_CONFIG_SYS_DSN 5 && Configurar un DSN de Sistema
#define ODBC_REMOVE_SYS_DSN 6 && Eliminar un DSN de Sistema

=MyODBCMySQL()
FUNCTION MyODBCMySQL
DECLARE Integer SQLConfigDataSource in odbccp32.dll;
Integer, Integer, String, String
#DEFINE ODBC_ADD_DSN 1
hwndParent = 0
fRequest = ODBC_ADD_DSN
lpszDriver = "MySQL ODBC 3.51 Driver"

lpszAttributes = "DSN=ConexionVFPMySQL" + CHR(0) +;
"Description=Conexión con MySQL usando ODBC" + CHR(0) +;
"DATABASE=dbcontrol" + CHR(0) +;
"SERVER=" + CHR(0) +;
"UID=" + CHR(0) +;
"PWD="

LOCAL lRet
lRet = SQLConfigDataSource(hwndParent, fRequest,;
lpszDriver, lpszAttributes)

IF lRet > 0 THEN
*?"DSN creado!!"
ELSE
MESSAGEBOX("Error al crear")
*?"Error al crear"
ENDIF
return

PERO CUANDO QUIERO HACER UN DNS PARA SQL 2005, NO LO PUEDO CREAR, NO ME SALE NINGUN ERROR A LA VISTA SOLO QUE LA RESPUESTA lRet ME ARROJA "0".

=MyODBCMsSQL()
FUNCTION MyODBCMsSQL
DECLARE Integer SQLConfigDataSource in odbccp32.dll;
Integer, Integer, String, String
#DEFINE ODBC_ADD_DSN 1
hwndParent = 0
fRequest = ODBC_ADD_DSN
* lpszDriver = "SQL Native Client"
lpszDriver = "SQL Server"

lpszAttributes = "DSN=ConexionVFPMsSQL" + CHR(0) + ;
"DESCRIPTION=SQL_Server_ODBC_Driver" + CHR(0) + ;
"DATABASE=dbcontrol"+ CHR(0) + ;
"SERVER=DEVELOPSQLEXPRESS" + CHR(0) + ;
"UID=sa" + CHR(0) + ;
"Pwd=sql" + CHR(0) + ;
"Trusted_Connection=False"

LOCAL lRet
lRet = SQLConfigDataSource(hwndParent, fRequest,;
lpszDriver, lpszAttributes)

IF lRet > 0 THEN
*?"DSN creado!!"
ELSE
MESSAGEBOX("Error al crear")
*?"Error al crear"
ENDIF
RETURN
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:Crear DNS para SQL 2005, en VFP8

Publicado por jose camilo (688 intervenciones) el 26/07/2009 03:12:12
yo lo hago asi
Caden="Driver=SQL Server;";
+ "Server=&SERVIDOR;";
+ "ATTACHDBFILENAME=&RutSBasedato.MDF;";
+ "UID=&USuario;";
+ "PWD=&Clave;"

y me funciona
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:Crear DNS para SQL 2005, en VFP8

Publicado por Christian (3 intervenciones) el 30/07/2009 20:03:00
NO me sale podrias pasar como el procedimiento para crear la DNS... te lño agradesco de antemano.
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