I downloaded recently IBDAC for Delphi 7 in order to migrate from IBX to IBC and from FB2.5.8 to FB3.0.3
I wrote:
Code: Select all
IbcSql:= TIBCSql.Create(nil);
with IbcSql do begin
Connection:= IBCConnection1;
Transaction:= IBCTransaction1;
Text:= 'select DOWOD from gm_dowod';
Prepare;
with TParam(IBCSql.Params.Add) do begin
ParamType := ptOutPut;
DataType := ftString;
Size:= 4;
Name := 'DOWOD';
end;
Execute;
while ExecuteNext do
Showmessage ( format ('dowod:%s ', [ParamByName(DOWOD').AsString]));
Unprepare
end;
IbcSql.Free;
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIBCError with message 'Dynamic SQL Error
SQL error code = -303
arithmetic exception, numeric overflow, or string truncation
string right truncation
expected length 0, actual 4'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------