如何複製資料庫 |
|
尚未結案
|
|
yx_huang77
一般會員   發表：46 回覆：64 積分：22 註冊：2004-03-19 發送簡訊給我 |
|
|
cxg
中階會員  發表：116 回覆：192 積分：76 註冊：2004-02-12 發送簡訊給我 |
引言: 如何複製已存在sql資料庫結構成新的資料庫procedure TForm1.Button1Click(Sender: TObject); VAR AP : TSTRINGS; K : INTEGER; begin AP := TSTRINGLIST.CREATE; SESSION1.AutoSessionName := TRUE; SESSION1.GetTableNames( DB1, '*.*', TRUE, FALSE, AP); FOR K:=0 TO AP.COUNT-1 DO BEGIN TABLE1.CLOSE; TABLE1.DATABASENAME:=DB1; TABLE1.TableName := AP[K]; TABLE1.OPEN; TABLE2.CLOSE; TABLE2.DATABASENAME:=DB2; TABLE2.TableName := COPY(AP[K],5,LENGTH(AP[K])-4); IF TABLE2.Exists THEN TABLE2.DeleteTable ELSE BEGIN TABLE2.FieldDefs.CLEAR; TABLE2.FieldDefs.Assign(TABLE1.FieldDefs); TABLE2.IndexDefs.CLEAR; TABLE2.IndexDefs.Assign(TABLE1.IndexDefs); TABLE2.CreateTable; END; END; AP.FREE; TABLE1.CLOSE; TABLE2.CLOSE; end; |
|
yx_huang77
一般會員 發表：46 回覆：64 積分：22 註冊：2004-03-19 發送簡訊給我 |
|
|
cxg
中階會員 發表：116 回覆：192 積分：76 註冊：2004-02-12 發送簡訊給我 |
|
|
yx_huang77
一般會員 發表：46 回覆：64 積分：22 註冊：2004-03-19 發送簡訊給我 |
|
|
cxg
中階會員 發表：116 回覆：192 積分：76 註冊：2004-02-12 發送簡訊給我 |
發表時間：2004-12-02 13:28:59
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-09-07 10:58:56
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |