我用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连接。我关闭他们也不行 请教！！！ 谢谢！！！

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 即可順利讀寫檔案和資料庫!

to timhuang : 请教，如果在编辑记录时，我的写法是否有错？ 我储存另一个表时，使用这个写法一直很正常。但我在该程序中增加了新的表，储存Access的ole对象。但发现我执行上面这段代码两次（相当于按两次按钮）才能成功储存。不知道跟ADOTAble有关系，还是跟ADOconnect共享连接Access有关系？ 请教！！！！