Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Вниз

Виснет при удалении   Найти похожие ветки 

 
Telic   (2002-10-30 12:38) [0]

Мастера. Не пойму.
Удаляю записи из БД PARADOX 7.0 (в другой проге работает)
while not table1.eof do
begin
if table1.fieldbyname("FinRem").value<>null then
table1.delete;//Если в поле есть дата, то удалить.
end;
"FinRem" - поле типа "дата
Идаляет или не то, или вообще виснет намертво!!!
Помогите.


 
Telic   (2002-10-30 12:46) [1]

АААААА---УУУУУУУУ. Мастера-ааааа-аааа


 
Johnmen   (2002-10-30 13:06) [2]

Ничего криминального в коде нет...
Необходимы подробности. И попробуй оттрассировать...


 
Telic   (2002-10-30 13:12) [3]

Какие подробности интересуют?


 
Darts   (2002-10-30 13:23) [4]

Table1.next, скорее всего, пропустил => вечный цикл


 
Johnmen   (2002-10-30 13:27) [5]

На каком шаге удаления виснет, каково значение "FinRem" удаляемой записи, сколько записей в НД изначально и сколько перед висом, сообщение об ошибке, ну и т.д. и т.п.


 
NDeu   (2002-10-30 13:28) [6]

table1.next


 
Johnmen   (2002-10-30 13:31) [7]

>Darts (30.10.02 13:23)
>NDeu © (30.10.02 13:28)

Вы чего, ребята ?! Он же удаляет в цикле !


 
gek   (2002-10-30 13:34) [8]

> Johnmen © (30.10.02 13:31)

Нет, ну а если условие
if table1.fieldbyname("FinRem").value<>null then
никогда не будет выполнено, тогда повиснет


 
Telic   (2002-10-30 13:34) [9]

Table.next пробовал. Без разницы.
(Кстати, в другой проге нормально работает и без Next)
Значение: 30.12.2002 и т.п(т.е. дата).
Записей 10 (пока пишется; для теста),ничего не удаляется.
Нажимаю кнопку, и ...всё, виснет.


 
Telic   (2002-10-30 13:38) [10]

Table.next пробовал. Не виснет (уже лучше:-)),но ничего не удаляет.


 
stone   (2002-10-30 13:40) [11]

Я бы попробовал еше такой вариант:

table1.DisableControls;
for i := table1.RecordCount downto 1 do
begin
table1.RecNo := i;
if table1.fieldbyname("FinRem").value<>null then
table1.delete;
end
table1.EnableControls;


 
gek   (2002-10-30 13:40) [12]


while not table1.eof do
begin
if table1.fieldbyname("FinRem").value<>null then
table1.delete;//Если в поле есть дата, то удалить.
if table1.eof then break;
table1.next;
end;



 
ЮЮ   (2002-10-30 13:43) [13]

if table1.fieldbyname("FinRem").IsNull
then table1.delete
else table1.next


 
ЮЮ   (2002-10-30 13:45) [14]

to gek © (30.10.02 13:40) Если удачно удалим, то пропустим следующую за удалённой, не проверяя её


 
Telic   (2002-10-30 13:50) [15]

Спасибо всем большое. Ларчик-то просто открывался. Это я сам стормозил.


 
Johnmen   (2002-10-30 13:50) [16]

table1.first;
while not table1.eof do
begin
if table1.fieldbyname("FinRem").value<>null then
table1.delete //Если в поле есть дата, то удалить.
else table1.next;
end;


 
gek   (2002-10-30 13:50) [17]

> ЮЮ © (30.10.02 13:45)
Согласен, чуть поспешил



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

Форум: "Базы";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.008 c
6-59313
Flex
2002-08-02 09:37
2002.11.18
Как в Delphi скачать файл с сайта?


6-59323
ukota
2002-08-31 16:38
2002.11.18
Как определить тип сервера(iis,Apache,FreeBSD...) по его IP


1-59222
@andrew
2002-11-06 16:14
2002.11.18
И снова Drag&Drop. Где можно почитать: как зарегистрировать


1-59111
Part
2002-11-07 15:20
2002.11.18
Еще один простой вопрос!!


1-59145
Тень
2002-11-08 17:24
2002.11.18
Как сохронить текст в TStringGrid?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский