Заполнение 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, 21:58

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

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

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

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

Хорошо. DBGrid кстати заполняется без проблем, но попробую со стрингом поэксперементировать.

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

Delphi

begin
 with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM DOCS');
    Open;
      while not IBQuery1.Eof do
    begin
StringGrid1.Cells[1,1]:=IBQuery1.FieldByName('NAMEDOC').AsString;
StringGrid1.Cells[2,1]:=IBQuery1.FieldByName('TYPEDOC').AsString;
StringGrid1.Cells[3,1]:=IBQuery1.FieldByName('DATEDOC').AsString;
     ibQuery1.Next;
    end;
  end

Простенько, но для проверки сойдет вполне. Заполняет он стринггрид растудыть его туды. А лист не хочет(((

Добавлено через 5 минут
В твоем коде даже попробовал Fields на FieldByName поменять и всё осталось на прежнем уровне(((((

Добавлено через 41 секунду
Складывается такое впечатление что истина где то рядом.....

@Пытливый · 12.04.2016, 00:58

ListView несколько необычно заполняется:

Delphi

Var i: Integer;
begin
 for i := 0 to ADOQuery1.Fields.Count - 1
 do with ListView1.Columns.Add
    do Caption := ADOQuery1.Fields[i].FieldName;
 
 while not ADOQuery1.Eof
 do begin
    with ListView1.Items.Add
    do for i := 0 to ADOQuery1.Fields.Count - 1
       do if i = 0
          then Caption := ADOQuery1.Fields[i].AsString
          else SubItems.Add(ADOQuery1.Fields[i].AsString);
    ADOQuery1.Next;
    end;
end;

@klausteam · 12.04.2016, 01:47 **[ТС]**

Сообщение от Пытливый

ListView несколько необычно заполняется:

Сработало. Спасибо огромное заполнилось. Интересно, а шапку этой таблицы можно переименовать с англицкого на русский, или это проще в IBExperte сделать будет?

@Пытливый · 12.04.2016, 19:24

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

@klausteam · 13.04.2016, 20:31 **[ТС]**

Сообщение от Пытливый

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

Спасибо я обязательно воспользуюсь этим.

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

Сообщение от Пытливый

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

Кстати, ещё вопрос, а как сделать так чтобы ширина полей подгонялись под значение в них, а то раздвигать каждый раз неудобно

@qwertehok · 13.04.2016, 21:45

при чтении очередной строки брать ее размер и проверять на max, в конце расширить до max

@klausteam · 13.04.2016, 22:04 **[ТС]**

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

при чтении очередной строки брать ее размер и проверять на max, в конце расширить до max

Надо только разобраться как это работает)))))

@Пытливый · 14.04.2016, 19:42

Ну вот вам вариант с автоподбором ширины колонок:

Delphi

Var i: Integer;
begin
 for i := 0 to ADOQuery1.Fields.Count - 1
 do with ListView1.Columns.Add
    do Caption := ADOQuery1.Fields[i].FieldName;
 
 while not ADOQuery1.Eof
 do begin
    with ListView1.Items.Add
    do begin
       for i := 0 to ADOQuery1.Fields.Count - 1
       do begin
          if i = 0
          then Caption := ADOQuery1.Fields[i].AsString
          else SubItems.Add(ADOQuery1.Fields[i].AsString);
          if Canvas.TextWidth('@' + ADOQuery1.Fields[i].AsString + '@') > ListView1.Columns[i].Width
          then ListView1.Columns[i].Width := Canvas.TextWidth('@' + ADOQuery1.Fields[i].AsString + '@');
          end;
       end;
    ADOQuery1.Next;
    end;
end;

@klausteam · 15.04.2016, 01:00 **[ТС]**

Сообщение от Пытливый

Ну вот вам вариант с автоподбором ширины колонок:

Delphi

[DELPHI] with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM VLADEL');
    Open;
    ListView1.Columns.Add.Caption:= 'Фамилия';
    ListView1.Columns.Add.Caption:= 'Имя';
    ListView1.Columns.Add.Caption:= 'Отчество';
    ListView1.Columns.Add.Caption:= 'Адрес';
    ListView1.Columns.Add.Caption:= 'Телефон';
 while not IBQuery1.Eof
 do begin
    with ListView1.Items.Add
    do begin
      for i := 2 to IBQuery1.Fields.Count - 1
       do begin
         if i = 2
          then Caption := IBQuery1.Fields[i].AsString
          else SubItems.Add(IBQuery1.Fields[i].AsString);
          if Canvas.TextWidth('@' + IBQuery1.Fields[i].AsString + '@') > ListView1.Columns[i].Width
         then ListView1.Columns[i].Width := Canvas.TextWidth('@' + IBQuery1.Fields[i].AsString + '@');
          end;
       end;
    IBQuery1.Next;
     end;
    end;

[/DELPHI]
В моем случае это выглядит вот так, но оно не работает пишет что List index out of bounds(5)

Добавлено через 43 минуты
Я понял, раз я рисую колонки сам,то мне надо их вывести в отдельную переменную и тогда всё получится........наверное)))))

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

Delphi

  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM VLADEL');
    Open;
    ListView1.Columns.Add.Caption:= 'Фамилия';
    ListView1.Columns.Add.Caption:= 'Имя';
    ListView1.Columns.Add.Caption:= 'Отчество';
    ListView1.Columns.Add.Caption:= 'Адрес';
    ListView1.Columns.Add.Caption:= 'Телефон';
 while not IBQuery1.Eof
 do begin
    with ListView1.Items.Add
    do begin
      for i := 2 to IBQuery1.Fields.Count - 1
       do begin
         if i = 2
          then Caption := IBQuery1.Fields[i].AsString
          else SubItems.Add(IBQuery1.Fields[i].AsString);
          for j := 0 to ListView1.Columns.Count-1 do
          if Canvas.TextWidth('@' + IBQuery1.Fields[i].AsString + '@') > ListView1.Columns[j].Width
         then ListView1.Columns[j].Width := Canvas.TextWidth('@' + IBQuery1.Fields[i].AsString + '@');
          end;
       end;
         IBQuery1.Next;
 
    end;
     end;

Вот так оно работает)))) Спасибо всем огромное я начинаю понимать то что я делаю, пусть и немного)))

Добавлено через 2 минуты
тему можно закрывать

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,373
	12.04.2016, 19:24	25
	Можно конечно, первый цикл берет названия полей в качестве заголовков, вы можете индивидуально задать каждому столбцу свое название не используя цикл. 1

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	13.04.2016, 20:31 [ТС]	26
	Сообщение от Пытливый Можно конечно, первый цикл берет названия полей в качестве заголовков, вы можете индивидуально задать каждому столбцу свое название не используя цикл. Спасибо я обязательно воспользуюсь этим. Добавлено через 4 минуты Сообщение от Пытливый Можно конечно, первый цикл берет названия полей в качестве заголовков, вы можете индивидуально задать каждому столбцу свое название не используя цикл. Кстати, ещё вопрос, а как сделать так чтобы ширина полей подгонялись под значение в них, а то раздвигать каждый раз неудобно 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	13.04.2016, 21:45	27
	при чтении очередной строки брать ее размер и проверять на max, в конце расширить до max 0

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	13.04.2016, 22:04 [ТС]	28
	Сообщение от qwertehok при чтении очередной строки брать ее размер и проверять на max, в конце расширить до max Надо только разобраться как это работает))))) 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	11.04.2016, 21:58	21
	поставь стринггрид, заполни его 0

@klausteam 3 / 3 / 1 Регистрация: 08.04.2016 Сообщений: 79
	12.04.2016, 01:47 [ТС]	24
	Сообщение от Пытливый ListView несколько необычно заполняется: Сработало. Спасибо огромное заполнилось. Интересно, а шапку этой таблицы можно переименовать с англицкого на русский, или это проще в IBExperte сделать будет? 0

	15.04.2016, 01:00

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

Решение