Parametros + Stored Procedure

[osmuar_exp]

Hola, con este procedimiento que debes de crear te modifica la tabla, solamente que debes de mandarle los parametros...

1) Procedimiento Almacenado

Código SQL [-]
CREATE PROCEDURE Actualizar (ENTREGA INTEGER(11), CIUDAD CHAR(50), ID INTEGER(11), TIPO integer(11) )
    NOT DETERMINISTIC
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
    SET @s = CONCAT('update tablaX set entrega =' , ENTREGA , ' where ciudad = ', CIUDAD, ', id = ' , ID, ', tipo = ' , TIPO);
    PREPARE consulta FROM @s;
    EXECUTE consulta;
  END;

2) Consulta para mandarle los parámetros al procedimiento

Código Delphi [-]
procedure Actualizar(entrega:integer; ciudad:string; id:integer; tipo:integer);
 var xConsulta:TADOQuery;
 begin 
    xConsulta:=TADOQuery.Create(nil);
    xConsulta.Connection:=frm_md.conexion;
    try
      with xConsulta do
       begin
           close;
           sql.Text:='call Actualizar('+IntToStr(entrega)+','+QuotedStr(ciudad)+','+inttostr(id)+','+IntToStr(tipo)+')';
           ExecSQL;
       end;
    finally
      xConsulta.free;
  end;
 end;

3) Y para mandarlo en delphi seria algo asi:

Código Delphi [-]
Actualizar(0,'MEX',253,1);

Saludos