急求程序员联合开发网的帐号,帮忙下东西
http://www.pudn.com/downloads121/sourcecode/java/jsp/detail513569.html...
http://www.pudn.com/downloads121/sourcecode/java/jsp/detail513569.html
展开
2个回答
展开全部
//保存图片到图片表
if Trim(TextBox6.Text)<>'' then //图片有装入才能保存
begin
srm:=TMemoryStream.Create;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('delete from zx_tpb where bt=:bt');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
ADOquery1.ExecSQL;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('insert into zx_tpb (bt,tp) values (:bt,:tp)');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
Image3.Bitmap.SaveToStream(srm);
srm.Position := 0;
if srm.Size > 0 then
adoquery1.Parameters.ParamByName('tp').LoadFromStream(srm,ftblob); //图片
adoquery1.ExecSQL;
end;
if Trim(TextBox6.Text)<>'' then //图片有装入才能保存
begin
srm:=TMemoryStream.Create;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('delete from zx_tpb where bt=:bt');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
ADOquery1.ExecSQL;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('insert into zx_tpb (bt,tp) values (:bt,:tp)');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
Image3.Bitmap.SaveToStream(srm);
srm.Position := 0;
if srm.Size > 0 then
adoquery1.Parameters.ParamByName('tp').LoadFromStream(srm,ftblob); //图片
adoquery1.ExecSQL;
end;
追问
……你这个什么东东
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询