Заполнение ListView из БД

@klausteam · Регистрация: 08.04.2016

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

Написал вот такой код, но при запуске программы ListView не заполняется а программа выдает ошибку.

Delphi

with ibQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM DOCS');
    Open;
    First;
    ListVIew1.Items.BeginUpdate;
    try
      ListView1.Clear;
      while not Eof do
      begin
       with ListView do
       begin
        ViewStyle := vsReport;
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Наименование';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Тип';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Дата создания';
      end;
  Item := ListView1.Items.Add;
  Item.Caption := ibquery1.FieldByName('NAMEDOC').AsString;
  Item.SubItems.Add(ibquery1.FieldByName('TYPEDOC').AsString);
  Item.SubItems.Add(ibquery1.FieldByName('DATADOC').AsString);
end;
    finally
      ListView1.Items.EndUpdate;
    end;
  end;

@qwertehok · 11.04.2016, 15:03

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

а программа выдает ошибку

какую?

Добавлено через 2 минуты
ааааааааа, смотрите

Delphi

with ibQuery1 do
begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM DOCS');
    Open;
        with ListView do
        begin
            ViewStyle := vsReport;
            NewColumn := Columns.Add;
            NewColumn.Caption := 'Наименование';
            NewColumn := Columns.Add;
            NewColumn.Caption := 'Тип';
            NewColumn := Columns.Add;
            NewColumn.Caption := 'Дата создания';
        end;
 
    ListVIew1.Items.BeginUpdate;
    try
    ListView1.Clear;
    while not Eof do
    begin
        Item := ListView1.Items.Add;
        Item.Caption := ibquery1.FieldByName('NAMEDOC').AsString;
        Item.SubItems.Add(ibquery1.FieldByName('TYPEDOC').AsString);
        Item.SubItems.Add(ibquery1.FieldByName('DATADOC').AsString);
        query.next;
    end;
finally
ListView1.Items.EndUpdate;
end;
end;

Добавлено через 1 минуту
делаем OPEN
формируем колонки
а далее закручиваем цикл в котором заполняем ПОСТРОЧНО
заполнили строку и делаем Query.Next для перехода на другую строки и опять заполняем колонки

@klausteam · 11.04.2016, 16:23 **[ТС]**

Вот

@klausteam · 11.04.2016, 16:27 **[ТС]**

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

делаем OPEN
формируем колонки
а далее закручиваем цикл в котором заполняем ПОСТРОЧНО
заполнили строку и делаем Query.Next для перехода на другую строки и опять заполняем колонки

OPEN у меня стоял, а вот NEXT я действительно пропустил, сейчас попробую.......

@qwertehok · 11.04.2016, 16:30

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

а вот NEXT я действительно пропустил

ты еще зачем то в цикле стал колонки добавлять
а зачем?

@klausteam · 11.04.2016, 16:36 **[ТС]**

И все равно выскакивает это сообщение.

Добавлено через 3 минуты

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

ты еще зачем то в цикле стал колонки добавлять
а зачем?

Писал по примеру, вот и решил сначала написать ВСЁ как в примере чтобы посмотреть как оно работает, а потом уже выбрать то что нужно. Но он вообще никак не заработал(((

@qwertehok · 11.04.2016, 16:37

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

@klausteam · 11.04.2016, 16:45 **[ТС]**

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

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

Теги это пояснения того что я хотел добиться той или иной строчкой кода?)))

@qwertehok · 11.04.2016, 16:47

нет, теги это разметка кода что бы понятней было

@klausteam · 11.04.2016, 16:54 **[ТС]**

Delphi

with ibQuery1 do
begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM DOCS');
    Open;
 
       { with ListView do     //Если убрать скобки именно этот блок будет выдавать ошибку
        begin
            ViewStyle := vsReport;
            NewColumn := Columns.Add;
            NewColumn.Caption := 'Наименование';
            NewColumn := Columns.Add;
            NewColumn.Caption := 'Тип';
            NewColumn := Columns.Add;
            NewColumn.Caption := 'Дата создания';
        end;  }
 
    ListVIew1.Items.BeginUpdate;
    try
    ListView1.Clear;
    while not Eof do
    begin
        Item := ListView1.Items.Add;
        Item.Caption := ibquery1.FieldByName('NAMEDOC').AsString;
        Item.SubItems.Add(ibquery1.FieldByName('TYPEDOC').AsString);
        Item.SubItems.Add(ibquery1.FieldByName('DATEDOC').AsString);
        ibquery1.next;
    end;
finally
ListView1.Items.EndUpdate;
end;
end;

Вот в таком исполнении он заполняет в ListView только одно значение из БД по полю NAMEDOC.

@qwertehok · 11.04.2016, 17:07

я делал так

Delphi

ListView1.Items.Clear;
 
    while not q.Eof do
    begin
      with ListView1.Items.Add do
      begin
        Caption:=q.Fields[0].AsString;
        SubItems.Add(q.Fields[1].AsString);
      end;
      q.Next;
    end;

и все работает

@klausteam · 11.04.2016, 17:18 **[ТС]**

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

и все работает

такая же история, вставляет только первое значение указанное в таблице БД.

@qwertehok · 11.04.2016, 17:22

мой код работает 100%

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

вставляет только первое значение указанное в таблице БД.

или создается только один элемент ListView, а остальные пишет в пустоту

@klausteam · 11.04.2016, 17:28 **[ТС]**

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

мой код работает 100%

Это я сомнению не подвергаю, так как мой то вообще не работал., а тут движка в нужном направлении.

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

или создается только один элемент ListView, а остальные пишет в пустоту

Скорее всего так и происходит. У меня ещё вот какая засада. На ListView ViewStyle стоит vsIcon, если я его меняю на vsReport, то он мне и первого элемента не прописывает.

@qwertehok · 11.04.2016, 17:36

предлагаю разобраться в работе ListView - научиться добавлять и удалять элементы
а потом уже заполнять его данными из БД

@klausteam · 11.04.2016, 17:45 **[ТС]**

В том то всё и дело, что через эдиты он нормально заполняется, а как БД так труба

@qwertehok · 11.04.2016, 17:48

вставьте уже мой код в вашу "программу"
и в режиме report все будет работать

@klausteam · 11.04.2016, 18:49 **[ТС]**

Delphi

with ibQuery1 do
begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM DOCS');
    Open;
    ListView1.Items.Clear;
    while not ibquery1.Eof do
      begin
         with ListView1.Items.Add do
      begin
        Caption:=ibquery1.Fields[0].AsString;
        SubItems.Add(ibquery1.Fields[1].AsString);
      end;
      ibquery1.Next;
    end;
end;

То ли лыжи не едут то ли я недалекий. Но вот этот код в моей программе на Reporte не работает вовсе.

Добавлено через 48 минут

Delphi

var
  Item: TListItem;
begin
  Item := ListView1.Items.Add;
  Item.Caption := Edit1.Text;
  Item.SubItems.Add(Edit2.Text);
  Item.SubItems.Add(Edit3.Text);
  end;

Вот так заполняет за милую душу, но как только едиты меняются на SQL? вся гармония пропадает((((

@qwertehok · 11.04.2016, 20:31

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

на Reporte не работает вовсе.

для того что бы узнать что происходит воспользуйтесь отладчиком

@klausteam · 11.04.2016, 21:55 **[ТС]**

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

для того что бы узнать что происходит воспользуйтесь отладчиком

Я не могу понять на какой строке программы брейк поставить)))) Я с отладчиком еще меньше знаком чем с листом с которым бьюсь уже целый день.

Добавлено через 59 минут

Delphi

begin
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM DOCS');
    Open;
    ListView1.Items.Clear;
    while not IBQuery1.Eof do
    begin
      with ListView1.Items.Add do
      begin
        Caption := IBQuery1.Fields[0].AsString;
        SubItems.Add(IBQuery1.Fields[1].AsString);
      end;
      IBQuery1.Next;
    end;
  end;

Поставил точку на Next И вот что получается,Caption почему то принимает значение названия формы.
IBQuery1.Fields[0].AsString;
SubItems.Add(IBQuery1.Fields[1].AsString); Заполняются значениями из таблицы, но в ListView они почему то не заносятся.

Добавлено через 3 минуты
Так же попробовал поставить ShowMessage(Caption) в 15 строчку и получается что выводится сообщение с названием формы а не со значением IBQuery1.Fields[0].AsString;

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	11.04.2016, 17:18 [ТС]	12
	Сообщение от qwertehok и все работает такая же история, вставляет только первое значение указанное в таблице БД. 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	11.04.2016, 17:22	13
	мой код работает 100% Сообщение от klausteam вставляет только первое значение указанное в таблице БД. или создается только один элемент ListView, а остальные пишет в пустоту 0

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	11.04.2016, 17:28 [ТС]	14
	Сообщение от qwertehok мой код работает 100% Это я сомнению не подвергаю, так как мой то вообще не работал., а тут движка в нужном направлении. Сообщение от qwertehok или создается только один элемент ListView, а остальные пишет в пустоту Скорее всего так и происходит. У меня ещё вот какая засада. На ListView ViewStyle стоит vsIcon, если я его меняю на vsReport, то он мне и первого элемента не прописывает. 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	11.04.2016, 20:31	19
	Сообщение от klausteam на Reporte не работает вовсе. для того что бы узнать что происходит воспользуйтесь отладчиком 0

Новые блоги и статьи
Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	11.04.2016, 16:23 [ТС]	3
	Вот Миниатюры 0

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	11.04.2016, 16:27 [ТС]	4
	Сообщение от qwertehok делаем OPEN формируем колонки а далее закручиваем цикл в котором заполняем ПОСТРОЧНО заполнили строку и делаем Query.Next для перехода на другую строки и опять заполняем колонки OPEN у меня стоял, а вот NEXT я действительно пропустил, сейчас попробую....... 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	11.04.2016, 16:30	5
	Сообщение от klausteam а вот NEXT я действительно пропустил ты еще зачем то в цикле стал колонки добавлять а зачем? 0

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	11.04.2016, 16:36 [ТС]	6
	И все равно выскакивает это сообщение. Добавлено через 3 минуты Сообщение от qwertehok ты еще зачем то в цикле стал колонки добавлять а зачем? Писал по примеру, вот и решил сначала написать ВСЁ как в примере чтобы посмотреть как оно работает, а потом уже выбрать то что нужно. Но он вообще никак не заработал((( 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	11.04.2016, 16:37	7
	еще раз покажи с новыми исправлениями только не забудь теги поставить 0

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	11.04.2016, 16:45 [ТС]	8
	Сообщение от qwertehok еще раз покажи с новыми исправлениями только не забудь теги поставить Теги это пояснения того что я хотел добиться той или иной строчкой кода?))) 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	11.04.2016, 16:47	9
	нет, теги это разметка кода что бы понятней было 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	11.04.2016, 17:36	15
	предлагаю разобраться в работе ListView - научиться добавлять и удалять элементы а потом уже заполнять его данными из БД 0

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	11.04.2016, 17:45 [ТС]	16
	В том то всё и дело, что через эдиты он нормально заполняется, а как БД так труба 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	11.04.2016, 17:48	17
	вставьте уже мой код в вашу "программу" и в режиме report все будет работать 0