我如何在access2000里存图片？？

Question

我如何把image控件里的图片，存入access2000 ole型字段里！

Answer 1

var
  blbStm : TStream;
  imgStm : TFileStream;
begin
  Table1.Edit;
  blbStm := Table1.CreateBlobStream(Table1.fieldbyname('image'),bmReadWrite);
  imgStm := TFileStream.Create('c:\test.bmp',fmOpenRead);
  try
    blbStm.CopyFrom(imgStm, imgStm.Size);
    Table1.Post;
  finally
    blbStm.free;
    imgStm.free;
  end;