Ver Mensaje Individual
  #4  
Antiguo 20-12-2010
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Reputación: 16
microbiano Va por buen camino
respuesta

ya probaste con el codigo que te puse?


prueba con el siguiente codigo es el que yo uso para ahcer las modificaciones adaptalo a lo que tu necesitas.

Código Delphi [-]
with Fmodulo.Qry_Temp do
    begin
      sQL.Clear;
      SQL.Add('Update empresa Set nombre=:pnombre');
      sql.Add(',rfc=:prfc');
      sql.Add(',direccion=:pdireccion');
      sql.Add(',cp=:pcp');
      sql.Add(',localidad=:plocalidad');
      sql.Add(',tel=:ptel');
      sql.Add(',tel2=:ptel2');
      sql.Add(',fax=:pfax');
      sql.Add(',mail=:pmail');
      sql.Add(',web=:pweb');
      sql.Add('Where idempresa=:pid');

      Parameters.ParamByName('pnombre').Value:=wnombre;
      Parameters.ParamByName('prfc').Value:=wrfc;
      parameters.ParamByName('pdireccion').Value:=wdireccion;
      Parameters.ParamByName('pcp').Value:=wcod_pos;
      parameters.ParamByName('plocalidad').Value:=wlocalidad;
      parameters.ParamByName('ptel').Value:=wtel;
      Parameters.ParamByName('ptel2').Value:=wtel2;
      Parameters.ParamByName('pfax').Value:=wfax;
      Parameters.ParamByName('pmail').Value:=wmail;
      Parameters.ParamByName('pweb').Value:=wweb;
      Parameters.ParamByName('pid').Value:=widentificador;

       ExecSQL;

     end
Responder Con Cita