Club Builder

[Esteban]

Hola a todos. Mi problema es el siguiente: sé que para utilizar una base de datos ACCESS tengo que crear un alias a través del ODBC, y éste automáticamente crea una entrada en el BDE.

Pero, ¿cómo puedo hacer para crear dicho Alias en el ODBC en tiempo de ejecución? O, en su defecto, crearlo en el BDE mediante AddAlias(nombre,"Microsoft Access Driver (*.mdb)",MyList). Lo he intentado así, pero me da un error al abrir la base de datos (Invalid configuration parameter) porque no sé que parámetros tengo que poner para que funcione correctamente.

Un saludo.

[Invitado]

Haciendo un "BUSCAR" lo hubieses encontrado, pero te lo pongo de todas maneras.

bool TForm1::CreateODBCAlias(String sAlias, String sDB, String sDir, String sDescription)
{
typedef BOOL (__stdcall *pSQLConfigDataSource)(HWND, WORD, LPCSTR, LPCSTR);
pSQLConfigDataSource SQLConfigDataSource;
HINSTANCE hLib;
bool bRet = false;
hLib = LoadLibrary("odbccp32.dll");
if (hLib)
{
SQLConfigDataSource =
(pSQLConfigDataSource) GetProcAddress(hLib, "SQLConfigDataSource");
if (SQLConfigDataSource)
{
char szParam[1024];
sprintf(szParam, "DSN=%s; Description=%s; DefaultDir=%s; DBQ=%s\0",
sAlias.c_str(), sDescription.c_str(), sDir.c_str(), sDB.c_str());
bRet = SQLConfigDataSource(NULL, 1 /*ODBC_ADD_DSN*/,
"Microsoft Access Driver (*.mdb)", szParam);
}
FreeLibrary(hLib);
} // Devuelve true si se crea o false en caso contrario
return bRet;
}

Si tienes alguna duda pregunta. Es que ahora me tengo que ir y no puedo explicar mas.

[Esteban]

Gracias, me ha sido muy útil. Sí lo había buscado, pero no había puesto las palabras clave adecuadas. Repito, gracias.

[likibuay]