Club Builder

[_Leo]

- Con esta función podemos crear un alias ODBC en tiempo de ejecución. Usandola del siguiente modo por ejemplo:

bool ret;
ret = CreateODBCAlias("MiAlias",
"miBase.mdb",
"C:\\directorio\\datos\\",
"Esto es una prueba");
// Devuelve true si se crea correctamente
ShowMessage(ret ? "Creado" : "Error");

Añadimos #include <stdio.h> /*sprintf*/

code:

---

bool 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;
}

---

- Y con esta función podemos borrar un alias ODBC en tiempo de ejecución. Usandola del siguiente modo por ejemplo:

bool ret = RemoveODBCAlias("Rebeca");
// devuelve true en caso de que se borre
ShowMessage(ret ? "Borrado" : "Error");[/code]

code:

---

bool RemoveODBCAlias(String sAlias)
{
    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;\0", 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;
}

---

Las dos funciones son totalmente independientes, aunque claro que si las usamos las dos no es necesario repetir tantas declaraciones ni abrir y cerrar la dll...

Probado en BCB3 y BCB5.

[_Leo]

Para modificar un alias en vez de borrarlo y volver a crearlo podemos sustituir en la primera rutina:

    1 /* ODBC_ADD_DSN */

por:

    2 /* ODBC_CONFIG_DSN */

[carlos_lue]

hola puse en practica el codigo publicado aquí para crear el alias en tiempo de ejecucion pero cuando lo compilo me aparecen los siguientes errores:
1.- [C++ Error] Unit1.cpp(22): E2268 Call to undefined function 'CreateODBCAlias'

2.- [C++ Error] Unit1.cpp(30): E2141 Declaration syntax error

3.- [C++ Error] Unit1.cpp(52): E2139 Declaration missing ;

4.- [C++ Error] Unit1.cpp(52): E2190 Unexpected }

el codigo lo coloqué en el formulario principal, en el evento OnCreate, osea cuando se crea el formulario, me podrias ayudar con esto, este es el codigo:

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
bool ret;
ret = CreateODBCAlias("MiAlias",
"gimnasio.mdb",
"C:\\Programas\\Gym\\",
"Esto es una prueba");
// Devuelve true si se crea correctamente
ShowMessage(ret ? "Creado" : "Error");

bool 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;
return bRet;
}
}
//---------------------------------------------------------------------------

a esto lo estoy haciendo en el builder 5, de antemano gracias.

[_Viktor]

Hola...
hazlo tal cual esta aqui. ya que yo he usado ese codigo de esta forma y cero problemas, solo agregue la libreria stdio y lo puse en un boton.

[_Viktor]

Debo agregar que el codigo del Button1 del mensaje anterior lo probe en el evento OnCreate del form y ningun problema tampoco...

cuando te sale el error Call to undefined function CreateODBC... es porque la estas llamando fuera de lugar, es decir, puedes poner el prototipo de la funcion o hacerla parte del Form, agregandola en el archivo cabecera del respectivo form. (unit1.h).

Bueno....
Eso-
Suerte!
_________________
"Ser inteligente no es ser mas, solo equivocarse menos y no usar Visual Basic"
Atte.
Victor Yañez
Apoyen el Proyecto OpenSource del Club Builder. Ya tenemos componentes Listos!!!

[carlos_lue]

muchas gracias viktor, ya logre hacer que funcionara.

gracias a todos y un saludo.

[_Viktor]

_________________
"Ser inteligente no es ser mas, solo equivocarse menos y no usar Visual Basic"
Atte.
Victor Yañez
Apoyen el Proyecto OpenSource del Club Builder. Ya tenemos componentes Listos!!!

[carlos_lue]

alguien conoce otra manera de crear el DSN, talves dentro de un .bat, que instale al mismo tiempo que el programa, si lo saben se los agradesco que me lo digan, para tener mas conocimiento y tener diferentes salidas al problemas. bueno adioss y gracias.

[Sigi]

Interesante esta función, pues evita tener que pensar en la creación de ALIAS en el momento de instalar el programa, pero tengo una Duda, como hago para crear un DSN del sistema? ya que esta función me crea el DSN pero del Usuario.
_________________
ssv

[_Leo]

Cambiar las siguientes coincidencias:

    1 /*ODBC_ADD_DSN*/
    2 /*ODBC_CONFIG_DSN*/
    3 /*ODBC_REMOVE_DSN*/

por las siguientes:

    4 /*ODBC_ADD_SYS_DSN*/
    5 /*ODBC_CONFIG_SYS_DSN*/
    6 /*ODBC_REMOVE_SYS_DSN*/

[Wasnulfo]

Buenas tardes a todos:

Como se haría para crear la odbc, pero para el caso de SQL Server

Saludos

[Wasnulfo]

Buenas a todo el foro:

He seguido intentando averiguar como generar automaticamente la odbc para sql Server pero no me funciona.

alguien ha podido indagar en este asunto.

gracias de antemano y un saludo a todos

[Cri_sys]

Puedes reemplazar el 3er parametro y colocar el nombre del driver que deseas...
ya no quedaria

[tronxx]

Obviamente no es solo cambair el parametro

[Cri_sys]

Si no me equivoco deberias pasarlo por parametro y colocarlo en el szParam algo asi...