执行提交的时候出现的;
我有一个字段是Blob型的数据;
提交时候如果没有这个字段可以提交,有这个字段就会出错;
代码如下,是delphi的
var
Buf:TMemoryStream;
begin
Table1.Append;
table1.FieldByName('FldSortID').asinteger:=0;
table1.FieldByName('FldGBFlag').asinteger:=0;
table1.FieldByName('FldName').asString:='adsfsdf';
table1.FieldByName('FldFrmID').asinteger:=0;
Buf:=TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(buf);
Buf.Position:=0;
TBlobField(Table1.FieldByName('FldIcon')).LoadFromStream(Buf);
Table1.Post;
end;
我有一个字段是Blob型的数据;
提交时候如果没有这个字段可以提交,有这个字段就会出错;
代码如下,是delphi的
var
Buf:TMemoryStream;
begin
Table1.Append;
table1.FieldByName('FldSortID').asinteger:=0;
table1.FieldByName('FldGBFlag').asinteger:=0;
table1.FieldByName('FldName').asString:='adsfsdf';
table1.FieldByName('FldFrmID').asinteger:=0;
Buf:=TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(buf);
Buf.Position:=0;
TBlobField(Table1.FieldByName('FldIcon')).LoadFromStream(Buf);
Table1.Post;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货