Subject | RE: [ib-support] invalid Blod ID error on Firebird |
---|---|
Author | George Smith |
Post date | 2002-12-05T23:08:15Z |
Helen,
thanks for reply - the following is the delphi procedure.
This code is unchanged from code that worked with the
Borland Open Source 1.0 release and as I said I am
using IBX (Interbase Tab)
So are you saying that the Firebird side is not accepting the
.AsBlob
procedure TfrmCallHeader.InsertCallDetail;
begin
AddInfoToCallLog;
// This time and date is invisable to the user
// program sets open and close
FCurrentCallDetailCloseDate := Now;
with dmSupport.spInsertCallDetail do
begin
FCurrentCallDetailID := dmSupport.getGeneratorID('id_gen');
FCurrentCaseID := dmSupport.getGeneratorID('id_gen');
ParamByName('iCallDetailID').AsInteger := FCurrentCallDetailID;
ParamByName('iCaseID').AsInteger := FCurrentCaseID;
ParamByName('iSupportNameID').AsInteger := FCurrentSupportNameID;
ParamByName('iCallDetailOpenDate').AsDateTime :=
FCurrentCallDetailOpenDate;
ParamByName('iCallDetailCloseDate').AsDateTime :=
FCurrentCallDetailCloseDate;
ParamByName('iCallDetailMethodID').AsInteger := FCurrentCallMethodID;
ParamByName('iCallIsOpen').AsString := 'N';
ParamByName('iCallDetailMemo').AsBlob :=
CallLog.Lines.Text; -------------------Here is blob info
ExecProc;
dmSupport.dataSetCallDetail.Close;
dmSupport.dataSetCallDetail.Open;
end;
end;
thanks again
george smith
thanks for reply - the following is the delphi procedure.
This code is unchanged from code that worked with the
Borland Open Source 1.0 release and as I said I am
using IBX (Interbase Tab)
So are you saying that the Firebird side is not accepting the
.AsBlob
procedure TfrmCallHeader.InsertCallDetail;
begin
AddInfoToCallLog;
// This time and date is invisable to the user
// program sets open and close
FCurrentCallDetailCloseDate := Now;
with dmSupport.spInsertCallDetail do
begin
FCurrentCallDetailID := dmSupport.getGeneratorID('id_gen');
FCurrentCaseID := dmSupport.getGeneratorID('id_gen');
ParamByName('iCallDetailID').AsInteger := FCurrentCallDetailID;
ParamByName('iCaseID').AsInteger := FCurrentCaseID;
ParamByName('iSupportNameID').AsInteger := FCurrentSupportNameID;
ParamByName('iCallDetailOpenDate').AsDateTime :=
FCurrentCallDetailOpenDate;
ParamByName('iCallDetailCloseDate').AsDateTime :=
FCurrentCallDetailCloseDate;
ParamByName('iCallDetailMethodID').AsInteger := FCurrentCallMethodID;
ParamByName('iCallIsOpen').AsString := 'N';
ParamByName('iCallDetailMemo').AsBlob :=
CallLog.Lines.Text; -------------------Here is blob info
ExecProc;
dmSupport.dataSetCallDetail.Close;
dmSupport.dataSetCallDetail.Open;
end;
end;
thanks again
george smith