Добавление записи из одного DBGrid в другой DBGrid c помощью кнопки, а также удаление записи

[Evgen7]

Всем привет!Делаю БД в связке ADO+Access2007+Delphi.
В общем поставил ADOConnection(он на другой форме(Form2)).
На форме Form3 ADODataSet, DataSource, DBGrid, SpeedButton.
Данные в DBGrid2 отображаются, осталось сделать кнопку на добавление записи, в другой DBGrid1, который находится Form2. Насчет удаления,кнопка для удаления записи в DBGrid1, в которую добавляю.
Наведите на путь истинный.Спасибо. P.s(Пишу программу на диплом, с Delphi и остальным мало знаком, так что не серчайте).

[Streletz]

другой DBGrid1, который находится Form2

Как он соединён с БД?

[Evgen7]

Вообщем на одной форме(Form1) DBGrid1,DataSource1,ADODataSet1,ADO Connection, который подсоединен к БД Access2007 через провайдер и кнопка 'Удалить запись'.
На той же форме кнопка вызова второй формы(Form2), в этой форме находится DBGrid2,кнопка 'Добавить запись', которая должна добавить запись в DBGrid1 , также в этой форме ADODataSet2 и DataSource2.
AdoConnection только на Form1 и Компоненты Form2 подключаются к нему самому.

[Streletz]

У ADODataset есть методы Insert и Delete. В простейшем случае можно воспользоваться ими.
Если структура данных сложная, то лучше использовать SQL запрос, через ADOQuery или ADOCommand.

[Evgen7]

По поводу методов Insert и Delete.Можно поподробнее.Не могу пока в инете нарыть(.

[Stilet]

with DBGrid1.DataSource.DataSet do begin
 insert;
 for i:=0 to FieldsCount-1 do
  Fields[i].value:=DBGrid2.DataSource.DataSet.Fields[i].value;
 ...
 Post; // это если нужно добавленное сразу сохранить.
end;

Пример создает новую запись в таблице связанной с DBGrid1, перетаскавая в нее все поля из текущей записи таблицы в DBGrid2
Идея ясна?

[Evgen7]

Идею понял.Вот только код куды?)И процедурку каку?Я сильно разбираюсь просто.Извините.

[Dark_Spirit]

Идею понял.Вот только код куды?)И процедурку каку?Я сильно разбираюсь просто.Извините.

ну как куды.... на батон который переносит запись с одной таблицы в другую

[Evgen7]

procedure TForm3.SpeedButton1Click(Sender: TObject);
var i,FieldsCount:integer;
begin
with DBGrid1.DataSource.DataSet do begin
insert;
for i:=0 to FieldsCount-1 do
Fields[i].value:=DBGrid2.DataSource.DataSet. Fields[i].value;

Этот код на Form3
На последней строке ругается.
У vtyz на каждой форме все компоненты называются с единицы(то есть DB....1)
Похоже нужно что-то на Form2 написать.
Пока не разберусь.

[Dark_Spirit]

Fields[i].value:=DBGrid2.DataSource.DataSet. Fields[i].value;

Этот код на Form3
На последней строке ругается.

если у тебя DBGrid2 на Form2, тогда поменяй строку на которую ругается на:

:=Form2.DBGrid2.DataSource.DataSet. Fields[i].value;