Ver Mensaje Individual
  #2  
Antiguo 11-06-2010
osmuar_exp osmuar_exp is offline
Miembro
 
Registrado: ene 2008
Posts: 18
Reputación: 0
osmuar_exp Va por buen camino
Procedimiento Almacenado

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
Responder Con Cita