Scrollable cursor example

[paolo]

Hi to all

why the following code doesn't work :

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
begin
  OraStoredProc1.Close;
  OraSQL1.ParamByName('PID').AsInteger                := 24;
  OraSQL1.ParamByName('PTIPOFILTRO').AsInteger        := 3;
  OraSQL1.ParamByName('SIZEOFTDBDHDR1PKT').AsInteger  := 3;
  OraSQL1.ParamByName('SIZEOFTDBHDRDATO').AsInteger   := 4;
  OraSQL1.ParamByName('SIZEOFTDBINDEXPKT').AsInteger  := 5;
  OraSQL1.Execute;

  OraStoredProc1.OptionsDS.ScrollableCursor := True ;
  OraStoredProc1.Cursor := OraSQL1.Parambyname('RESULT').AsCursor;
  OraStoredProc1.Open;
end;

procedure TForm1.ShowRes;
begin
  Edit1.Text := Format('ID %d',[(OraStoredProc1 as TDataSet).FieldByName('ID').AsInteger]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  OraStoredProc1.Next; --> OK 
  ShowRes;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  OraStoredProc1.Prior; --> NOT OK :( 
  ShowRes;
end;

thanks in advance

ODAC 5.55.1.22 on delphi 5

Paolo

[Challenger]

We couldn't reproduce your problem. Please send to ODAC support address complete sample to demonstrate it and include script to create server objects.

[paolo]

mail sended

thanks