Lunes 23 de Diciembre de 2024, 14:20
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Asuntos Oficiales
»
Publicaciones y e-books
»
C/C++
(Moderador:
Toph
) »
Crear / Borrar Alias Odbc
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Crear / Borrar Alias Odbc (Leído 3286 veces)
_Viktor
Miembro MUY activo
Mensajes: 271
Crear / Borrar Alias Odbc
«
en:
Sábado 6 de Diciembre de 2003, 03:03 »
0
Para crear un alias ODBC
Código: Text
//bool ret;
//ret = CreateODBCAlias("MiAlias",
//"miBase.mdb",
//"C:\directorio\datos\",
//"Esto es una prueba");
// Devuelve true si se crea correctamente
//ShowMessage(ret ? "Creado" : "Error");
bool CreateODBCAlias(String sAlias, String sDB, String Dir, 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",
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;
}
Para Borrar un alias ODBC
Código: Text
//LLAMADA
//bool ret = RemoveODBCAlias("Rebeca");
// devuelve true en caso de que se borre
//ShowMessage(ret ? "Borrado" : "Error");
bool RemoveODBCAlias(String sAlias)
{
typedef BOOL (__stdcall *pSQLConfigDataSource)HWND,ORD, 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;", sAlias.c_str));
bRet = SQLConfigDataSource(NULL,3 /*ODBC_REMOVE_DSN*/,
"Microsoft Access Driver (*.mdb)", szParam);
}
FreeLibrary(hLib);
}
// Devuelve true si se borra o false en caso contrario return bRet;
}
Autor: _Leo...
Saludos.-
Tweet
_Viktor _Yañez_
"Ser inteligente no es ser mas, solo equivocarse menos y no usar visual basic"
http]
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Asuntos Oficiales
»
Publicaciones y e-books
»
C/C++
(Moderador:
Toph
) »
Crear / Borrar Alias Odbc