problema al borrar varios registros

[[oscarac]]

y porque tienes que recorer la tabla porque no lo borras en bloque


creas un query que diga mas o menos asi

Código SQL [-]
Delete * from Tabla where TIpo_Producto = 'Comidas'

[giocatore]

Quisiera hacerlo mediante código delphi, sin usar consultas. Me olvidaba es una bd en mysql y conecto con ado

[[oscarac]]

mm prueba haciendolo de esta manera

Código Delphi [-]
 
while not (datamodule7.ADOTable3.Eof) do
if datamodule7.ADOTable3['Tipo_producto']='Comidas' then
   datamodule7.ADOTable3.Delete
Else
  datamodule7.ADOTable3.Next;
end;

imagina que cuando encuentra un registro cuyo tipo es Comidas y lo borra... donde queda el puntero en el registro? avanza hacia el siguiente verdad?
y si encima tu le das next entonces puede que este borrando solo algunos

prueba y comentas

[giocatore]

Empezado por oscarac

mm prueba haciendolo de esta manera

Código Delphi [-]
 
while not (datamodule7.ADOTable3.Eof) do
if datamodule7.ADOTable3['Tipo_producto']='Comidas' then
   datamodule7.ADOTable3.Delete
Else
  datamodule7.ADOTable3.Next;
end;

imagina que cuando encuentra un registro cuyo tipo es Comidas y lo borra... donde queda el puntero en el registro? avanza hacia el siguiente verdad?
y si encima tu le das next entonces puede que este borrando solo algunos

prueba y comentas

Muchísimas gracias oscarac tu solución fue muy práctica y eficáz, probé y me funcionó de mil maravillas, me ayudaste mucho.

GRACIAS POR TU TIEMPO y también a todos los que comentaron.

[[oscarac]]

de nada.... cualquier cosa... en que pueda ayudarte con mucho gusto... de paso que refuerzo mis conocimientos

[ContraVeneno]

si quieres borrar todas las "Comidas", lo mejor es hacerlo con una consulta, como dijo Oscar... y pues eso lo pones en el código de delphi, lo haces desde tu programa. Solo que en lugar de usar un TADOTable, utilizas un TADOQuery...

http://www.clubdelphi.com/foros/show...18&postcount=5