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;
qmodificacion.Params[0].asinteger:=strtoint(endni.Text);
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;
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