Delphi - 复制在 DBGrid 上选择的记录并将其插入到另一个 ADO 表中

问题描述

所以我试图将某个选定的记录/活动记录从 DBGrid（当然它通过 TDataSource 组件连接到一个 ADO 表）复制到另一个 ADO 表中，但我不知道如何处理这个？

涉及的两个数据库完全一样，只是名称和用途不同。

预先感谢您的帮助！

亲切的问候 PrimeBeat

解决方法

procedure TfrmEntry.Copy(tblSource: TADOTable; tblDest: TADOTable);
var
  i:integer;
begin
    tblDest.Open;
    tblDest.Append;
    tblSource.Open;
    for i := 0 to tblSource.FieldCount -1 do
    begin
        tblDest.Fields[i].AsString := tblSource.Fields[i].AsString;
    end;
    tblDest.Post;
end;