🚀 go-pugleaf

/**
 * Enumerates ODBC Data Source Names.
 */
void EnumDSN(TStrings* strsUser, TStrings* strsSystem)
{
    SQLHANDLE henv;
    RETCODE   retcode;
    SQLCHAR   szDSNName[SQL_MAX_DSN_LENGTH + 1];

    if(SQL_SUCCEEDED(SQLAllocHandle(SQL_HANDLE_ENV, NULL, &henv)))
    {
        // set the ODBC behavior version.
        SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)
SQL_OV_ODBC3, SQL_IS_INTEGER);
        // Enumerate the user data sources.
        retcode = SQLDataSources(henv, SQL_FETCH_FIRST_USER, szDSNName,
            sizeof(szDSNName), NULL, NULL, 0, NULL);

        while(SQL_SUCCEEDED(retcode))
        {
            if (strsUser) strsUser->Add((char*)szDSNName);
            // Do the next one, if it exists.
            retcode = SQLDataSources(henv, SQL_FETCH_NEXT, szDSNName,
                sizeof(szDSNName), NULL, NULL, 0, NULL);
        }

        // Enumerate the system data sources.
        retcode = SQLDataSources(henv,  SQL_FETCH_FIRST_SYSTEM, szDSNName,
            sizeof(szDSNName), NULL, NULL, 0, NULL);

        while(SQL_SUCCEEDED(retcode))
        {
            if (strsSystem) strsSystem->Add((char*)szDSNName);
            // Do the next one, if it exists.
            retcode = SQLDataSources(henv, SQL_FETCH_NEXT, szDSNName,
                sizeof(szDSNName), NULL, NULL, 0, NULL);
        }

        SQLFreeHandle(SQL_HANDLE_ENV, henv);
    }
}

VVY

"tinyfool" <tinyfool@163.net> wrote in message news:3bd9f97a_2@dnews...
>      I use Win2000,BCB 5 Enterprise Suite & BCB5 Update Pack 1 &
AdoExpress
> Upgrade1.
>      Now I know I need SQLDataSources function,and I find sql.h in the
BCB's
> include path,and the odbc32.lib in BCB's lib path+"psdk\".So I add the
> odbc32.lib to my project.
>     I write follow two lines:
>
>     SQLHENV henv;
>     SQLAllocHandle(SQL_HANDLE_ENV,SQL_NULL_HANDLE,&henv);
>
>    Complie is success,but linker tell me "Unresolved external
> '_SQLAllocHandle' referenced from d:\BCB\test\unit1.obj". I use IMPLIB to
> make a new odbc32.lib. the new one is 19kb ,and BCB's odbc32.lib is
6.68kb.
> When I use the new lib and the sql.h ,I got the same error.
>
>    What can I do ?Please help me!
>     Thank you very much!
>
>
> --
> TinyFool
>
> A BCB beginer From China
>
>
>
>