procedure TForm1.Button1Click(Sender: TObject);
var
pic:TMemoryStream;
begin
with OraQuery2 do
begin
close;
sql.Clear;
sql.Add('insert into aaa (id,pic1) values (:id,:pic1) ');
params.ParamByName('id').Value:=trim(edit_id.Text);
pic:= TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(pic); // 将图片保存到内存流中
Params.ParamByName('pic1').LoadFromStream(pic,ftblob);
execsql;
pic.Free;
end;
OraQuery1.Refresh;
end;
以上语法能插入图片,但图片大小好像超过5、6K的话,就出错了,请问那里有问题?怎样更新?
procedure TForm1.Button3Click(Sender: TObject);
var
pic:TMemoryStream;
begin
with OraQuery2 do
begin
close;
sql.Clear;
sql.Add('update aaa set pic1=:pic1 where id=:id ');
pic:= TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(pic); // 将图片保存到内存流中
Params.ParamByName('pic1').LoadFromStream(pic,ftblob);
params.ParamByName('id').Value:=trim(edit_id.Text);
execsql;
pic.Free;
end;
OraQuery1.Refresh;
end;上面这个更新有问题,没发更新,怎么处理下
var
pic:TMemoryStream;
begin
with OraQuery2 do
begin
close;
sql.Clear;
sql.Add('insert into aaa (id,pic1) values (:id,:pic1) ');
params.ParamByName('id').Value:=trim(edit_id.Text);
pic:= TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(pic); // 将图片保存到内存流中
Params.ParamByName('pic1').LoadFromStream(pic,ftblob);
execsql;
pic.Free;
end;
OraQuery1.Refresh;
end;
以上语法能插入图片,但图片大小好像超过5、6K的话,就出错了,请问那里有问题?怎样更新?
procedure TForm1.Button3Click(Sender: TObject);
var
pic:TMemoryStream;
begin
with OraQuery2 do
begin
close;
sql.Clear;
sql.Add('update aaa set pic1=:pic1 where id=:id ');
pic:= TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(pic); // 将图片保存到内存流中
Params.ParamByName('pic1').LoadFromStream(pic,ftblob);
params.ParamByName('id').Value:=trim(edit_id.Text);
execsql;
pic.Free;
end;
OraQuery1.Refresh;
end;上面这个更新有问题,没发更新,怎么处理下
解决方案 »
- 超级菜鸟问题(送分)
- 怎样获得鼠标在任何窗口按下或弹起状态??谢谢各位大侠啦!!急呀!
- 同时打开两个adodataset就出现“多步操作产生错误,请检查每一步状态的值”----急!!!
- ★★★我有这么一个万能系统,管你什么数据库,什么技术、二层、DCOM、MTS(COM+)、Corba、WebService信手拈来
- 使用dbgrid的问题,如何添加标记?
- ADO访问access数据库,"2002/1/1 9:00:00" 在dbgrid中显示的是"2002/1/1"
- win2000里面怎样更换墙纸?好像和98的不一样。。。
- 谁能告诉我关于程序员考试方面的事?
- 我的delphi6.0不能打补丁,为什么?已经是企业版了,z9j8-pum4n-c6gzq,rw2-7jw
- 比如我现有一文件c:\ss.htm,我想把此文件的所有数据存入blob数据库字段,该如何存入以及如何再读出?
- dephi7的Qreport 怎么没有显示当前日期的控件,怎么设置?
- TBlobField在delphi7哪个控件里
我的update小图片也不行