Пример 1:

Получаем список уже созданных источников данных ODBC.

   const short SQL_MAX_DSN_LENGTH=255;

   UCHAR   szDSN[ SQL_MAX_DSN_LENGTH+1 ];
   UCHAR   szDescription[ 256 ];
   short   wDSNLen;
   short   wDesLen;
   int retCode;
   SQLHENV  hEnv=NULL;
   AnsiString DSNName;

   SQLAllocEnv( &hEnv );
   retCode = SQLDataSources( hEnv, SQL_FETCH_FIRST,
                      szDSN, SQL_MAX_DSN_LENGTH+1, &wDSNLen,
                      szDescription, 256, &wDesLen );
   while( retCode == SQL_SUCCESS || retCode == SQL_SUCCESS_WITH_INFO )
   {
      DSNName = (AnsiString)((char *)szDSN);
      // -- получили имя DSN в переменной DSNName
      retCode = SQLDataSources( hEnv, SQL_FETCH_NEXT,
               szDSN, SQL_MAX_DSN_LENGTH+1, &wDSNLen,
                       szDescription, 256, &wDesLen );
   }
  SQLFreeEnv( hEnv );

Этот фрагмент кода просто перебирает все уже созданные источники данных. В первой строке фрагмента после объявления переменных создается хэндл текущего сеанса работы с ODBC, затем выбирается первое имя DSN. Если первое имя успешно прочитано (retCode содержит константу SQL_SUCCESS), то в цикле выбирается следующий DSN и т.д. до тех пор, пока не будет прочитан последний DSN. Если на место комментария вставить код (ListBox1 -> Items -> Add(DSNName)), добавляющий прочитанное имя в ListBox, например, то вы сможете просмотреть весь этот список. А если на место комментария вставить что-нибудь типа

if (DSNName=='OurDSN') ...

то мы проверим, сможет ли наша программа работать нормально.

к оглавлению

Знаете ли Вы, что модульность - это такая организация объектов, когда они заключают в себе полное определение их характеристик, никакие определения методов и свойств не должны располагаться вне его, это делает возможным свободное копирование и внедрение одного объекта в другие.

НОВОСТИ ФОРУМА

Рыцари теории эфира