读书人

delphi存储图片至sql2000时sql参数异常

发布时间: 2012-02-06 15:52:44 作者: rapoo

delphi存储图片至sql2000时sql参数错误
下列代码是向桥涵设施普查基层表中列“桥梁名称”为edit1.text值的行插入一个图片到列“桥梁照片”,OpenD_Image是一个OpenDialog控件用于打开图片,编译正确,但是adoquery1的SQL语句中参数name和photo运行时总是提示找不到参数name和photo,请大家帮忙修改,多谢!
var
TStream: TMemoryStream;
JpgFile:TjpegImage;
begin
if OpenD_Image.Execute then
begin
TStream:=TMemoryStream.Create;
JpgFile:=TjpegImage.Create;
Image_Brige.Picture.LoadFromFile(OPenD_Image.FileName) ;
JpgFile.Assign(Image_Brige.Picture.Graphic);
JpgFile.SaveToStream(TStream);
TStream.Position:=0;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update 桥涵设施普查基层表 桥梁照片 set 桥梁照片=:photo where 桥梁名称=:name)'); //
adoquery1.Parameters.ParamByName('name').Value:=trim(edit1.Text);
adoquery1.Parameters.ParamByName('photo').LoadFromStream(TStream,ftBlob);
JpgFile.Free;
TStream.Free;
end;
end;

[解决办法]
我测试了你的代码,没有问题存储成功
而且你的代码也丢了一句 adoquery1.ExecSQL;

读书人网 >.NET

热点推荐