有沒有辦法把WORD和EXECL文件存入到ACCESS的資料庫中我使用ADOQUERY的元件不知可不可以這麼做

HI, 要將檔案存入和取出的方法, 可以使用 TBolbField 來進行欄位的 casting 後即可順利存取: 存檔: TBlobField(ADOQuery1.FieldByName('myfile')).LoadFromFile('T.xls'); 讀出: TBlobField(ADOQuery1.FieldByName('myfile')).SaveToFile('ST.xls'); 也請參考站長的大作: http://delphi.ktop.com.tw/topic.php?topic_id=19505 將圖檔存入 access 的作法!

使用 TBolbField 來進行欄位的 casting 後即可順利存取!!使用這個語法就可以了嗎???請問有沒有這方面的教學我是初學者對於很多語法我都不了解書中也沒有介紹~

您好!    ADOQuery元件有一個SQL的語法可以直接將Text(記事本), Xls(Excel檔), Html(HTML Export檔)匯入到Access的資料庫中, 比如說, 目前有一個已存在的名為訂單的Access資料庫檔案, 將D:\客戶.Xls(Excel檔)匯入其中的作法如下: ADOQuery1已經通過ADOConnection元件正确連接上訂單資料庫, 在触發匯入動作的Button的OnClick事件中:

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * Into 客戶 From [Sheet1] In "D:\客戶.xls" "Excel 8.0;"');
  ADOQuery1.ExecSQL;
end;

//以上已經將客戶.Xls匯入到訂單資料庫中, 資料表名為客戶, 語法中Sheet1代表客戶.Xls檔案中的Sheet名稱. 有關于DOC(Word檔)是否可匯入, 小弟還沒有試過, 提供匯入Text(記事本檔案)的語法如下, 您可根据上例的做法自行試一試.

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * Into 客戶 From [客戶.doc] In "D:\" "Text;"');
  ADOQuery1.ExecSQL;
end;

參考看看! ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/10/12 22:18:19

------
忻晟

引言: 使用 TBolbField 來進行欄位的 casting 後即可順利存取!!使用這個語法就可以了嗎???請問有沒有這方面的教學我是初學者對於很多語法我都不了解書中也沒有介紹~

是的, 請問你看過了站長的那篇將圖檔存入 ACCESS 的範例程式了嗎, 看過了以後再看看有沒有問題, 若有不明白或不清楚的地方再上來發問!

您好: 我用您提供的方法要將Excel2000檔匯入Access資料庫 結果會出現錯誤: Microsoft Jet 資料庫引擎無法找到 'Sheet1'物件 請問用這個方法需要注意哪些設定嗎?    可以ㄌ 將Select * Into 客戶 From [Sheet1] 改Select * Into 客戶 From [Sheet1$]    

引言: 您好! ADOQuery元件有一個SQL的語法可以直接將Text(記事本), Xls(Excel檔), Html(HTML Export檔)匯入到Access的資料庫中, 比如說, 目前有一個已存在的名為訂單的Access資料庫檔案, 將D:\客戶.Xls(Excel檔)匯入其中的作法如下: ADOQuery1已經通過ADOConnection元件正确連接上訂單資料庫, 在触發匯入動作的Button的OnClick事件中:

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * Into 客戶 From [Sheet1] In "D:\客戶.xls" "Excel 8.0;"');
  ADOQuery1.ExecSQL;
end;

//以上已經將客戶.Xls匯入到訂單資料庫中, 資料表名為客戶, 語法中Sheet1代表客戶.Xls檔案中的Sheet名稱. 有關于DOC(Word檔)是否可匯入, 小弟還沒有試過, 提供匯入Text(記事本檔案)的語法如下, 您可根据上例的做法自行試一試.

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * Into 客戶 From [客戶.doc] In "D:\" "Text;"');
  ADOQuery1.ExecSQL;
end;

參考看看! ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/10/12 22:18:19

「「 發表人 - s5633 於 2004/04/26 17:08:07

您好， 想請問關於下列的ADO SQL語法在那份文件可以查到呢?? begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select * Into 客戶 From [客戶.doc] In "D:\" "Text;"'); ADOQuery1.ExecSQL;