ole控件保存并读入access数据库中以ole作为类型的字段中，希望大家指教 (200分)

我在delphi中加了一个ole控件使它与word相连，
比如说用他输入了文字与图片后，在将他加到access2000中，
如果以后要使用他的话又可以通过程序把他从access中调出来，
请问应该如何做。我可否把几个ole控件中的东西放在同一个ole中 。

怎么只有看的
没有回的啊

表：大文本模板：类别varchar(50) 模板：image

调入外部doc文件：
procedure TForm1.BtnOpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
end;

保存模板：
procedure TForm1.BtnSaveModalClick(Sender: TObject);
begin
OleContainer1.SaveToFile('tmp.doc');
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('update 大文本模板 set 模板=:CC where 类别=''值班记录''');
Adoquery1.Parameters.ParamByName('CC').LoadFromFile('tmp.doc',ftBlob);
Adoquery1.ExecSQL; //通过
end;

新增记录：
procedure TForm1.BtnAddClick(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select 模板 from 大文本模板 where 类别=''值班记录''');
Adoquery1.Open;
(Adoquery1.FieldByName('模板') as TBlobField).SaveToFile('tmp.doc');
OleContainer1.CreateObjectFromFile(path+'tmp.doc',false);//
end;

保存记录：
procedure TForm1.BtnSaveClick(Sender: TObject);
begin
OleContainer1.SaveAsDocument('tmp.doc');
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into 值班记录(情况) valuesCC)');
Adoquery1.Parameters.ParamByName('cc').LoadFromFile('tmp.doc',ftBlob);
Adoquery1.ExecSQL;
end;

to renzhm
我试过你的代码总是出问题你可否把编译通过的程序发给我一份
我的e-mail为0791l@sina.com
谢谢

to renzhm
我试过你的代码但是无法通过编译你可否把编译通过的程序发给我一份
我的e-mail为0791l@sina.com
谢谢

接受答案了.