Данные из базы в ListBox и ComboBox

@Denis3 · Регистрация: 14.03.2013

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

Всем привет,

Подскажите пожалуйста как вывести данные из базы данных в ListBox и ComboBox, у меня ни черта не получается.

У меня в таблице 4 столбца, мне надо вывести ВСЕ данные из второго столбца, а он мне выводит только первую строчку, может кто объяснить начинающему как вывести ВСЕ данные?

Вот код:

Delphi
1
2
3
4
procedure TForm8.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Text:=Form1.Table1.Fields[1].Text;
end;

Таблица находится на другой форме, ListBox на второй форме.

С ComboBox та же история.

Пробовал ещё

Delphi
1
2
3
4
procedure TForm8.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Text:=Form1.Table1.Fields[1].Value;
end;

Всё равно не получается

И ещё пробовал

Delphi
1
2
3
4
procedure TForm8.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Add(Form1.Table1.Fields[1].Value);
end;

Но всегда выводит только первую строчку.

Подскажите кто может.

@Vabos · 29.03.2013, 15:40

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
   ComboBox1.Items.Clear;
   for i:=1 to Table1.RecordCount do
   begin
      Table1.RecNo:=i;
      //Можно так:
      ComboBox1.Items.Add(Table1.FieldValues['Name']);
      //Но лучше так (еще и данные прицепить можно)
      ComboBox1.Items.AddObject(Table1.FieldValues['Name'],TObject(Integer(Table1.FieldValues['Row_ID'])));
   end;
end;

@Denis3 · 29.03.2013, 15:56 **[ТС]**

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
   ComboBox1.Items.Clear;
   for i:=1 to Table1.RecordCount do
   begin
      Table1.RecNo:=i;
      //Можно так:
      ComboBox1.Items.Add(Table1.FieldValues['Name']);
      //Но лучше так (еще и данные прицепить можно)
      ComboBox1.Items.AddObject(Table1.FieldValues['Name'],TObject(Integer(Table1.FieldValues['Row_ID'])));
   end;
end;

Выводит следующую ошибку

---------------------------
Debugger Exception Notification
---------------------------
Project Stundu_sarakstu_izmainas.exe raised exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type (Integer)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Я не знаю как конвертировать данные, подскажите)

Добавлено через 1 минуту
Поставил другое поле получи в ответ

---------------------------
Debugger Exception Notification
---------------------------
Project Stundu_sarakstu_izmainas.exe raised exception class EVariantTypeCastError with message 'Could not convert variant of type (String) into type (Boolean)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Добавлено через 2 минуты
В первом случае я понимаю что он ругается что поле пустое, но к примеру первая строчка пустая, а остальные заполнены, он ведь должен вывести те которые заполнены, но ругается

@Vabos · 29.03.2013, 16:08

Первое сообщение говорит о том, что в переменную String пытаемся положить ничего. Второе, что несоответствуют типы. Проверяй внимательно что и куда кладешь из базы, вместо номеров полей лучше использовать их названия (см. выше). То, что я написал не подразумевает наличие NULL в базе. Это нужно обрабатывать. Примерно так:

Delphi
1
if VarIsNULL(Table1.FieldValues['MyField']) then {...} else {...} end;

Еще проверь, что нумерация строк в таблице идет не с нуля (я писал по памяти, вроде с 1, но проверь).

@rdama · 29.03.2013, 16:25

Может будем использовать поиск на форуме?
На первой странице еще и выше вашего поста.
Combobox со значениями таблицы Access (Delphi)
Совсем обленились!

Новые блоги и статьи Все статьи Все блоги /
Инструменты 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 - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@rdama 569 / 292 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	29.03.2013, 16:25
	Может будем использовать поиск на форуме? На первой странице еще и выше вашего поста. Combobox со значениями таблицы Access (Delphi) Совсем обленились! 0