Conección Delphi 2007 a Oracle

[Fernando_dev]

Gracias a todos por su ayuda pero parece que con Delphi 2007 no es facil acceder a un Stored Procedure Oracle, ni con BDE ni con ADO.

Para probar la conección con ADO he creado una aplicación muy sencilla. Al correr el código:

procedure TForm1.Button1Click(Sender: TObject);
begin
StpShowParking.Active := true;
end;

Hay un error que dice que hay incompatibilidad en el número o tipo de parámetros.

Luego de mucha busqueda en la Internet he encontrado una posible solución a este error y esta sería añadir a ConnectionString:

Extended Properties="PLSQLRSet=1"

pero luego de ejecutar el código el error es el mismo!!

Agradezco enormemente a alguien que pueda proporcionar alguna información para resolver este problema



Los controles TADOStoredProc y TADOConnection están definidos en Design view:
(Tanto la conección como el acceso a los diferentes Procedures del banco de datos estan correctos)

object ADOConn1: TADOConnection
Connected = True
ConnectionString =
'Provider=OraOLEDB.Oracle.1;Password=password;Persist Security Inf' +
'o=True;User ID=userid;Data Source=prk_server;Extended Properties="' +
'PLSQLRSet=1"'
Provider = 'OraOLEDB.Oracle.1'
Left = 16
Top = 8
end

object StpShowParking: TADOStoredProc
Connection = ADOConn1
ProcedureName = 'SHOW_PARKING'
Parameters = <
item
Name = 'CSR'
Attributes = [paNullable]
DataType = ftInterface
Direction = pdInputOutput
Value = Null
end>

El Stored Procedure de Oracle es:

CREATE OR REPLACE PROCEDURE "SHOW_PARKING" /
( csr IN OUT pck_int_cursors.csr_all)
AS
BEGIN
OPEN csr FOR SELECT parking.prk_id,
...

[waly2k1]

Yo lo hice con SQL Server y no Oracle a traves de ADO
utilizando un comando, pero es lo mismo si ejecutas desde la conexion ADO
Supongamos q tu conexion se denomina Conx:

Conx.Execute( 'mySP ' + param1 + ', ' + param2 + ', ' + paramN );
Donde mySP es el nombre del Stored Procedure


Te copio un poco de codigo y perdon por el desorden, pero al editar no te muestran las etiquetas de codigo

with Data.adoCMD do
begin
CommandType := cmdStoredProc;
CommandText := 'dbo.SP_COMPRAS_INSERT';
Parameters.Clear;
Parameters.CreateParameter( '@Id_Compra' , ftLargeInt , pdOutput , 20, 0 );
Parameters.CreateParameter( '@Id_Proveedor' , ftLargeInt , pdInput , 20, StrToInt( txtProveedor.Text ) );
Parameters.CreateParameter( '@Tipo_Comprobante' , ftString , pdInput , 3 , cbTipoDOC.Text );
Parameters.CreateParameter( '@Nro_Comprobante' , ftString , pdInput , 13, txtComprobante.Text );
Parameters.CreateParameter( '@FechaRecepcion' , ftDate , pdInput , 10, Date );
Parameters.CreateParameter( '@MontoIVA' , ftCurrency , pdInput , 20, StrToFloat( txtIVAGral.Text ) );
Execute;
end;

adoCMD es un adocommand q esta en un datamodule

Saludos y Exitos