pregunta sobre storeprocedures y delphi

[julyus]

encontre esto pero no entiendo esto de pdInputOutput

Código Delphi [-]
EvenType : string;
EvenCode  : string;
begin

  Conn := ConnPool.GetConnection;
  // consulto datos
  if  iCurrSpeed = 0 then
  begin

  //ejecuto el storeprocedure
  ADOSP.Connection := Conn.Connection; // paso el string de conexion
  ADOSP.ProcedureName := 'GetOverSpeed'; // pongo el nombre del SP que voy a utilizar
  ADOSP.Parameters.Refresh; // creo los parametros que espera el SP
  ADOSP.Parameters.ParamByName('@CompanyId').Value  := iCompanyId;
  ADOSP.Parameters.ParamByName('@CarNumber').Value  := sVehicleId;
  ADOSP.Parameters.ParamByName('@Speed').Value  := iCurrSpeed;
  ADOSP.Parameters.ParamByName('@EventType').Direction := pdInputOutput;
  ADOSP.Parameters.ParamByName('@EventCode').Direction :=  pdInputOutput;
  ADOSP.Open;

  end;
  ADOSP.Close;
  ADOSP.Free;

[julyus]

mi duda es conrespecto que necesito los valores que me regrese
para pasarlos a sus respectivas variables var1 var3 ???

Código Delphi [-]
ADOSP.Parameters.ParamByName('@EventType').Direction := pdInputOutput;
ADOSP.Parameters.ParamByName('@EventCode').Direction :=  pdInputOutput;

[Alejandro73]

si tienes el procedimiento almacenado en el motor, defines las variables que necesitas de salida como ej @mivariable1 INT OUTPUT; cuando llamas al procedimiento almacenado debes pasar estos valores y una vez que lo ejecutas preguntas por el valor que trae ese campo referenciando al numero de posicion que tiene el parametro, recuerda que estos van desde cero en adelante y seri mas o menos asi

if dm.adopa_miprocedimiento.parameters[1].value=condicion
then .....
else ....

espero te sirva

Saludos
Alejandro Arancibia
CHILE

[TheJHorse]

SQL: base de datos "db_prueba"
La tabla

Código SQL [-]
CREATE TABLE tbl_persona
(
  codigo INT IDENTITY(1,1) NOT NULL PRIMARY KEY,
  nombre VARCHAR(25)
)

un storeprocedure para registrar personas

Código SQL [-]
CREATE PROCEDURE spNuevaPersona
  @vcNombre VARCHAR(25),
  @iRetorno INT OUTPUT
AS
  INSERT INTO tbl_persona (nombre) VALUES (@vcNombre)
  
  SET @iRetorno = @@IDENTITY -- Retornamos el codigo de la persona
GO

En Delphi

Código Delphi [-]
acConeccion: TADOConnection;
spProcedimiento: TADOStoredProc;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  iResultado: Integer;
begin
  acConeccion.ConnectionString := 'Provider=SQLNCLI.1;Persist Security Info=False;User ID=USUARIO;Password=PASSWORD;Initial Catalog=db_prueba;Data Source=.';

  try
    acConeccion.Open();
  except
    Application.Terminate();
  end;

  spProcedimiento.Close;
  spProcedimiento.Prepared := false;
  spProcedimiento.ProcedureName := 'spNuevaPersona';
  spProcedimiento.Parameters.Refresh;

  spProcedimiento.Parameters.ParamByName('@vcNombre').Value := 'Angeluz';
  spProcedimiento.Parameters.ParamByName('@iRetorno').Value := 0;
  spProcedimiento.Prepared := true;
  spProcedimiento.ExecProc();

  iResultado := spProcedimiento.Parameters.ParamByName('@iRetorno').Value;

  acConeccion.Close();

  Application.MessageBox(PChar('Codigo generado: ' + IntToStr(iResultado)), 'Resultado', 0);
end;