Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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)

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




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




Наверх





Память: 0.73 MB
Время: 0.014 c
3-66200           IM                    2001-12-15 08:58  2002.01.21  
Delphi и MS SQL


3-66183           Maks                  2001-12-14 10:54  2002.01.21  
Добавление удаление полей в таблице


1-66242           Ivanov                2002-01-03 12:25  2002.01.21  
Люди, подскажите алгоритм


3-66222           Dup                   2001-12-10 10:18  2002.01.21  
Компонент для деревьев


3-66181           Алекс                 2001-12-16 11:20  2002.01.21  
Новая БД