ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / автозаполнение Combobox
7 сообщений из 7, страница 1 из 1
автозаполнение Combobox
    #39651562
TsYekaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TsYekaterina
Гость
Доброго утра! вопрос простой, но не получается. есть Combobox, сделала для него автозаполнение - при наборе букв с клавиатуры предлагает варианты.
А как сделать, если, например, не найдено совпадений? чтобы вылетала не системная ошибка, а программное сообщение.
данные Combobox из базы.
попробовала так, не получилось:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TFormAddField.cmbEnumerationKeyPress(Sender: TObject; var Key: Char);
var i, SearhingString: string;
begin
if (Key<=#192)and(Key<>' ')and(Key<>#8) then key:=#0 ;
with StdMainForm.ADOQuery do begin
  if StdMainForm.ADOQuery.SQL.Text<>'Select * from ListValues where like '+QuotedStr('%'+cmbEnumeration.Text+'%') then
    try Open
    except
     Showmessage ('Совпадений не найдено!');
    end;
  end;
 end;
...
Рейтинг: 0 / 0
29.05.2018, 10:22
| Ответить | Цитировать | Написать  
автозаполнение Combobox
    #39651566
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Зачем вы текст запроса сравниваете ?
Нужно сравнивать РЕЗУЛЬТАТ запроса
...
Рейтинг: 0 / 0
29.05.2018, 10:26
| Ответить | Цитировать | Написать  
автозаполнение Combobox
    #39651597
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
TsYekaterina,

Если совпадений не найдено, то у ADOQuery будет пустой набор данных. Т.е. ADOQuery.Eof = ADOQuery.Bof. Это и проверяйте.
...
Рейтинг: 0 / 0
29.05.2018, 10:53
| Ответить | Цитировать | Написать  
автозаполнение Combobox
    #39651630
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
TDataset.IsEmpty
...
Рейтинг: 0 / 0
29.05.2018, 11:26
| Ответить | Цитировать | Написать  
автозаполнение Combobox
    #39651864
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Если значений в базе немного (в пределах сотни) и они не изменяются, то имеет смысл их вычитать по старту программы и сравнивать с этим списком
...
Рейтинг: 0 / 0
29.05.2018, 15:41
| Ответить | Цитировать | Написать  
автозаполнение Combobox
    #39651911
TsYekaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TsYekaterina
Гость
_Vasilisk_ , более 500 записей.
...
Рейтинг: 0 / 0
29.05.2018, 16:25
| Ответить | Цитировать | Написать  
автозаполнение Combobox
    #39651930
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
TsYekaterinaболее 500 записей.

Это немного. А автозаполнение надо было делать не руками, а просто выставив
соответствующее свойство у компонента.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
29.05.2018, 16:46
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / автозаполнение Combobox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39651562&tid=2040835]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 168ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 220ms
total:  446ms
созд. / загр.: 446ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]