Ver Mensaje Individual
  #1  
Antiguo 24-03-2009
edr_tuc edr_tuc is offline
Miembro
 
Registrado: dic 2007
Posts: 18
Reputación: 0
edr_tuc Va por buen camino
error de zeos al ejecutar un sql update

hola a todos,tengo un problema cuando ejecuto un sql update en un sistema que estoy haciendo en delphi 7 utilizando motor de bases mysql 5.0 y usando los conectores zeos.
lo raro es que en el mismo sistema en un modulo me funcionan bien las altas y actualizaciones pero en otros 2 modulos me aparecen los mismos errores al intentar ejecutar el update.
el cuadro de error que me aparece en la barra superior dice:
Source file not found: ZdbcMysqlUtils.pas luego tiene un edit en el medio que dice : path to source file ZdbcMysqlUtils.pas y un boton browse
tiene un check box dice: add directory to debug source path y tambien
tiene tb 3 botones OK , CANCEL ,IGNORE
al presionar Ok me aparece un cuadro que no lo encuentra a ZdbcMysqlUtils.pas
y al presionar ignore o cancel me dice que tengo un error en una linea de mi sintaxis de sql pero ya comprobe y esta bien
les paso el codigo del boton que presiono y aparece el error :

Código Delphi [-]
 
procedure Tfabmempleados.bguaClick(Sender: TObject);
begin
if (endni.Text<>'')and (enomb.Text<>'')and(etele.Text<>'')and(edomi.Text<>'')and (cfunc.Text<>'')then
 if Messagedlg('¿Desea guardar los cambios?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  qmodificacion.Active:=false; //si estan todos los edit completos u¿y acepto modificar mando todos los parametros a
  qmodificacion.Params[0].asinteger:=strtoint(endni.Text);//la consulta y ejecuto el query update
  qmodificacion.Params[1].asstring:=enomb.Text;
  qmodificacion.Params[2].asinteger:=strtoint(etele.Text);
  qmodificacion.Params[3].asdatetime:=enaci.DateTime;
  qmodificacion.Params[4].asstring:=edomi.Text;
  qmodificacion.Params[5].asdatetime:=eingr.DateTime;
  qmodificacion.Params[6].asstring:=cfunc.Text;
  qmodificacion.Params[7].asinteger:=strtoint(ecod.Text);
  qmodificacion.execsql;
  consulta.Refresh;//refresco la query de la grilla asi me muestra la actualizacion
  ShowMessage('Los cambios fueron realizados');
  dm.templeados.Refresh;
  ebus.Clear;
  ebus.setfocus;
  endni.Clear;
  enomb.Clear ;
  etele.Clear  ;
  edomi.Clear   ;
  cfunc.Text:='';
  end
else
showmessage('Debe completar todos los campos para poder guardar los cambios');
end;

y por ultimo esta es la propiedad SQL del query que se ejecuta deltro del boton

Código SQL [-]
 
update empleados 
set 
dni=:a, 
nombre=:b,
telefono=:c,
fec_nac=:d,
domicilio=:e,
fec_ing=:f,
funcion=:g,
where cod_emp=:h


espero pueden ayudarme,desde ya les estoy muy agradecido
saludos a todos
Responder Con Cita