Hola a todos.
El otro dia bajé del sitio de Patrick ( fivewin.info creo ) una clase para crear ODBC desde la aplicacion ( TDSN ), necesitaba hacerlo para una base en ACCESS, pero desafortunadamente no funcionó.
Existe una clase mejorada para hacer esta tarea, o se debe hace de otra forma.
De antemano agradezco su ayuda.
Saludos
//-----------------------------------------------------------
FUNCTION ConectarAccess()
LOCAL nRet,cDriver,cAttribute
MEMVAR MITMP // carperta donde existe la mdb
cDriver :="Microsoft Access Driver (*.mdb)"
cAttribute:="DSN=BBT"+Chr(0)+;
"DESCRIPTION=BBT System"+Chr(0)+;
"SERVER=127.0.0.1"+Chr(0)+;
"DBQ="+MITMP+"\BBT.mdb"
nRet := CrtDtaSrc(0,1,cDriver, cAttribute )
RETURN NIL
DLL32 FUNCTION CrtDtaSrc(hWnd AS LONG, nRequest AS LONG, @cDriver as STRING , @cAttributes as STRING) ;
AS _INT PASCAL FROM "SQLConfigDataSource" LIB "ODBCCP32"
//-----------------------------------------------------------------------------