悬赏！悬赏！高手请进......(200分)

我在ACCESS 2000一数据库建立一个OLE字段， 如何利用DELPHI对该字段进行数据操作？
例如：将一BMP图像数据添加到此字段中。过去我试过用数据流的方法，但没有成功。用
ACCESS 2000打开后发现其显示为“二进制数据”而不是正常的“BMP图像”格式。

建议在数据库中把old字段改为varchar字段，然后保存bmp图像所在的路径，要用到时再从这个路径中load出来，这样可以大大减少数据库的容量!

Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件，能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序，如人事管理信息系统等，图像数据的存取技术是一个关键。然而，有关Delphi下图象的存取，特别是图像的保存方面的技术各种资料上很少提及。下面，笔者结合一个简单的例子来说明。

一、图像数据的保存
　　1.创建一个含有Graphic字段的数据库列表。
　　在WindowsISQ(或Databasedesktop)下create database mydb.gdb
　　create table myfrieds
　　(name varchar(15) notnull，
telephone varchar(12)，
address varchar(30)，
zipvarchar(8)，
picture varchar(15)，
image blob);

　　其中，picture字段用于保存图像的名称(包括路径)，image(Graphic字符)则用于存储图像，其数据类型
为“blob”。

　　2.建立窗体(如图1所示)，设置窗体中各控件的属性。

　　该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBImage，编辑框宜用Tedit而不宜用TDBEdit，这一点与图像的读取恰好相反。

　　其中，各主要控件的属性设置如下:
　　Datasource1.Dataset:=table1;
　　Table1.Databasename:=mydb.gdb;
　　Table1.Tablename:=myfriends;
　　Table1.active:=true;
　　其他诸如Caption之类的属性设置不再叙述。

　　3.数据处理程序的建立。
　　(1)图像( .bmp文件)打开的处理。
　　procedureTForm1.pictopenbtnClick(Sender:TObject);
　　begin
opendialog1.execute;
　image1.picture.loadfromfile(opendialog1.filename);
　　end;

　　(2)图像保存的处理。
　　图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中，其关键是要定义一个Graphic类型的变量且该变量要用Assign()函数传递到相应数据库中保存。具体程序如下:
　　procedureTform1.Savebtnclick(sender:TObject);
　　var
graphic1:TGraphic;
　　begin
graphic1:=TGraphic.Create;
　graphic1.loadfromfile(opendialog1.filename);
　　table1.insert;
　　table1.fieldbyname('name').asstring:=edit1.text;
　　table1.fieldbyname('telephon').asstring:=edit2.text;
　　table1.fieldbyname('address').asfloat:=edit3.text;
　　table1.fieldbyname('zip').asfloat:=edit4.text;
　　table1.fields[4].assign(graphic1);
　　table1.post;
　　graphic1.free;
　　end;

二、图像数据的读取
　　在数据库数据(包括Graphic字段的数据)的读取和浏览方面，Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说，不需要一条语句即可完成这一功能！

　　建立窗体(如下图所示)，设置各控件的属性。

　　图中Table1和Datasource1的属性的设置与数据的保存部分(图1)相同，所不同的是数据库数据的读取时用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域;TDBNavigator的datasouce属性设置为datasource1即可。

我来试试。给你贴出来：
procedure TForm1.Button1Click(Sender: TObject);
begin
with DataModule1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into Tab(name,ImageField) valuesaa,:bb)');//ImageField是OLE字段
Parameters.ParamByName('aa').Value:=Edit1.Text;
Parameters.ParamByName('bb').LoadFromFile('C:/abc.bmp',ftVarBytes); //-->此处即是。
ExecSQL;
end;
end;

要先打开表并定位到相关记录，然后再保存，相关代码如下：
With Dataset do
begin
Edit;
Stream:=TMemoryStream.Create;
//Red_NySjq.Lines.SaveToStream(Stream);
Stream.LoadFromFile('d:/xxx.bmp');
TBlobField(FieldByName('F_Rtf')).LoadFromStream(Stream);
Post;
end;

从数据库线取出纪录，然后用TBlobField转换
如：TblobField(FieldByName('image')).savetoFile(FileNmae)
应该就可以了

将JPG格式图片保存到ACCESS数据表中
var
Ind,i:Integer;
FName:string;
AJPeg:TJPEGImage;
temp:TBitmap;
begin
if opd1.Execute then
begin
btnAdd.Enabled:=False;
Ind:=Opd1.Files.Count;
for i:=0 to Ind-1 do
begin
FName:=opd1.Files.Strings;
Application.ProcessMessages;
tbl1.Append;
tblPictureName.AsString:=FName;
if UpperCase(Copy(FName,Length(Fname)-3,4))=’.JPG’ then
begin
AJpeg:=TJPEGImage.Create;
AJpeg.LoadFromFile(FName);
Temp:=TBitmap.Create;
Image1.Height:=Ajpeg.Height;
Image1.Width:=Ajpeg.Width;
Image1.Picture:=nil;
Image1.Canvas.Draw(0,0,Ajpeg);
DBImage1.Picture:=Image1.Picture;
AJpeg.Free;
end
else
tblPicture.LoadFromFile(FName);
tbl1.Post;
end;
end;
说明：
tbl1:TADOQuery;
opd1:TOpenPictureDialog;

tblPicture是tbl1的字段，OLE型。
uses
JPEG;

通过：
procedure TForm1.Button1Click(Sender: TObject);
begin
with DataModule1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into Tab(name,ImageField) valuesaa,:bb)');//ImageField是OLE字段
Parameters.ParamByName('aa').Value:=Edit1.Text;
Parameters.ParamByName('bb').LoadFromFile('C:/abc.bmp',ftVarBytes); //-->此处即是。
ExecSQL;
end;
end;

各位大侠的方法小弟一一试过，可存贮结果都是“长二进制”数据。在ACCESS 2000中点击它报“ACCESS 与OLE服务器连接发生错误”。不能象“BMP 图象” 一样点开时即激活了画图程序。

多人接受答案了。