Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C/C++ Базы данных
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.07.2022, 17:31   #1
B_izo_n
Новичок
Джуниор
 
Регистрация: 25.07.2022
Сообщений: 1
По умолчанию ADOConnection

Почему в переменной NULL?
в базе есть таблица sysdiagrams я не хочу выводить ее в ListBox но она выводиться потому что в переменной str всегда значение NULL;
вот код:
Код:
TADODataSet *tables = new TADODataSet(NULL);
OleVariant EmptyParam;
  EmptyParam.VType = VT_ERROR;
  EmptyParam.VError = DISP_E_PARAMNOTFOUND;
DataAvtobus->ADOConnection1->OpenSchema(siStatistics,EmptyParam,EmptyParam,tables);
  tables->First();
  WideChar s[] = {'s','y','s'};
WideChar *str;
while(!tables->Eof)
	{
	 str = AnsiStrPos(tables->Fields->FieldByName("TABLE_NAME")->Value,s);
	 //ShowMessage(str);
	if(str == NULL)
	 ListBox2->Items->Add(tables->Fields->FieldByName("TABLE_NAME")->Value);
	 tables->Next();
	}
Если изначально переменной str присваиваю значение тогда все нормально:
Код:
DataAvtobus->ADOConnection1->OpenSchema(siStatistics,EmptyParam,EmptyParam,tables);
  tables->First();
  WideChar s[] = {'s','y','s'};
  WideChar *str = AnsiStrPos(tables->Fields->FieldByName("TABLE_NAME")->Value,s);
   while(!tables->Eof)
	{
	 str = AnsiStrPos(tables->Fields->FieldByName("TABLE_NAME")->Value,s);
	 //ShowMessage(str);
	if(str == NULL)
	 ListBox2->Items->Add(tables->Fields->FieldByName("TABLE_NAME")->Value);
	 tables->Next();
	}
В чем может быть проблема?
B_izo_n вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ADOConnection ADOSnow БД в Delphi 1 17.12.2010 17:57
ADOCONNECTION T@tali Общие вопросы Delphi 17 27.05.2010 18:07
ADOConnection Optigood БД в Delphi 18 18.05.2010 09:26
ADOConnection Explosion БД в Delphi 7 16.04.2010 15:54
ADOConnection nikori БД в Delphi 2 17.06.2009 09:53