No realiza el update :(

[nosferatu177]

Hola a todos
mi problema es el siguiente, en el programa que estoy realizando requiero actualizar un campo de la tabla usuarios(pantalla "Login"), osea que: si despues de 3 intentos no esta correcta la contraseña desactivar el usuario(campo "estatus=0"); solo que no realiza actualizacion alguna; podría alguien ayudarme porfavor. utilizo los componentes zeos, mysql 5 y delphi 7; este es el codigo:

else begin //si intentos =3
showmessage('Demasiados intentos. El usuario ha sido bloqueado!');
//checamos q exista el usuario para bloquearlo
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from usuarios where user='+QuotedStr(usuario.Text));
query1.Open;
if not(data1.DataSet.Eof and data1.DataSet.Bof) then begin query1.Close; query1.SQL.Clear; //?????NO funciona!!!
query1.SQL.Add('update usuarios set estatus='+QuotedStr('0'));
query1.SQL.Add(' where user='+QuotedStr(usuario.Text));
query1.ExecSQL;
end;
query1.Active:=false;
Application.Terminate;
end;


donde:
query1=TZQuery
data1=TDataSource

[FrancisR]

Creo que deberías cambiar esta línea:

if not(data1.DataSet.Eof and data1.DataSet.Bof) then

por

if not(query1.isempty) then


Entiendo que data1.dataset es query1, ¿no?

[nosferatu177]

gracias por tu aporte....pero no funciono :'(; el datasource es donde queda la consulta para despues de ahi poder tomar datos en caso q se rechaze un movimiento: nuevo registro, modificacion o eliminar registro.

no se que pueda estar mal en el codigo o porq no realiza la actualizacion del campo....:'(

gracias por tu aporte!!!!