[Ekler1]

Может кто кодом поделится (если есть, конечно )
У меня в одной базе данных (Access) две таблицы, они одинаковые отображаются в dbgrid1 и dbgrid2 в первом гриде данные заполняются, в второй грид надо переносить записи из первого которые уже не нужны, ну тоесть из таблицы 1 в таблицу 2 по кнопке

[NumLock]

Use Append/Post на втором наборе.

[Ekler1]

Код:

procedure TForm2.Button3Click(Sender: TObject);
begin
try
form2.ADOQuery2.SQL.Clear;
form2.ADOQuery2.SQL.Add('INSERT INTO zakazKLGOTOV SELECT * FROM ZakazKL');
form2.ADOQuery2.ExecSQL;
form2.ADOQuery1.SQL.Clear;
form2.ADOQuery1.SQL.Add('SELECT * FROM ZakazKLGOTOV');
form2.ADOQuery1.Active:=True;
except
on e:Exception do
end;

Нашел вот такой способ,под себя подправил, по описанию для чего - подходит. Вот только не работает(

[Ekler1]

Может кто поможет сделать это все без SQL, сил шарить просторы интернета уже нету(

[Alegun]

Оффтоп:

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

[lmikle]

Ну, например так:

Код:

ADOQuery2.Append;
For I := 0 To ADOQuery1.Fields.Count-1 Do
  ADOQuery2.Fields[i].Value := ADOQuery1.Fields[i].Value;
ADOQuery2.Post;

Это если кол-во и порядок полей одинаков и нет BLOB полей + надо сделать ADOQuery2 редактируемым. Если хоть одно условие не выполняется, то надо больше информации. Что-то всегда можно придумать.