данные в StringGridе из базы данных accesa

[андрей56789]

приветствую вас, у меня проблема с переносом данных из DBGridа в StringGrid , проблема в том что переносится только одна строка, а не весь список как хотелось бы . Нажимая на кнопку "ДОБАВИТЬ ДАННЫЕ" из DBGridа переносится одна строка ВОТ КОД:

procedure TForm1.N9Click(Sender: TObject);
begin
  StringGrid1.Cells[0,0]:=Form4.DBGrid1.Columns[0].FieldName ; //номер
  StringGrid1.Cells[1,0]:=Form4.DBGrid1.Columns[1].FieldName ; //мест
  StringGrid1.Cells[2,0]:=Form4.DBGrid1.Columns[2].FieldName ; //цена

__________________________________________________
for i:=0 to Form4.ADOTable1.Fields.Count-1 do                 
StringGrid1.Cells[i,2]:=Form4.ADOTable1.fields[i].asstring;   
__________________________________________________
x:=StrToDate(DateToStr(Date));
z:=StrToTime(TimeToStr(Time));

for i:=3 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,0]:=DateToStr (x-4+i);
StringGrid1.Cells[4,0]:=DateToStr (x)+ ' *';
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[evg_m]

Для оформления кода есть кнопочка #

nrow:=2;
from4.adotable1.first; //становимся на первую запись
while not form4.adotable1.eof do begin // проходим по всем записям до конца
// здесь переносим данные из текущей записи
  for i:=0 to Form4.ADOTable1.Fields.Count-1 do
    StringGrid1.Cells[i,nrow]:=Form4.ADOTable1.fields[i].asstring; 
//////////////////////////////////////////////////
  form4.adotable1.next; // меняем текущую запись
end;

а лучше посмотрите на связку
DBGrid + Datasource + ADOtable
ADODataSet (или ADOQuery)

использовать компоненты одной формы (form4) в работе другой (form1) не есть хороший тон.

[андрей56789]

что то не получается из всего что перепробовал этот код более менее лучше , но все равно не то

for nrow:=2 to ADOTable1.Fields.Count do
adotable1.first; //становимся на первую запись
while not ADOTable1.Eof do begin // проходим по всем записям до конца
// здесь переносим данные из текущей записи
  for i:=0 to ADOTable1.Fields.Count-1 do
    StringGrid1.Cells[i,nrow]:=ADOTable1.fields[i].asstring;
//////////////////////////////////////////////////
 adotable1.next; // меняем текущую запись
end;

даже на одной форме пробовал делать , да и я еще не очень как программист

[evg_m]

////// for nrow:=2 to ADOTable1.Fields.Count do
nrow:=2;
adotable1.first; //становимся на первую запись
while not ADOTable1.Eof do begin // проходим по всем записям до конца
// здесь переносим данные из текущей записи
  for i:=0 to ADOTable1.Fields.Count-1 do
    StringGrid1.Cells[i,nrow]:=ADOTable1.fields[i].asstring;
//////////////////////////////////////////////////
 adotable1.next; // меняем текущую запись
  nrow:=nrow+1;  вот ключевая (забытая в предыдущем примере)
end;
StringGrid1.rowcount:=nrow +1; // и еще одна полезная строчка