FoxPro/Visual FoxPro - UNA AYUDA URGENTEEE

 
Vista:

UNA AYUDA URGENTEEE

Publicado por ODBC (1 intervención) el 26/08/2004 21:54:47
Como creo un ODBC mediante codigo VFP, y como puedo consultar o ver los OBDC instalados en la PC mediante codigo VFP.
Gracias Foxeros.
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:UNA AYUDA URGENTEEE

Publicado por Roman Suazo (2723 intervenciones) el 27/08/2004 05:16:49
Como creo un ODBC mediante codigo VFP

Checa documentacion relacionad con la libreria SQLConfigDataSource, la informacion no la encontraras en la ayuda dle fox, una busqueda en google facilmente te daria ejemplos de como usarla

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:UNA AYUDA URGENTEEE

Publicado por Plinio (7841 intervenciones) el 27/08/2004 05:22:03
No creo que te interese crear un Driver ODBC!

Esto puede ayudarte:
http://www.fpress.com/revista/Num9807/Jul98.htm
http://www.cybercursos.net/cursos-online/foxpro/vfp_cs.htm
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:UNA AYUDA URGENTEEE

Publicado por Roman Suazo (2723 intervenciones) el 27/08/2004 05:22:15
como puedo consultar o ver los OBDC instalados en la PC mediante codigo VFP.

codigo por MAOH

clear
close all
LOCAL cBuffer, nBufsize, ii, ch, cName
nBufsize = 16384
cBuffer = Repli(Chr(0), nBufsize)

DECLARE INTEGER SQLGetInstalledDrivers IN odbccp32;
STRING @lpszBuf, INTEGER cbBufMax, INTEGER @pcbBufOut

IF SQLGetInstalledDrivers(@cBuffer, nBufsize, @nBufsize) = 0
RETURN
ENDIF

CREATE CURSOR csResult (drvname C(100))
cBuffer = SUBSTR(cBuffer,1,nBufsize)
cName = ""

FOR ii=1 TO nBufsize
ch = SUBSTR(cBuffer, ii,1)
IF ch = Chr(0)
INSERT INTO csResult VALUES (m.cName)
cName = ""
ELSE
cName = cName + ch
ENDIF
ENDFOR
GO TOP
BROWSE NORMAL NOWAIT


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:UNA AYUDA URGENTEEE

Publicado por ODBC (84 intervenciones) el 27/08/2004 22:05:46
Gracias a los colaboradores. Creo que encontre el codigo.

DECLARE Integer SQLConfigDataSource IN odbccp32.dll ;
Integer, Short, String @, String @

#DEFINE ODBC_ADD_DSN 1 && Add data source

lc_driver = "SQL Server" + CHR(0)

lc_dsn = "DSN=DemoSqlDsn" + CHR(0) ;
+ "Network=DBMSSOCN" + CHR(0) ;
+ "Address=OZ1" + CHR(0) ;
+ "SERVER=OZ1" + CHR(0) ;
+ "UID=sa" + CHR(0) ;
+ "PWD=" + CHR(0) ;

? SQLConfigDataSource(0, ODBC_ADD_DSN, @lc_driver, @lc_dsn)

* 1 = && Successfully Configured DSN
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