Перенос данных из одной таблицы в другую

[FtorKlork]

У меня две таблицы на разных формах. Как сделать так чтобы при вводе данных и сохранении их в одну таблицу они заносились в другую таблицу

[xxbesoxx]

У меня две таблицы на разных формах.

какая разница на разных или на одну , У вас не таблица на разных формах вы отображайте запись на разных форме с помощью dbgrid да ? ,

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

Как вы сохраняйте на одну ? Вы разобрали как сохранить на первую таблицу ?

[Stilet]

они заносились в другую таблицу

А зачем, если не секрет, дублировать?

[FtorKlork]

вы отображайте запись на разных форме с помощью dbgrid да ? ,

Да и через DbEdit

Как вы сохраняйте на одну ?

Через DBNavigator. Просто заполняю таблицу в делфи.

А зачем, если не секрет, дублировать?

Есть две таблицы "Пользователь" и "Экзамен" В двух таблицах одинаковые поля(Фамилия,Имя,Отчество) дабы не вписывать их по несколько раз в две таблицы... хотелось бы сделать так чтобы при занесении данных в одну таблицу они заносились в другую.

[xxbesoxx]

Эти таблицы у вас Access да ? скажите пожалуйста если не секрет фирмы )

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

При нажатие кнопки

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery; // для выбора таблица " Пользователь "
    ADOQuery2: TADOQuery; //  это для Экзамен
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 { перенос данных из таблицу Пользователь в таблицу Экзамене !  только те записи
   который есть таблицу Пользователь и нету на Таблицу Экзамен }
begin
 with ADOQuery2 do
 begin
   Close;
   SQL.Text := 'INSERT INTO Экзамен  ( id, Familia, Imia, Otchestvo ) '+
               ' SELECT p.id, p.Familia, p.Imia, p.Otchestvo  '+
               ' FROM Пользователь p LEFT JOIN Экзамен ON P.id = Экзамен.id  '+
               ' WHERE (((Экзамен.id) is null));';
   ExecSQL;
 end;
 with ADOQuery2 do
 begin
   SQL.Text := 'SELECT * FROM Экзамен ';
   Open
 end;
end;

end.

[Человек_Борща]

А зачем, если не секрет, дублировать?

Скорее вопрос о синхронном обновлении данных. БД отнюдь не в один поток работает.
Где-то добавили данные в таблицу Table1, надо бы везде визуально обновить список. Я бы не копипастил код для всехгридов, а завел бы какое-нибудь виндовое сообщение:
MYAPP_UPDATETABLELOL
а затем броадкастом разослал бы всем окнам своего приложения. Те по получении выполнили бы SELECT повторно, усё.

[xxbesoxx]

Где-то добавили данные в таблицу Table1, надо бы везде визуально обновить список.

Если бы у него было нормальное СУБД можно все это реализовать сам на сервере , спомошую инструкции MERGE но я думаю у него Access или Paradox