• Registered: 2020-03-31
  • Posts: 233

Topic: Save Record

Any one can help? Is it possible to save records on a tablegrid to another table? How can it be?

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Save Record

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if (Form1.TableGrid2.SelectedRow>-1) then
  begin
    SQLExecute('INSERT INTO q(a)VALUES("'+ SQLExecute('SELECT a FROM w WHERE id='+ Form1.TableGrid2.sqlValue ) +'")');
    SQLExecute('DELETE FROM w WHERE id='+ Form1.TableGrid2.sqlValue);
    Form1.TableGrid1.dbUpdate;
    Form1.TableGrid2.dbUpdate;
  end;
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if (Form1.TableGrid1.SelectedRow>-1) then
  begin
    SQLExecute('INSERT INTO w(a)VALUES("'+ SQLExecute('SELECT a FROM q WHERE id='+ Form1.TableGrid1.sqlValue ) +'")');
    SQLExecute('DELETE FROM q WHERE id='+ Form1.TableGrid1.sqlValue);
    Form1.TableGrid1.dbUpdate;
    Form1.TableGrid2.dbUpdate;
  end;
end;
Post's attachments

Attachment icon test.rar 3.77 kb, 155 downloads since 2021-09-07