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

Вниз

TTable   Найти похожие ветки 

 
Laimer   (2001-12-18 11:42) [0]

Можноли очистить таблицу БД от записей не применяя Exclusive


 
panov   (2001-12-18 11:48) [1]

Query1.Sql.Text := "DELETE FROM mytable";
Query1.Execute;


 
Laimer   (2001-12-18 11:52) [2]

У меня используется там Ttable, как с ним можно эт провернуть

panov.а за ответ спасибо тоже пригодиться))


 
panov   (2001-12-18 11:58) [3]

Тогда только в цикле
while not Table1.Eof do
begin
Table1.Delete;
end;


 
Laimer   (2001-12-18 12:11) [4]

Спасибо


 
tns   (2001-12-18 13:24) [5]

есть функция стандартная функция Empty Table.
with MyTable do
begin
Active := False;
DatabaseName := "";
TableName := "123.dbf";
TableType := dbase;
EmptyTable;
end;


 
tns   (2001-12-18 13:25) [6]

есть стандартная функция Empty Table.
with MyTable do
begin
Active := False;
DatabaseName := "";
TableName := "123.dbf";
TableType := dbase;
EmptyTable;
end;


 
panov   (2001-12-18 13:41) [7]

>tns © (18.12.01 13:25)
"...не применяя Exclusive"


 
Deniz   (2001-12-18 14:33) [8]

>panov © (18.12.01 11:58)
>Тогда только в цикле
>while not Table1.Eof do
>begin
> Table1.Delete;
>end;
Заменить
while not Table1.Eof do на while not Table1.IsEmpty do


 
panov   (2001-12-18 14:42) [9]

>Deniz
Абсолютно без разницы...


 
Deniz   (2001-12-18 15:56) [10]

>panov © (18.12.01 14:42)
А если ты стоишь не на первой записи?
В любом случае у меня проверяется пустота таблицы, а у тебя конец:)


 
panov   (2001-12-18 16:09) [11]

Посмотри в Help DataSet.Eof:
Test Eof (end-of-file) to determine if the cursor is positioned at the last record in a dataset. If Eof is True, the cursor is unequivocally on the last row in the dataset. Eof is True when an application:

- Opens an empty dataset.
- Calls a dataset’s Last method.
- Call a dataset’s Next method, and the method fails (because the cursor is already on the last row in the dataset).
- Calls SetRange on an empty range or dataset.


 
Val   (2001-12-18 16:25) [12]

>panov © (18.12.01 16:09)
на первую запись стать надо бы, думаю:
TDataSet.Delete
Deletes the active record and positions the cursor on the next record.


 
panov   (2001-12-18 18:08) [13]

>Val © (18.12.01 16:25)
Точно. Вначале - Table1.First;


 
Deniz   (2001-12-19 08:51) [14]

>panov © (18.12.01 16:09)
А причем тут Help? Особенно - Opens an empty dataset если в условии сказано что Table не пустой изначально.
В любом случае логично проверять EOF при проходе по всем записям с какими-то изменениями, а при удалении всех записей логичнее проверять IsEmpty, потому как задача то в этом и состоит: "Удалять пока не кончатся записи(таблица опустеет)."
Я к чему все это, если вдруг во время выполнения цикла произойдет Next или Locate на следующие записи(теоретически такое возможно), то тогда EOF удалит не все записи, или в цикле надо поставить First???


 
panov   (2001-12-19 09:05) [15]

Deniz © (19.12.01 08:51)

Согласен.
Хотя в цикле навряд ли курсор сместится:-)



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

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

Наверх





Память: 0.59 MB
Время: 0.022 c
1-66259
Quest
2001-12-29 09:44
2002.01.21
Пропадает каретка в режиме редактирования ячейки TStringGrid


1-66276
BigLamer
2002-01-04 12:57
2002.01.21
Почему Delphi делит не верно?


1-66306
Билл Гейтс
2002-01-04 02:54
2002.01.21
Редактор кода для Дельфи


6-66335
Kornet
2001-10-08 16:04
2002.01.21
Как найти свободный порт?


1-66288
Scanner
2002-01-04 19:18
2002.01.21
Правила хорошего тона в использовании классов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский