rowscopy, 拷貝帶有自增字段的表

2024-07-21 02:33:59

字體：大中小

來源：轉載

供稿：網友

　?。?清除本地數據
　　
　　ls_sql1 = "TRUNCATE TABLE" + ls_table [1]
　　 execute IMMEDIATE :ls_sql1 using sqlca;
　　
　?。?//打開可以插入自增，顯示插入自增字段的值
　　
　　 ls_sql1 = "SET IDENTITY_INSERT " + ls_table [1] + " on"
　　 execute IMMEDIATE :ls_sql1 using sqlca;
　　
　　3.構造數據窗口，或datastore
　　
　　4.wf_set_iden_off_1(dw_1)　//關掉本地datastore的自增
　　
　　wf_set_iden_off_1內容:
　　
　　//將指定datastore 的自增字段設置為 off
　　
　　string ls_colcount
　　long ll_colcount, i
　　string ls_ColName
　　
　　ls_colcount = ar_ds.Describe("DataWindow.Column.Count")
　　
　　if integer (ls_colcount) > 0 then
　　 ll_colcount = integer (ls_colcount)
　　else
　　 return
　　end if
　　
　　string ls_on, ls_err
　　
　　for i = 1 to ll_colcount
　　 ls_ColName = ar_ds.Describe("#" + string(i) +".name")
　　 ls_on = ar_ds.Describe("#" + string(i) +".Identity")
　　 if ls_on = 'yes' then
　　ar_ds.modify (ls_ColName + ".Identity = 'no'" )
　　 end if
　　next
　　
　?。?開始copy,
　　
　　6.update
　　
　　結束

上一篇：oralce數據庫日志查看方法探討

下一篇：當行與列不能滿足需要時