Code: Select all
OraSQL1.SQL.Text := 'begin' + #13#10 +
' open :curs for' + #13#10 +
' select * from scott.emp;' + #13#10 +
'end;';
OraSQL1.ParamByName('curs').ParamType := ptInputOutput;
OraSQL1.ParamByName('curs').DataType := ftString;
OraSQL1.ParamByName('curs').Size := 4000;
OraSQL1.Execute;Do you have any ideas why it possible?