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

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

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2007, 21:03   #1
Arteom
Пользователь
 
Регистрация: 22.08.2007
Сообщений: 59
По умолчанию из таблицы в комбо-бокс

подскажите кто-нибудь как можно все значение какого-то определенного столбца из таблицы запихнуть в комбо-бокс, т.е. сделать выпадающим списком. Заранее благодарен...
Arteom вне форума Ответить с цитированием
Старый 12.09.2007, 21:38   #2
rubi
Пользователь
 
Регистрация: 01.09.2007
Сообщений: 35
По умолчанию

на вкладке DataControls берешь компонент DBLookupComboBox1 и ложишь его на форму. После этого берешь какой-нить Query там пишешь Select Table.Stolbec from Table. Прифязываешь этот Query1 к DataSource1 (свойством DataSet). Потом в свойствах DBLookupComboBox1 делаешь так: ListSource=DataSource1, ListField=Stolbec, если надо индексировать, то ListIndex=StolbecIndex (но для этого в Query1 добавь выборку на него). Использование DBLookupComboBox позволяет связать несколько полей. Например в одном DBLookupComboBox выбираешь Марку машины, а в другом соответствующие марке модели. Для этого используй св-во DataSource в свойствах DBLookupComboBox.
rubi вне форума Ответить с цитированием
Старый 12.09.2007, 21:39   #3
rubi
Пользователь
 
Регистрация: 01.09.2007
Сообщений: 35
По умолчанию

Извиняюсь, не ListIndex, а KeyField.
rubi вне форума Ответить с цитированием
Старый 13.09.2007, 09:15   #4
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Сообщений: 532
По умолчанию

если ві работаете с базой, то конечно используйте DBCombo....
Но если Вам уж так уж необходимо именно Combo....,то
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
ADOTable1.First;
for i:=0 to ADOTable1.RecordCount-1 do
begin
ComboBox1.Items.Add(ADOTable1.Field s[1].Value );
ADOTable1.Next;
end;

end;
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
Pitbull вне форума Ответить с цитированием
Старый 13.09.2007, 23:22   #5
Arteom
Пользователь
 
Регистрация: 22.08.2007
Сообщений: 59
По умолчанию

Спасибо Pitbull, сделал все по вашему совету, только с ADOQuery
Arteom вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
печать таблицы! frodo Общие вопросы Delphi 4 10.04.2008 19:52
Копирование при помощи лист бокс Beam Общие вопросы Delphi 6 13.02.2008 16:44
Выборка из таблицы ivp88 БД в Delphi 5 12.01.2008 14:36
2 таблицы Tarnym БД в Delphi 6 02.12.2007 12:47