我如何把图片加到access2000中

Question

var
  ms:tmemorystream;
  jp:TJpegImage;
begin
  ms:=tmemorystream.Create;
  jp:=TJpegImage.Create;
  ms.Position:=0;
  jp.SaveToStream(ms);
  try
    with ADOQuery1 do
    begin
      Open;
      Insert;
      TBlobField(FieldByName('img')).LoadFromStream(ms);
      Close;
    end;
  finally
    ms.Free;
    jp.Free;
  end;
end;

Answer 1

我的代码：procedure TAfzsyr.PIC_ADDClick(Sender: TObject);begin
//  with DtMd  do begin
  //     fzxyr.Edit;
    //   fzxyrZP.LoadFromFile(FILELIST.FileName);
      // fzxyr.Post;
 //end;
 OPDLG.Execute;
 IF   OPDLG.FileName='' THEN ABORT;
    with DtMd  do begin
      fzxyr.Edit;
      fzxyrBLOBFIELD.loadFromFile(OPDLG.FileName);
      fzxyr.Post;
   END;
end;procedure TAfzsyr.DBImage1DblClick(Sender: TObject);
begin
  APIC.Image1.Picture:=DBIMAGE1.Picture;
  APIC.ShowModal;end;procedure TAfzsyr.PIC_CLEARClick(Sender: TObject);
begin
  WITH DtMd  do begin
      fzxyr.Edit;
      fzxyrBLOBFIELD.ASSTRING:='';
      fzxyr.Post;
  END;
end;