TDsn o TMyDsn ( crear ODBC desde aplicacion )

[dbzap]

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

[dbzap]

Este codigo resuelve todo.
Gracias por las colaboraciones.

Code: Select all  Expand view

//-----------------------------------------------------------
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"
//-----------------------------------------------------------------------------