这个函数怎么了?
wm 2000-05-10 12:28:00 我在写一段Ole对象与数据库的程序时,写了如下一段代码:
function TForm1.SaveToTable(Filename:string):Boolean;
var
FS:TFileStream;
BS:TStream;
begin
Table.Append;
FS:=TFileStream.Create(Filename,fmOpenRead);
BS:=Table.CreateBlobStream(Table.FieldByName('test'),bmReadWrite);
try
BS.Copyfrom(FS,FS.Size);
Table.Post;
Table.Edit;
Result:=True;
finally
FS.Free;
BS.Free;
end;
end;
执行到Table.Post一句时,数据库提示不能将一个空值提交,我反复检查了多遍,始终没能找到问题的原因,现在将其写在这里,请各位多多指教!