Пробежаться по всем значениям поля Потребитель и занести каждое значение в DBComboBox

@СУСАННА · Регистрация: 01.11.2008

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

Привет всем!
Есть таблица Потребители(Потребитель) и компонент DBComboBox.
Подскажите, пожалуйста, как пробежаться по всем значениям поля Потребитель и занести каждое значение в DBComboBox?

@Lord_Voodoo · 19.12.2008, 12:29

тебе просто надо указать DataSource и datafield

@СУСАННА · 19.12.2008, 13:58 **[ТС]**

Я указала, но не работает!

@Lord_Voodoo · 19.12.2008, 13:59

покажи код, что там у тебя... ты таблицу или запрос открываешь хоть?

@СУСАННА · 19.12.2008, 14:49 **[ТС]**

Code
1
2
3
4
5
6
7
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected := true;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT dvigatobsh1.Potrebitel FROM dvigatobsh1 GROUP BY dvigatobsh1.Potrebitel;');
ADOQuery2.Open;
end;

Добавлено через 5 минут 59 секунд
В DBComboBox заносится только первое значение поля Potrebitel

@Lord_Voodoo · 19.12.2008, 15:16

ну запрос попробуй такой:

Code
1
'SELECT dvigatobsh1.Potrebitel FROM dvigatobsh1'

а еще вопрос, а ты уверена, что у тебя результат запроса не одна запись?

@СУСАННА · 19.12.2008, 15:20 **[ТС]**

WooDooMan, конечно уверена, я же могу просмотреть результат запроса!

Добавлено через 2 минуты 29 секунд
WooDooMan, с этим запросом тоже самое получается

@Lord_Voodoo · 19.12.2008, 15:28

упс, простите валенка... вам нужен dblookupcombobox... объясню причину - дбкомобокс для редактирования, а для просмотра - dblookupcombobox

@СУСАННА · 19.12.2008, 15:47 **[ТС]**

WooDooMan, всё равно не катит. Даже ничего не вносит в dblookupcombobox.

@Lord_Voodoo · 19.12.2008, 15:53

странно, ну да ладно... самый простой способ - поставь combobox, потом пройдись по всей таблице, что получается в результате запроса, и добавь в combobox все записи...

@СУСАННА · 19.12.2008, 15:58 **[ТС]**

WooDooMan, я это и просила объяснить. Т.к. тоже пришла к такому выводу. Как мне это сделать?

@Lord_Voodoo · 19.12.2008, 16:04

наверное, я вас не понял, ну да ладно... обычно делаю так:

Code
1
2
3
4
5
6
7
8
  List.Add(''); // чтобы пользователь мог и пустое выбрать
  Query2.SQL.Clear();
  Query2.SQL.Add(Text);
  Query2.Open;
  while (not Query2.Eof) begin
      List.Add(Query2.FieldByName(Field).AsString);
      Query2.Next();
   end;

@СУСАННА · 19.12.2008, 16:17 **[ТС]**

WooDooMan, Спасибо огромное! Выручили!

@bv777 · 10.08.2009, 20:24

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

наверное, я вас не понял, ну да ладно... обычно делаю так:

Code
1
2
3
4
5
6
7
8
  List.Add(''); // чтобы пользователь мог и пустое выбрать
  Query2.SQL.Clear();
  Query2.SQL.Add(Text);
  Query2.Open;
  while (not Query2.Eof) begin
      List.Add(Query2.FieldByName(Field).AsString);
      Query2.Next();
   end;

У меня чего то не хотит выводиться список. Вешаю на чейндж или клик комбобокса и ничего не просиходит, остается возможность только выбора пустого значения и все, значения из поля в список не попадают.

@Lord_Voodoo · 10.08.2009, 20:43

bv777, код покажите... вы вообще трассировали его, что там происходит - знаете?

@YuliLa · 03.06.2014, 01:56

Вам лучше использовать DBLookupComboBox, все что необходимо это
KeyField - Ключевое поле
ListField - поле, которое будет отображаться в списке
ListSource - источник данных

@Zil · 03.06.2014, 02:31

Используйте обычный combobox

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
  try
    ADOQuery2.Active:=false;
    ADOQuery2.SQL.Clear;
    ADOQuery2.SQL.Add('SELECT Potrebitel FROM dvigatobsh1 GROUP BY Potrebitel');
    ADOQuery2.Active:=true;
  except
    Showmessage('Выборка не выполнена, обратитесь к разработчику');
  end;
  while not ADOQuery2.Recordset.EOF do
  begin
    combobox1.Items.Add(ADOQuery2.Recordset.Fields[0].value);
    ADOQuery2.Recordset.MoveNext;
  end;

Кстати в исходном варианте лишний ";" в конце SQL запроса.

Добавлено через 6 минут
Собственно тоже самое, что было несколько постов назад, ибо не увидел, что в теме уже 2 страницы, но тем не менее, вдруг поможет.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	[В процессе разработки] SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32

	Пробежаться по всем значениям поля Потребитель и занести каждое значение в DBComboBox 19.12.2008, 12:01. Показов 26707. Ответов 16 Метки нет (Все метки) Привет всем! Есть таблица Потребители(Потребитель) и компонент DBComboBox. Подскажите, пожалуйста, как пробежаться по всем значениям поля Потребитель и занести каждое значение в DBComboBox? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.12.2008, 12:29
	тебе просто надо указать DataSource и datafield 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	19.12.2008, 13:58 [ТС]
	Я указала, но не работает! 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.12.2008, 13:59
	покажи код, что там у тебя... ты таблицу или запрос открываешь хоть? 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	19.12.2008, 15:20 [ТС]
	WooDooMan, конечно уверена, я же могу просмотреть результат запроса! Добавлено через 2 минуты 29 секунд WooDooMan, с этим запросом тоже самое получается 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.12.2008, 15:28
	упс, простите валенка... вам нужен dblookupcombobox... объясню причину - дбкомобокс для редактирования, а для просмотра - dblookupcombobox 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	19.12.2008, 15:47 [ТС]
	WooDooMan, всё равно не катит. Даже ничего не вносит в dblookupcombobox. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.12.2008, 15:53
	странно, ну да ладно... самый простой способ - поставь combobox, потом пройдись по всей таблице, что получается в результате запроса, и добавь в combobox все записи... 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	19.12.2008, 15:58 [ТС]
	WooDooMan, я это и просила объяснить. Т.к. тоже пришла к такому выводу. Как мне это сделать? 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	19.12.2008, 16:17 [ТС]
	WooDooMan, Спасибо огромное! Выручили! 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.08.2009, 20:43
	bv777, код покажите... вы вообще трассировали его, что там происходит - знаете? 0

@YuliLa 4 / 4 / 0 Регистрация: 15.10.2010 Сообщений: 71
	03.06.2014, 01:56
	Вам лучше использовать DBLookupComboBox, все что необходимо это KeyField - Ключевое поле ListField - поле, которое будет отображаться в списке ListSource - источник данных 2