[Lazarus] Controlling DPI

[ik]

Hi,
you must do a "select * from ZnajdzKodKreskowy (:Kod, 0, 0, 0,
:IleCyfrSprawdzac)"

The example:

   qry01.SQL.Clear;
   qry01.SQL.Text:= 'select * from ZnajdzKodKreskowy (:Kod, 0, 0, 0,
:IleCyfrSprawdzac)';
   qry01.Params.ParamByName('Kod').AsString:= 'AAA';
   qry01.Params.ParamByName('IleCyfrSprawdzac').AsString:= 'BBB';   // I
don't know what type are your paremeters :-)
   qry01.Open;
   MyResult01:=qry01.FieldByName('Jest').AsString;
   MyResult02:=qry01.FieldByName('Zlecenie').AsString;
   MyResult03:=qry01.FieldByName('...others...').AsString;
   qry01.Close;

Have a nice weekend!

Eduardo.

Kamil Walas escribió:
> Hi,
>
> I have stored procedure in FireBird:
> EXECUTE PROCEDURE ZnajdzKodKreskowy (:Kod, 0, 0, 0, :IleCyfrSprawdzac)
> RETURNING_VALUES (:Jest, :Zlecenie, :I1, :I2, :I3, :I4, :D, :I5, :S);
>
> I was trying to get returning values to lazarus code, but I couldn't. I 
> find out that there is no StoredProcedure element from Delphi. How could 
> I get this values? I would be pleased if someone wrote an example.
>
> And sorry for my English.
>
> Best regards,
> Kamil Walas
>  
> _______________________________________________
> Lazarus mailing list
> Lazarus at lazarus.freepascal.org
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
>
>