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') ...

, .


, , Encapsulation - .In - + Capsula - , - - . , .





 28.02.2021 - 21:33: , , - Upbringing, Inlightening, Education -> - _.
28.02.2021 - 18:57: - Personalias -> WHO IS WHO - - _.
28.02.2021 - 18:56: , - War, Politics and Science -> - _.
28.02.2021 - 18:55: , , - Upbringing, Inlightening, Education -> - _.
28.02.2021 - 18:55: - Theorizing and Mathematical Design -> - - _.
28.02.2021 - 18:54: - Conscience -> - _.
28.02.2021 - 18:54: , - War, Politics and Science -> - _.
27.02.2021 - 19:35: , , - Upbringing, Inlightening, Education -> - _.
27.02.2021 - 18:43: - Economy and Finances -> - _.
27.02.2021 - 18:42: - Ecology -> - _.
27.02.2021 - 18:42: - Conscience -> . ? - _.
27.02.2021 - 18:41: - Economy and Finances -> - _.
Bourabai Research -  XXI Bourabai Research Institution