Скачать: CL | DM;

Удаление записей из Paradox   Найти похожие ветки 

← →
Gregory   (2002-11-09 09:39) [0]

У меня в цикле удаляются записи из БД. Возникает глюк: удаляются только первые 5 или 6 записей. Что делать?

---

← →
iNew   (2002-11-09 09:42) [1]

Ошибка в 17-й строке.
Давай исходник.

---

← →
Gregory   (2002-11-09 10:10) [2]

Вот исходник:
TableCar:=TTable.Create(Application);
TableCar.TableName:="db\cars.db";
TableCar.Active:=True;
CurrDate:=Date();

TableCar.First;
while not TableCar.Eof do
begin
DateRec:= TableCar.FieldValues["DateCars"];
if DateRec=CurrDate then
TableCar.Delete;
TableCar.Next;
end;

TableCar.Active:=False;
TableCar.Destroy;

---

← →
Leran2002 ©   (2002-11-09 10:16) [3]

if DateRec=CurrDate then
TableCar.Delete
else
TableCar.Next;

---

← →
Leran2002 ©   (2002-11-09 10:26) [4]

Q:TQuery;
...

Q.SQL.Clear;
Q.SQL.Add("DELETE FROM "cars.db"");
Q.SQL.Add("WHERE DateCars=""+DateToStr(Date)+""");
Q.ExecSql;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c