| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TDBComboBox
Ral'f © (2007-06-13 19:57:00)Мастера, прошу вашей помощи, не нашёл хорошего описания компонента TDBComboBox! Работаю с MS Access, нужно, чтобы в одном из компонентов можно было выбрать одну из имеющихся в колонке записей (причём в колонке записи могут повторяться, а в ComboBox это, конечно, не желательно), или добавить свою. Как подключить TDBComboBox к своей таблице? Или лучше для этого использовать обычный TComboBox?
Anatoly Podgoretsky (2007-06-14 12:43:00) [1]Для начала забудь про это TADOTable, а потом про это TAdoQueryи используй TAdoDataset
ЮЮ (2007-06-14 10:29:00) [2]p.s. adoQuery.Text := 'SELECT DISTINCT <Имя поля> FROM <имя таблицы> WHERE <Имя поля> IS NOT NULL ORDER BY 1';
Ral'f (2007-06-14 10:22:00) [3]Огромное спа'си'бо'!!!
ЮЮ (2007-06-14 10:18:00) [4]> А как это сделать с помощью запроса?
adoQuery.Text := 'SELECT DISTINCT<Имя поля> FROM <имя таблицы> WHERE <Имя поля> IS NOT NULL';
adoQuery.Open;
while not adoQuery.EOF do begin
TDBComboBox(Sender).Items.Add(adoQuery.Fields[0].asString);
adoQuery.Next;
end;
На худой конец, сойдет и твое [5] :)
Ral'f (2007-06-14 09:58:00) [5]> ЮЮ © (14.06.07 04:12) [1]
>запросом выбрать неповторяющиеся значения и заполнить ими Items.
я предполагал сделать так:
TADOTable(Tabl).First;
TDBComboBox(Sender).Items.Clear;
while not TADOTable(Tabl).Eof do
begin
s:=TADOTable(Tabl).Fields[Nom].AsString;
if (TDBComboBox(Sender).Items.IndexOf(s)<0) and (s<>'')
then TDBComboBox(Sender).Items.Add(s);
TADOTable(Tabl).Next;
end;
TADOTable(Tabl).First;
А как это сделать с помощью запроса?
ЮЮ (2007-06-14 08:13:00) [6]> TDBLookUpComboBox мож, лучше подойдет?
TDBLookUpComboBox хорош, когда имеем дело с справочной таблицей.
ASoft (2007-06-14 07:34:00) [7]
> Ral'f (13.06.07 19:57)
TDBLookUpComboBox мож, лучше подойдет?
ЮЮ (2007-06-14 06:25:00) [8]>не нашёл хорошего описания компонента TDBComboBox!
А чего там описывать? Обычный TDBЕdit, у которого есть выпадающий список для облегчения ввода длинных строк. Выпадающий список должен формироваться программно, компонент им не управляет.
ЮЮ (2007-06-14 04:12:00) [9]> причём в колонке записи могут повторяться, а в ComboBox
> это, конечно, не желательно),
запросом выбрать неповторяющиеся значения и заполнить ими Items.
> или добавить свою
TDBComboBox позволяет вводить любое значение, не только из списка. В AfterPost, например, можно убедиться есть ли значение поля в Items, если нет - добавить в Items.
| |
