delphi tree 從乙個表複製到另乙個表

2021-08-23 15:35:48 字數 749 閱讀 3291

由於 tree從源表複製到目標表的id號與parent會變化,故不能單純的複製資料,還要將id與parent的結構關係複製到目標表。

因此我們用遞迴操作。

由於 myquery 的資料會變動,我們要實時建立myquery 。

下面是 delphi tree 從乙個表複製到另乙個表 的遞迴原始碼:

procedure tfrm_sysdepasmanager.copytree(socparent, desparent: integer); //樹遞迴複製過程

varmyquery: tadoquery;

mysoc, mydes: integer;

begin

myquery := tadoquery.create(nil);

trymyquery.connection := frmdata.adoconnection1;

myquery.active := false;

myquery.sql.clear;

myquery.sql.add('select * from lcconstdepa where parent=' + inttostr(socparent));

myquery.active := true;

//插記錄

copytree(mysoc, mydes);

myquery.next;

end;

finally

myquery.free;

end;

end;

從乙個表複製到另乙個表

insert into select語句 語句形式為 insert into table2 field1,field2,select value1,value2,from table1 要求目標表table2必須存在,由於目標表table2已經存在,所以我們除了插入源表table1的字段外,還可以插...

儲存過程批量從乙個表插入到另乙個表

create proc yscx insert scuserid int scyy nvarchar 500 jmbh varchar 50 result int output asdeclare sqlinsert varchar 500 sqldelete varchar 500 begin t...

mysql 從乙個表中查資料,插入另乙個表

類別一 如果兩張張表 匯出表和目標表 的字段一致,並且希望插入全部資料,可以用這種方法 insert into 目標表select from 表 例如,要將 articles 表插入到 newarticles 表中,則可以通過如下sql語句實現 insert into newarticles sel...