Code: Select all
OraSQL.ParamByName('p_id_bersaglio').AsInteger := IdTarget;
OraSQL.ParamByName('p_modalita').AsString := Modalita;
OraSQL.ParamByName('p_data').DataType := ftCursor;
OraSQL.Execute;
Brani.Cursor := OraSQL.ParamByName('p_data').AsCursor;
Code: Select all
OraSQL.Params.CreateParam(ftInteger, 'p_id_bersaglio', ptInput).AsInteger := IdTarget;
OraSQL.Params.CreateParam(ftString, 'p_modalita', ptInput).AsString := Modalita;
OraSQL.Params.CreateParam(ftCursor, 'p_data', ptOutput);
OraSQL.Execute;
Brani.Cursor := OraSQL.ParamByName('p_data').AsCursor;
Thanks in advance,