假設:數據庫“ABC”里,表“123”的結構與數據庫“DEF”里,表“456”的結構完全相同且不含自動ID字段。
在數據庫“ABC”里運行下列追加查詢代碼,即可實現你的要求:
INSERTINTO[456]IN'D:\DEF.mdb'
SELECTTOP10*
FROM[123]
ORDERBY[123].排序字段名DESC;
如果兩張表的結構不同,SQL代碼要交代兩張表各自的字段名,而且對應的數據類型不得有沖突、字段數量和順序要互相對應,另外還要考慮是否允許插入NULL值以及數據有效性等問題。
INSERTINTO[456](字段a,字段b,字段c,....)IN'D:\DEF.mdb'
SELECTTOP10字段a,字段b,字段c,....
FROM[123]
ORDERBY[123].排序字段名DESC;
上列代碼已經實際測試通過。請為上列代碼取名后保存為一個查詢,需要時運行該查詢即可。你也可以為某窗體添加一個按鈕,在該按鈕的單擊事件過程里加入VBA代碼:DoCmd.RunSQL"上列追加查詢SQL代碼",點擊該按鈕,可將選出的數據插入位于D盤的數據庫(DEF)里的[456]表中。上機試一下效果吧。