Перенос данных из StringGrid-а в DBGrid

[artemavd]

Как сделать чтобы по нажатию кнопки данные заносились из StringGrid-а в DBGrid?

[Rik]

DBGrid не может хранить данные, он только отображает содержимое DataSet'a. Из StringGrid данные нужно перенести в базу данных, в крайнем случае, в какой-нибудь виртуальный набор данных, не связанный с физической таблицей базы данных...

[artemavd]

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

DBGrid не может хранить данные, он только отображает содержимое DataSet'a. Из StringGrid данные нужно перенести в базу данных, в крайнем случае, в какой-нибудь виртуальный набор данных, не связанный с физической таблицей базы данных...

не могли бы вы помочь с кодом как это сделать? очень нужно.

[Dark_Spirit]

  table1.Append;
  table1.Edit;
  table1.FieldByName('<name1>').AsString:=stringgrid1.cells[1,1];
  table1.post;
  table1.Refresh;

остальное я думаю сами придумаете

[artemavd]

Попробовал такой код:

 Table1.Append;
 Table1.Edit;
 Table1.FieldByName('№').AsString:=Form1.SG9.Cells[0,1];
 Table1.Post;
 Table1.Refresh;

но при нажатии на кнопку появляется ошибка: "Tabel1: Field '№' not found". В чем моя ошибка?

[Stilet]

А в том что у тебя поле явно по другому называется.
И еще - не называй поля русскими словами, Делфи это не любит

[artemavd]

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

А в том что у тебя поле явно по другому называется.

Ээ...в StringGride?

[Stilet]

В FieldByName и в Базе

[artemavd]

Хорошо Спасибо ребята, с этим я разобрался) А как сделать, чтобы в dbgrid заносилась не одна строчка, а столько строчек, сколько заполненных у меня их в stringgrid-e? А то если заполненны скажем две, то в dbgrid ниче не заносится, а если одна, то все отлично заносится. Как это сделать? Нужен какой то цикл?

[artemavd]

Вот, сделал так:

var
 i:integer;
begin
 for i:=1 to 25 do
 begin
 Table1.Append;
 Table1.Edit;
 Table1.FieldByName('№').AsString:=Form1.SG9.Cells[0,i];
 Table1.FieldByName('Фамилия Имя Отчество').AsString:=Form1.SG9.Cells    
 [1,i];
 Table1.FieldByName('2-ки').AsString:=Form1.SG9.Cells[2,i];
 Table1.FieldByName('3-ки').AsString:=Form1.SG9.Cells[3,i];
 Table1.FieldByName('4-ки').AsString:=Form1.SG9.Cells[4,i];
 Table1.FieldByName('5-ки').AsString:=Form1.SG9.Cells[5,i];
 Table1.FieldByName('КО').AsString:=Form1.SG9.Cells[6,i];
 Table1.FieldByName('СБ').AsString:=Form1.SG9.Cells[7,i];
 Table1.FieldByName('КУ').AsString:=Form1.SG9.Cells[8,i];
 Table1.FieldByName('У').AsString:=Form1.SG9.Cells[9,i];
 Table1.FieldByName('О').AsString:=Form1.SG9.Cells[10,i];
 Table1.FieldByName('ЧО').AsString:=Form1.SG9.Cells[11,i];
 Table1.Post;
 Table1.Refresh;
 end;

Все отлично добавляет . Но есть одна неполадка. Вообщем как сделать, чтобы пустые строки не добавлялись? Сделать цикл на проверку пустоты?