#include <vcl.h>
#pragma hdrstop
#include  "MainForm.h" 
#include  "sql.h" 
#include  "sqlext.h" 
#pragma package(smart_init)
#pragma resource  "*.dfm" 
#pragma comment(lib, "odbc32.lib" )
#pragma comment(lib, "odbccp32.lib" )
#pragma comment(lib, "user32.lib" )
TForm1 *Form1;
SQLRETURN nResult;
SQLHENV     henv;
SQLHDBC     hdbc;
SQLCHAR pcSQLState[ 10 ];
SQLCHAR pcMsg[ 255 ];
SQLINTEGER nNativeError;
SQLSMALLINT nMsgLen;
AnsiString sStr;

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (SQLAllocHandle(SQL_HANDLE_ENV,SQL_NULL_HANDLE,&henv) != SQL_SUCCESS)
    return;
  if (SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3 , SQL_IS_INTEGER) != SQL_SUCCESS)
    return;
  nResult=SQLAllocHandle(SQL_HANDLE_DBC,henv, (SQLHDBC FAR *)&hdbc);
  if (nResult != SQL_SUCCESS && nResult != SQL_SUCCESS_WITH_INFO){
    SQLGetDiagRec(SQL_HANDLE_DBC,henv,  1 , pcSQLState, &nNativeError, pcMsg, sizeof(pcMsg), &nMsgLen);
    return;
    }
  ComboBox1->Items->Add(sStr);
}