![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вылетают таблици [D5, Paradox]
saf © (2002-08-30 19:57:00)У меня в проге есть две таблицы которые являются промежуточными между вводом данных и занесением данных в основные таблицы.
Т.е. Заполняется промежуточная таблица, проверяются узером правильность и точность данных(если ошибка, то исправляется).
Далее кнопка "Все в склад", данные заносятся в основные таблицы а промежуточная таблица очищается. Почему она периодически портится(то данные незаносяться, то появляется какая-то строка и не удаляется). Создаю новую таблицу и все работает какое-то время, потом опять.....
MsGuns (2002-09-02 12:11:00) [1]>Darknode © (02.09.02 11:00)
Просто автор квеста делает прогу основываясь на какой-то старой теме, например на Клиппере (типа берет ее за основу). А там такие вещи - обычное дело, тем более не о каком Share тогда речи не было
Darknode (2002-09-02 11:00:00) [2]2 saf
Я не понял, а что обязательно надо было делать дополнительные промежуточные таблицы, чтобы что-то проверять, а потом заносить в основную!? 8-/ Зачем весь этот гемор? Неужели все проще не сделать...
MsGuns (2002-09-01 13:46:00) [3]>Прочитал текст вопроса до конца и обомлел - записи удаляются НАВИГАТОРОМ ! Круто ! Сколько прог видел, а таконо еще не встречал :8>)))
MsGuns (2002-09-01 13:44:00) [4]>saf © (30.08.02 19:57)
>Далее кнопка "Все в склад", данные заносятся в основные таблицы а промежуточная таблица очищается. Почему она периодически портится(то данные незаносяться, то появляется какая-то строка и не удаляется). Создаю новую таблицу и все работает какое-то время, потом опять.....
Путь в никуда... Ваша технология, многоуважаемый, еще как-то с хряком будет работать на локальном компе при аккуратном операторе, но совершенно непригодна для совместной работы !
Leran2002 (2002-09-01 11:21:00) [5]Чтот ты не по умному както удаляешь:
procedure TForm1.Button4Click(Sender: TObject);
begin
Query2.First;
While not Query2.Eof do Query2.Delete;
Query2.FlushBuffers;
end;
saf (2002-08-31 19:46:00) [6]Человек один.
Чистим так:
procedure TForm1.Button4Click(Sender: TObject);
begin
DBNavigator2.ConfirmDelete:=False;
While Query2.recordcount<>0 do
DBNavigator2.BtnClick(nbDelete);
DBNavigator2.ConfirmDelete:=True;
try
DBNavigator2.BtnClick(nbPost);
except
end;
end;
elv (2002-08-31 15:06:00) [7]saf © (30.08.02 19:57)
Сколько человек одновременно работает?
ArhAngel2 (2002-08-30 20:10:00) [8]А очистка как идет?
Jeer (2002-08-30 20:01:00) [9]Действительно, почему ?