我想把資料庫Northwind裡資料表的資料，複製到另一個資料庫空的資料表中，目前我的做法是按一個按鈕就複製一張資料表的資料，請問要怎麼用陣列做出按一個按鈕就能一次把我要的所有資料表資料都複製過去呢？

VAR I : Integer; TABLENAME : array of STRING; vLIST : TStrings; begin Database1.GetTableNames(vLIST); FOR I := 0 TO vLIST.Count -1 DO TABLENAME[I] := vLIST.Strings[I]; FOR I:= LOW(TABLENAME) TO HIGH(TABLENAME) DO BEGIN QUERY1.CLOSE; QUERY1.SQL.CLEAR; QUERY1.SQL.ADD('INSERT INTO DATABASEA.' TABLENAME[I] ' VALUES(SELECT * FROM DATABASEB.' TABLENAME[I] ')'); QUERY1.ExecSQL; END; 有錯，請指正。 ========================= 讀萬卷書~不如來K.TOP走一遭 =========================