全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2771
推到 Plurk!
推到 Facebook!

Access資料庫的複製問題

尚未結案
rabinson
一般會員


發表:19
回覆:7
積分:5
註冊:2004-02-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-29 11:43:27 IP:61.66.xxx.xxx 未訂閱
Dear all 我有二個Access資料庫,一個有資料 一個是空的 我要如何能把有資料的Access,只將其中一個欄位的所有資料copy一份到 空的Access檔案中的某一個欄位呢?
scotthsiao
高階會員


發表:13
回覆:324
積分:147
註冊:2005-02-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-29 13:47:05 IP:211.21.xxx.xxx 未訂閱
您好, 1.在來源表格之欄位上點一下,該欄全部反白 。 2.按右鍵選複製 3.至目的欄位按貼上 好像在寫手冊....
tea15
初階會員


發表:64
回覆:72
積分:27
註冊:2005-06-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-29 14:11:32 IP:211.20.xxx.xxx 未訂閱
恩.. 就如scotthsiao所說的方式一樣。 但如果資料大量,也就是說多個欄位時,建議可用匯入的方式匯入目的資料欄位。
rabinson
一般會員


發表:19
回覆:7
積分:5
註冊:2004-02-18

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-29 15:02:31 IP:220.229.xxx.xxx 未訂閱
不好意思...我所說的 是透過Delphi的方式 一方面以select的方式抓出我要的欄位, 一方面將資料 塞到另一個空的access當中 ps: 問題沒說清楚,抱歉啦....^^"
scotthsiao
高階會員


發表:13
回覆:324
積分:147
註冊:2005-02-01

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-06-29 16:44:51 IP:210.66.xxx.xxx 未訂閱
如果是 ADO 的方式 : 1. 拉兩個 ADOConnection 分別連到不同的資料庫 2. 拉兩個 ADOQuery 或 ADOTable 分別連到不同的 ADOConnection 3. 以有資料的 Table 為主,從頭掃到尾,順便逐筆寫入沒資料的 Table 內
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-06-29 22:27:12 IP:219.129.xxx.xxx 未訂閱
rabinson 您好: 您的意思是指:假如有个Table1.mdb里面有两个表结构相同的数据表Table1、Table2;其中Table1有资料,Table2为空,想将Table1的某个栏位复制至Table2相应的栏位中。是这个意思吗,没理解错的话请参考:
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\table\table1.mdb;Persist Security Info=False';
  ADOQuery1.SQL.Add('insert into table2 select Field1 from table1 in "F:\table\table1.mdb"'); //其中Field1为复制的字段
  ADOQuery1.ExecSQL;
end;
如果是对应于两个不同的Access数据库db1.mdb,Table1.mdb,想将Table1.mdb中的Table1表的某个字段复制至db1.mdb中的Table1相应字段中,略微修改即可,如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\table\db1.mdb;Persist Security Info=False';
  ADOQuery1.SQL.Add('insert into table1 select Field1 from table1 in "F:\table\table1.mdb"');//其中Field1为复制的字段
  ADOQuery1.ExecSQL;
end;
<> ============================ 为什么经过多年以后,得失的过程如此冷漠 ============================ 發表人 -
系統時間:2024-07-02 3:01:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!