怎样往数据库的一个Blob字段中追加数据？

Question

如题，谢谢！

Answer 1

insert into table1 (blobfield) valued ( :v);sqlcommand.parametres.parabynmae('v').loadfromstream
大概是这样，代码可能拼写有错

Answer 2

qry.edit;
tblobfield(qry.fileds[]).assgin(stream);//stream可以是文件名或图片
qry.pos

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
mem:TMemoryStream;
begin
if (label3.Caption='Label3') and (chuan1=0)//label3显示图片的路径及文件名
then showmessage('你还没有选择图片！');
if label2.caption='Label2'
then showmessage('你还没有选择商品！');//label2显示商品编号，商品编号是主键
if (label3.caption<>'Label3') and (label2.caption<>'Label2')
then
begin
with Table1 do
begin
edit;
FieldByName('dspid').AsString:=label2.Caption;
mem:=TMemoryStream.Create();
mem.LoadFromFile(label3.Caption);
TBlobField(FieldByName('dsptx')).LoadFromStream(mem);
Post;
showmessage('图片上传成功！');
end;
end;这是我自己做过的一个“图片上传”按钮的响应事件，希望能给你参考