Как поместить нужное содержимое из ячеек базы данных в combobox?

@daviddraiman · Регистрация: 23.01.2016

Студворк — интернет-сервис помощи студентам

Существует таблица в базе данных, созданной в access. Допустим в ней есть поле "Цвет". Как сделать так, чтобы названия всех цветов из этого поля попали в нужный мне выпадающий список. Потом в выпадающем списке я выбираю нужный цвет, а далее по кнопке название цвета заносится в ячейку в другой таблице в этой же базе данных. Подскажите пожалуйста как это сделать) Во вложении исходники. Как запустите сразу всё станет понятно. У меня там в некоторых вкладках таблицы пустые. Как раз нужно чтобы они "автоматически" заполнялись. Может ещё на какие ошибки укажите, что где оптимизировать)) Буду очень благодарен.

@qwertehok · 24.01.2016, 23:14

сделать запрос вида

SQL
1
SELECT ЦВЕТ FROM TABLENAME GROUP BY ЦВЕТ

далее обработать его и поместить в Combobox

Далее на OnChange в Combobox
пишите

Delphi
1
query.sqlt.text:='select id, ЦВЕТ from TABLENAME where ЦВЕТ='+ComboBox.Text

@daviddraiman · 25.01.2016, 19:49 **[ТС]**

Спасибо. Могли бы вы по подробнее написать. Где именно написать запрос
SELECT ЦВЕТ FROM TABLENAME GROUP BY ЦВЕТ
и как обработать, чтобы поместить в combobox?

Добавлено через 1 час 38 минут
Написал такую процедуру

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.vel(a,b: string;combo:TComboBox) ;
begin
  ADOQuery1.SQL.Text:='SELECT DISTINCT ' + b + ' FROM '+ a;
  ADOQuery1.Open;
  While not ADOQuery1.Eof do begin
    combo.Items.Add(ADOQuery1.Fields.FieldByName(b).AsString);
    ADOQuery1.next;
  end;
 
end;

a - таблица
b - поле
Почему все поля, кроме поля Количество(которое в отличии от других не строковое) исчезли в таблице?

Добавлено через 1 час 29 минут
Сейчас получил все значения в нужные combobox кроме Количества. Для него использую код

Delphi
1
2
3
4
5
6
ADOQuery9.SQL.Text:='SELECT MAX (Количество) FROM Скейты';
ADOQuery9.Open;
 While not ADOQuery9.Eof do begin
  combobox5.Items.Add(ADOQuery9.Fields.FieldByName('Количество').Asstring);
  ADOQuery9.next;
 end;

При этом появляется ошибка "field количество not found". Если изменить в запросе max на тот же distinct, то всё работает как должно.

@qwertehok · 25.01.2016, 22:27

Сообщение от daviddraiman

Почему все поля, кроме поля Количество(которое в отличии от других не строковое) исчезли в таблице?

в какой таблице все исчезло?

Сообщение от daviddraiman

При этом появляется ошибка "field количество not found". Если изменить в запросе max на тот же distinct, то всё работает как должно.

потому что у вас вместо поля - функция
пишите не FieldsByName, а Fields[0] - где 0 порядковый номер поля в SELECT

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .