我修改了数据库中存储的image格式的文档，但不知怎么把它保存进数据库。急

Question

我修改了数据库中存储的文档，但不知怎么把它保存进数据库。因为文档是以二进制格式即image格式存储在数据库中，所以不能用update语句来修改！而且因为不能用SQL语句写，就无法用where语句指明对应的是哪条记录。请问各位高手有谁知道该怎么做？不胜感激！

Answer 1

var
  MemStream: TMemoryStream;
begin
  if OpenPictureDialog1.Execute then
  begin
    MemStream := TMemoryStream.Create;
    try
      MemStream.LoadFromFile(OpenPictureDialog1.FileName);
      MemStream.Seek(0, soFromBeginning);
           MemStream.Seek(0, soFromBeginning);
            with AdoQueryEdit do
      begin
        Edit;
        TBlobField(FieldByName('文档正文')).LoadFromStream(MemStream);
        Post;
      end;
    finally
      MemStream.Free;
    end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute ;
image1.Picture.LoadFromFile(opendialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Insert;
table1.FieldByName('Name').AsString:=edit1.Text ;
table1.FieldByName('Picture_Path').AsString :=opendialog1.FileName ;
table1.FieldByName('Graphic').Assign(image1.Picture);
table1.Post;
end;