Ver Mensaje Individual
  #1  
Antiguo 05-06-2008
(MAJ) (MAJ) is offline
Miembro
 
Registrado: abr 2007
Posts: 71
Reputación: 18
(MAJ) Va por buen camino
error de campos

hola a todos, tengo u problema con la sentencia update del sql ya que tengo una base de datos de 10 campos y cuando quiero hacer un up date me dice que me falta un parametro este es el codigo
Código Delphi [-]
begin
if application.MessageBox('Esto modificará el registro a la Base de Datos     ¿Está seguro?','Alerta', MB_ICONEXCLAMATION + MB_OKCANCEL)=MrOK
        then begin
        preparo_modificacion;
    dm.consulta.ExecSQL;
    end
        else Modificar.ModalResult:=mrnone;
end;
procedure tModificar.preparo_modificacion;
begin
with dm.consulta do
 begin
  Close;
  SQL.Clear;
  SQL.Add('update Alumnos');
  SQL.Add('set legajo_alu= (:legajo), nombre_alu = :nombre, dni_alu= :dni, apellido_alu= :apellido, direccion_alu= :direccion, telefono_alu= :telefono, movil_alu= :movil, libreta_alu= :libreta, pase_alu= (ase_d_colegio), estado_alu= (:estado)');
  ParamByName('legajo').AsInteger:=strtoint(edlegajo_alu.Text);
  ParamByName('nombre').AsString:=ednom_alu.Text;
  ParamByName('apellido').AsString:=edap_alu.Text;
  ParamByName('dni').AsInteger:=strtoint (eddni_alu.Text);
  ParamByName('direccion').AsString:=eddir_alu.Text;
  ParamByName('telefono').AsInteger:=strtoint(edtel_alu.Text);
  ParamByName('movil').AsInteger:=strtoint(edmovil_alu.Text);
  ParamByName('libreta').AsBoolean:=True;
  ParamByName('pase_d_colegio').AsBOOLEAN:=TRUE;
  ParamByName('estado').AsBoolean:=True;
  open;
 end;
end;
gracias de antemano
p/d disculpen si no se entiende que quiero
Responder Con Cita