Adotable保存Access问题 |
尚未結案
|
zhengdelphi
一般會員 發表:4 回覆:5 積分:1 註冊:2005-03-10 發送簡訊給我 |
我用ADOtable连接Access。
代码如下:
Docblobfile:=TAdoBlobStream.Create(TBlobfield(datamodule1.DocADOTable.FieldByName('DocContent')),bmwrite);
Docblobfile.Clear;
DesRichEdit.lines.SaveToFile(DFile);
Docblobfile.LoadFromFile(DFile);
Docblobfile.Position:=0;
post;
Docblobfile.Free; 但我点击按钮一次,没有保存成功,点击两次。才能保存成功。同样的代码。
DocADotable通过一个ADOConnection1连接Access。在使用DocAdoTable前有另外两个Adotable也通过ADOConnection1连接。我关闭他们也不行 请教!!!
谢谢!!!
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
Hi, 使用 ADOTable 存取 access 保存檔案的方法如下, 我的 access 的 table schema 為 create table ftable
(
sno int,
sfile oleobject
) 以下為讀存一個檔案寫入資料庫, 另一個為將檔案由資料庫讀出並存成檔案.
procedure TForm1.Button1Click(Sender: TObject); begin ADOTable1.Append; ADOTable1.FieldByName('sno').AsInteger := 1; TBlobField(ADOTable1.FieldByName('sfile')).LoadFromFile('c:\1.gif'); ADOTable1.Post; ShowMessage('ok'); end; procedure TForm1.Button2Click(Sender: TObject); begin ADOTable1.Locate('sno', 1, []); TBlobField(ADOTable1.FieldByName('sfile')).SaveToFile('c:\2.gif'); ShowMessage('finished'); end;使用 TBlobField 來轉型原來的 TField 即可順利讀寫檔案和資料庫! |
zhengdelphi
一般會員 發表:4 回覆:5 積分:1 註冊:2005-03-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |