Question

delphi编程：JPG图片保存到access数据库中

procedure TForm1.Button2Click(Sender: TObject);
var
strm: TMemoryStream;
myjpeg: TJPEGImage;
begin
strm := TMemoryStream.Create;
myjpeg := TJPEGImage.Create;
myjpeg.Assign(image1.Picture.Graphic);
myjpeg.SaveToStream(strm);
strm.Position := 0;
tblobfield( AdoQuery1.FieldByName('pic')).LoadFromStream(strm);
strm.Free;
ShowMessage('保存图片成功！');
end;

请教一下：这段代码错在什么地方？

Answer 1

你应该在释放strm之前，对ADOQuery进行保存

Answer 2

你这个代码不完全啊。。。
至少有个提交吧。。。
AdoQuery1.Append;
strm.Position := 0;
tblobfield( AdoQuery1.FieldByName('pic')).LoadFromStream(strm);
AdoQuery1.Post;
strm.Free;

追问

谢谢老兄的回答。。但是我加入您提供的代码之后，运行程序还是出错：ADOQuery1:cannot perform this operation on a closed dataset

这究竟是哪儿出的问题呀？？

追答

大哥，您这个AdoQuery1先得open啊。。。
Adoquery1.close;
Adoquery1.Sql.text :='select * from tb1';
AdoQuery1.Open;
AdoQuery1.Append;
strm.Position := 0;
tblobfield( AdoQuery1.FieldByName('pic')).LoadFromStream(strm);
AdoQuery1.Post;
strm.Free;