在数据库中显示图片问题

[yangpeng106]

我在Access2000里设置了一个OLE字段，但在delphi里用DBimage连接时总是出错，请问该如何正确的显示Access2000中的图片数据？

[jjaacc]

var
bitmap: TBitmap;
jpg: TJepgImage;
ms: TMemoryStream;
begin
jpg:=TJpegImage.Create;
bitmap:=TBitmap;
ms:=TMemoryStream.Create;
jpg.Assign(ADOQuery1.FieldByName('image'));
jpg.SavetoStream(ms);
bitmap.loadfromstream(ms);
dbimage.picture.graphic:=bitmap;
jpg.free;
bitmap.free;
ms.free;
end;