ayuda baja fisica de registro

[DANIEL1818]

Hola, una pregunta, tengo una tabla de "comentarios" en Access 2010 que tiene

-nombre (de la persona que hace el comentario)
-descripcion (es el comentario)
-borrado (que es un booleano que indica si esta borrado o no)


y tengo dos formas de borrarlos, una de forma lógica (seteo en true el campo borrado de la tabla comentarios), y tambien si el usuario elige puede borrarlos de forma fisica a esos comentarios. El proceso en delphi que tengo en el onClick de un tButton (del que borra los comentarios FISICAMENTE) es:

Código Delphi [-]
       DM.Comentarios.Open;
        DM.Comentarios.First;
        while not(DM.Comentarios.Eof) do begin
          if(DM.Comentarios.FieldByName('nombre_usuario').AsString=Label7_miNombre.Caption)then
                DM.Comentarios.Delete; 

          DM.Comentarios.Next;
        end;
        DM.Comentarios.Close;

Label7_miNombre.caption es el nombre de la persona que inicia sesion en su cuenta,entonces el nombre aparece ahi.

Dicho esto EL PROBLEMA ES: cuando una persona inicia sesion en su cuenta y aprieta el botón para borrar FÍSICAMENTE todos sus comentarios de dicha cuenta (el nombre como dije anteriormente se obtiene del Label7_miNombre.caption), estos no los borra de manera correcta, sino que si hay 5 comentarios de esa persona capas borra 2 y los restantes 3 no, o quizás borra un comentario por medio, PORQUE PUEDE SER QUE ESTE PASANDO ESTO?

Espero sus respuestas, y desde ya muchisimas gracias por ayudar siempre!!

[ecfisa]

Hola DANIEL1818.

Yo creo que te conviene hacer el borrado con un TADOQuery desde un método en el datamodule:

Código Delphi [-]
procedure DM.BorrarComentario(const UserName: string);
var
  qy: TADOQuery;
begin
  qy := TADOQuery.Create(nil);
  try
    qy.Connection := ADOConnection1;
    qy.Close;
    qy.SQL.Text := 'DELETE FROM COMENTARIOS WHERE NOMBRE_USUARIO = :USUARIO'; 
    qy.Parameters.ParamByName('USUARIO').Value := UserName;
    qy.ExecSQL;
  finally
    qy.Free;
  end;
end;

y luego llamarlo desde el formulario de este modo:

Código Delphi [-]
...
begin
  DM.BorrarComentario( Label7_miNombre.Caption );

Saludos

[DANIEL1818]

Empezado por ecfisa

Hola DANIEL1818.

Yo creo que te conviene hacer el borrado con un TADOQuery desde un método en el datamodule:

Código Delphi [-]
procedure DM.BorrarComentario(const UserName: string);
var
  qy: TADOQuery;
begin
  qy := TADOQuery.Create(nil);
  try
    qy.Connection := ADOConnection1;
    qy.Close;
    qy.SQL.Text := 'DELETE FROM COMENTARIOS WHERE NOMBRE_USUARIO = :USUARIO'; 
    qy.Parameters.ParamByName('USUARIO').Value := UserName;
    qy.ExecSQL;
  finally
    qy.Free;
  end;
end;

y luego llamarlo desde el formulario de este modo:

Código Delphi [-]
...
begin
  DM.BorrarComentario( Label7_miNombre.Caption );

Saludos

Funcionó a la perfección!! Muchisimas gracias por darme siempre tu mejor ayuda