Daily Archives: 14.04.2016

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

Posted on 14.04.2016 by Stanislav_Panteleev

Часто встречается такая задача, чтобы не искать долго по интернетам, решил вывести её решение в отдельный пост. Решение задачи базируется на удобной возможности 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;

Posted in Delphi, MySQL | Comments Off

Delphi. Иерархические данные. DBTreeView своими руками. Копирование узлов в TreeView с сохранением структуры

Posted on 14.04.2016 by Stanislav_Panteleev

Это продолжение статьи про копирование узлов. В прошлом посте копировали иерархические записи в БД, в данном посте – будем обновлять узел в который вставляли скопированные записи. Эти 2 части – БД и TreeView должны работать синхронно – в этом самая … Continue reading →

Posted in Delphi, Деревья | Comments Off

Delphi. Иерархические данные. DBTreeView своими руками. Копирование записей в БД с сохранением структуры

Posted on 14.04.2016 by Stanislav_Panteleev

В данной статье посмотрим как копировать записи иерархических структур в DBTreeView, который мы уже на протяжении нескольких статей создаем своими руками. В этом посте только копирование записей в базе. В следующей добавлю обновление в дереве. Для меня задача оказалась нетривиальной. … Continue reading →

Posted in Delphi, Без рубрики, Деревья | Comments Off

Daily Archives: 14.04.2016

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

Delphi. Иерархические данные. DBTreeView своими руками. Копирование узлов в TreeView с сохранением структуры

Delphi. Иерархические данные. DBTreeView своими руками. Копирование записей в БД с сохранением структуры

MY PROJECTS

Recent Posts

Categories