Eliminar ultimo registro de un dbgrid
 

mi bd esta hecha en mysql y la conexión que utilizo es ADOTable-->DataSource-->DBgrid
tengo un botón de eliminar todo funciona bien pero cuando elimino el ultimo registro de la tabla me marca error

y podrias decir que error marca?

para que la genteita del foro tenga una mejor vision de la problematica...trata de ser lo mas explicito posible..., porque si no mencionas detalles como el "error", entonces quedamos en el aire comprendes?

perdón no me exprese bien, si elimina el ultimo registro bien. pero si no tengo registro y si por error se le da clic al botón de eliminar es cuando surge el error

entonces en el boton eliminar has una pregunta

aqui el pseudocodigo

Código Delphi [-]
 
if not tabla.eof then
   delete
else
mensaje.... no hay registros para eliminar

Hola

Código Delphi [-]
 If AdoTable1.RecordCount = 0 then
    showmessage('no hay nada que borrar');

Saludos

... o esto:

Código Delphi [-]
try
  AdoTable1.delete
except
  ShowMessage('No se ha borrado ningún registro');
end;

:)

Hola.

Otra opción más:

Código Delphi [-]
procedure TForm1.btnEliminarClick(Sender: TObject);
begin
 if ADOTable.IsEmpty then
    MessageDlg('No hay registros para borrar',mtError,[mbOk],0)
  else
    ADOTable.Delete;
end;

Opciones no te faltan... :)

Saludos.

Gracias Por La Ayuda A Todos Ya Quedo EL DE ELIMINAR EL ULTIMO REGISTRO, Pero Ahora: Por Ejemplo Tengo Varios Registros Con La Misma Clave Como Eliminar Todos Los Que Tengan La Misma Clave :d:d:d

pues mas o menos asi...

Código Delphi [-]
 
delete from tabla where campo = loquesea

y si es una nueva pregunta genera un nuevo hilo