如何複製資料庫 |
尚未結案
|
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |