function SaveData(tmpDatabaseName:string):boolean;
begin
Result := False;
with TQuery.Create(nil) do
begin
try
DatabaseName := tmpDatabaseName;
Sql.Text := ('SELECT A,B,D FROM D');
RequestLive := True;
Open;
FilesStream := TFileStream.Create('C:\a.txt',fmOpenRead);
if Fields[0].isNull then
begin
Append; //这里出错
FieldByName('a').AsString := 'tmpA';
end
else
begin
try
Edit; //或是这里出错,有时连错误都捕获不到
except
on E: Exception do
showmessage(e.message + #13 + sql.text);
end;
end;
ResultData := TBlobStream.Create(FieldbyName('b') as TBlobField,bmReadWrite);
ResultData.Seek(0,soFromBeginning);
ResultData.Truncate ;
ResultData.CopyFrom(FilesStream,FilesStream.Size);
FilesStream.Free;
FieldByName('C').AsString := 'tmpC';
Post;
Result := true;
finally
Free;
end;
end;
end;