🚀 go-pugleaf

I write a program,my programm use some function in odbc32.dll.
when I call these function,every thing is working.
But every call with the function SQLDataSources twice will raise Exception .
I send my programm to my friend,his environment is winnt4+cb4. In this
environment will not raise any Exception.
But I use win2k + bcb5 +bcb5sp1+adosp1,how can i do ?

my programm:

#include <vcl.h>
#pragma hdrstop


#include <sql.h>
#include <sqlext.h>
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}


bool TForm1::GetDsn()
{
    UWORD fDirection=SQL_FETCH_FIRST;
    SQLCHAR szDSN[127];
    SQLCHAR szDescription[127];
    SQLRETURN retcode;
    SQLHENV henv;

    retcode=SQLAllocHandle(SQL_HANDLE_ENV,SQL_NULL_HANDLE,&henv);
    if(retcode!=SQL_SUCCESS)
        return FALSE;

retcode=SQLSetEnvAttr(henv,SQL_ATTR_ODBC_VERSION,(SQLPOINTER)SQL_OV_ODBC3,SQ
L_IS_INTEGER);
    if(retcode!=SQL_SUCCESS)
        return FALSE;
    ListBox1->Items->Clear();
    while(retcode==SQL_SUCCESS||retcode==SQL_SUCCESS_WITH_INFO)
    {

retcode=SQLDataSources(henv,fDirection,(UCHAR*)szDSN,sizeof(szDSN),NULL,(UCH
AR*)szDescription,sizeof(szDescription),NULL);
        fDirection=SQL_FETCH_NEXT;
        if(retcode==SQL_SUCCESS||retcode==SQL_SUCCESS_WITH_INFO)
        {
            AnsiString dsn;
            dsn.sprintf("%s",szDSN);
            ListBox1->Items->Add(dsn);
        }
    }
    SQLFreeHandle(SQL_HANDLE_ENV,henv);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    GetDsn();

}

thank you!
--
China BCB beginner tinyfool

Welcome to my website
http://tinydust.yeah.net