Данные из БД (dataset) в tstringgrid

[fezilk25]

Необходимо из DataGrid скопировать полностью всю таблицу в tstringgrid, помогите, пожалуйста, как это сделать?

еще.. в DataGrid отображается 5 строк + 1 строка-хеадер и 2 колонки, но процедура dbgrid1.DataSource.DataSet.Fields.C ount возвращает 3.. почему?

[=master=]

Потому что в датагриде данных нет, а в датасете есть.
Грид показывает то что ему сказали, а датасет имеет то что имеет.

[fezilk25]

да, но Fields.Count берется из датасета, а не из дбгрида

понял: в бд 3 колонки, а dbgrid не отображал одну из них.
Но как все-таки запихать эти данные из БД в TSTringGrid ?

[=master=]

dbgrid1.DataSource.DataSet.DisableControls;
dbgrid1.DataSource.DataSet.First;

  while not dbgrid1.DataSource.DataSet.Eof do
  begin
     StringGrid.RowCount := StringGrid.RowCount + 1;

    { тут перетягиваем данные из датасета в стринг грид, примерно так}
    StringGrid.Cells[0, StringGrid.RowCount - 1] := dbgrid1.DataSource.DataSet.Fields[0].AsString;
...............

    dbgrid1.DataSource.DataSet.Next;
  end;

dbgrid1.DataSource.DataSet.EnableControls;

[fezilk25]

Спасибо!
Подсказали еще один вариант, мб кому пригодится:

procedure TForm2.FormCreate(Sender: TObject);
var
i,d:integer;
begin
organizations.RowCount := zquery1.RecordCount + 1;
organizations.ColCount := zquery1.Fields.Count;
  for d := 1 to zquery1.RecordCount do
    begin
      for i:=0 to zquery1.Fields.Count-1 do
        begin
         organizations.cells[i,d]:=dbgrid1.DataSource.DataSet.fields[i].asstring;
        end;
      ZQuery1.RecNo := ZQuery1.RecNo + 1;
  end;
end;

organizations - имя таблицы TStringGrid,
Zquery - компонент для соединения с MySQL.

[=master=]

Это плохой вариант. На RecordCount закладываться чревато.
А что такое ZQuery1.RecNo := ZQuery1.RecNo + 1;. вообще не понятно.

[fezilk25]

Почему чревато?
ZQuery1.RecNo := ZQuery1.RecNo + 1; это переход к след. строке

[=master=]

Потому что RecordCount не всегда равен истиному значению количества записей.

[Аватар]

=master=, когда RecordCount не равен истиному значению количества записей?

[=master=]

http://docwiki.embarcadero.com/Libra...et.RecordCount