Как вывести весь столбик из таблицы в DBComboBox1

@Bablgam · Регистрация: 06.06.2013

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

прошу помоч реалтизовать в программе DBComboBox1
есть база данных Access : три таблицы отдел, книга, зал, пользователь.
база подключена к DBgrid через ADOconection ADoquery & DATAsource
в таблице книга необходимо сделать новую форму добавления книги
в форме "нов книга" необходимо реализовать с помощю DBComboBox1
вводить строку из столбика Name в таблице "отдел" в таблицу "книга" столбик отдел
можно ли у DBComboBox1 в инспекторе в строке items использовать SQL запрос
select Name from Otdel (может и запрос не правильно записал )

попробовал использовать DBLookupComboBox1 список отделов выводит но не добавляет в таблицу книга

с системной ошибкой вылетает клиент.

@andrey_k3 · 14.05.2014, 14:56

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add
        (
          'SELECT DISTINCT field1 FROM your_table'
        );
      Open;
      First;
    end;
  DBComboBox1.Clear;
  while not Query1.EOF do
    begin
      DBComboBox1.Items.Add(Query1.FieldByName('field1').AsString);
      SQLQuery1.Next;
    end;
end;

@Bablgam · 14.05.2014, 15:00 **[ТС]**

спасибо Андрей

@Bablgam · 14.05.2014, 18:46 **[ТС]**

прошу пояснить куда мне вписать данный текст и какое имя ввести вместо Query1
на каком "итеме" мне нужно сгенерировать событие
так чтоб отоброжался столбик Name из таблицы Otdel в DBcomboBox1 на форме Fnbook

чтоб добавить одно из значений в столбик otd таблицы Post_book

я только начал разбирать Delphi и понимаю не многое

@Bablgam · 14.05.2014, 22:39 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFnbook.DBComboBox1Change(Sender: TObject);
begin
 with DM1.ADOotdel do
    begin
      Close;
      SQL.Clear;
      SQL.Add
        (
        'SELECT DISTINCT Name FROM Otdel');
      Open;
      First;
    end;
  DBComboBox1.Clear;
  while not DM1.ADOotdel.EOF do
    begin
      DBComboBox1.Items.Add(DM1.ADOotdel.FieldByName('Name').AsString);
    SQL........????????
    end;

а тактекст компилируется но в форме пусто. какбыть ((

@andrey_k3 · 14.05.2014, 22:53

для заполнения списка выдели отдельный ADOQuery, чтобы он не использовался в связке ни с чем (не использовался для подготовки набора данных для дбгрида). код можно разместить в OnShow формы Fnbook. а на счет строки SQLQuery1.Next; - опечатка, должно было просто быть Query1.Next;. в твоём случае - ADOQueryN.Next

@Bablgam · 14.05.2014, 23:21 **[ТС]**

спасибо еще раз, все получилось вложил текст в событии OnShow .
я счастлив )))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@Bablgam 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 8

	Как вывести весь столбик из таблицы в DBComboBox1 14.05.2014, 14:26. Показов 2460. Ответов 6 Метки нет (Все метки) прошу помоч реалтизовать в программе DBComboBox1 есть база данных Access : три таблицы отдел, книга, зал, пользователь. база подключена к DBgrid через ADOconection ADoquery & DATAsource в таблице книга необходимо сделать новую форму добавления книги в форме "нов книга" необходимо реализовать с помощю DBComboBox1 вводить строку из столбика Name в таблице "отдел" в таблицу "книга" столбик отдел можно ли у DBComboBox1 в инспекторе в строке items использовать SQL запрос select Name from Otdel (может и запрос не правильно записал ) попробовал использовать DBLookupComboBox1 список отделов выводит но не добавляет в таблицу книга с системной ошибкой вылетает клиент. 0

@Bablgam 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 8
	14.05.2014, 15:00 [ТС]
	спасибо Андрей 0

@Bablgam 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 8
	14.05.2014, 18:46 [ТС]
	прошу пояснить куда мне вписать данный текст и какое имя ввести вместо Query1 на каком "итеме" мне нужно сгенерировать событие так чтоб отоброжался столбик Name из таблицы Otdel в DBcomboBox1 на форме Fnbook чтоб добавить одно из значений в столбик otd таблицы Post_book я только начал разбирать Delphi и понимаю не многое Миниатюры 0

@andrey_k3 129 / 129 / 41 Регистрация: 17.10.2013 Сообщений: 335
	14.05.2014, 22:53
	Сообщение было отмечено Bablgam как решение Решение для заполнения списка выдели отдельный ADOQuery, чтобы он не использовался в связке ни с чем (не использовался для подготовки набора данных для дбгрида). код можно разместить в OnShow формы Fnbook. а на счет строки SQLQuery1.Next; - опечатка, должно было просто быть Query1.Next;. в твоём случае - ADOQueryN.Next 0

@Bablgam 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 8
	14.05.2014, 23:21 [ТС]
	спасибо еще раз, все получилось вложил текст в событии OnShow . я счастлив ))) 0

Как вывести весь столбик из таблицы в DBComboBox1

Решение