| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление записей из Paradox [D5, D6, Paradox]

Gregory ©   (2002-11-09 09:39:00) 

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

---

Leran2002   (2002-11-09 10:26:00) [1]

Q:TQuery;
...

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

---

Leran2002   (2002-11-09 10:16:00) [2]

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

---

Gregory   (2002-11-09 10:10:00) [3]

Вот исходник:
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;

---

iNew   (2002-11-09 09:42:00) [4]

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

---

Наверх