Delphi. MySQL. Копирование записи

Часто встречается такая задача, чтобы не искать долго по интернетам, решил вывести её решение в отдельный пост. Решение задачи базируется на удобной возможности MySQL Insert… Select…

//---------------------------------Копирование записей в БД-----------------------------

function CopyRecordInDB(SourceID: integer): integer;
var 
  qSelectInsert: TFDQuery; 
  qGetKey: TFDQuery;
begin
 qSelectInsert := TFDQuery.Create(nil);
  try
    qSelectInsert.Connection := FDConnection; 
    qSelectInsert.SQL.Text:=
      'INSERT INTO `treeview_db`.`tree`'+
      '(`IdParent`,'+
      '`Name`,'+
      '`Index`,'+
      '`isChecked`,'+
      '`IsExpanded`,'+
      '`Level`,'+
      '`IsFolder`)'+

      'SELECT'+
      '`IdParent`,'+
      '`Name`,'+
      '`Index`,'+
      '`isChecked`,'+
      '`IsExpanded`,'+
      '`Level`,'+
      '`IsFolder`'+
      ' from'+
      '`treeview_db`.`tree` where id = :id' ;

     qSelectInsert.Params.ParamValues['id'] := SourceId;
     qSelectInsert.ExecSQL;
  finally 
    qSelectInsert.Free;
  end; 
end;

//---------------------------------Копирование записей в БД-----------------------------

function CopyRecordInDB(SourceID: integer): integer;

var

qSelectInsert: TFDQuery;

qGetKey: TFDQuery;

begin

qSelectInsert := TFDQuery.Create(nil);

try

qSelectInsert.Connection := FDConnection;

qSelectInsert.SQL.Text:=

'INSERT INTO `treeview_db`.`tree`'+

'(`IdParent`,'+

'`Name`,'+

'`Index`,'+

'`isChecked`,'+

'`IsExpanded`,'+

'`Level`,'+

'`IsFolder`)'+

'SELECT'+

'`IdParent`,'+

'`Name`,'+

'`Index`,'+

'`isChecked`,'+

'`IsExpanded`,'+

'`Level`,'+

'`IsFolder`'+

' from'+

'`treeview_db`.`tree` where id = :id' ;

qSelectInsert.Params.ParamValues['id'] := SourceId;

qSelectInsert.ExecSQL;

finally

qSelectInsert.Free;

end;

This entry was posted in Delphi, MySQL. Bookmark the permalink.

Delphi. MySQL. Копирование записи

MY PROJECTS

Recent Posts

Categories