Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Мне нужно удалить все записи в *.dbf [D6, Win95/98]

pavel_rosl © (2003-04-10 07:14:00)
Мне нужно удалить все записи в *.dbf
Одну - могу table1.delete;
Просто не так поняли.

MsGuns (2003-04-10 22:46:00) [1]
А вот так будет еще и профессионально:

with Table1 do begin DatabaseName := "Delphi_Demos"; TableName := "CustInfo"; TableType := ttParadox; try Exclusive := true; // Захват таблицы EmptyTable; Exclusive := false; // Освобождение таблицы except ShowMessage("Таблица не может быть почищена сейчас"); end; end;

MsGuns (2003-04-10 22:39:00) [2]
>Vovchik_A © (10.04.03 15:57)

with Table1 do

begin
Active := False;
DatabaseName := "Delphi_Demos";
TableName := "CustInfo";
TableType := ttParadox;
Exclusive := true;// Без этого бу ругаться !
EmptyTable;

end;

Anatoly Podgoretsky (2003-04-10 22:09:00) [3]
C учетом вопрос, поскольку ни какой конкретности по системе нет, подходит любой ответ, даже DeleteFile-

AlexSerp (2003-04-10 16:51:00) [4]
Анатолий, да все понятно.
Просто исходя из вопроса можно сделать вывод, что человек новичок.
И при программровании еще не дошел до именования компонентов со смыслом.
Поэтому
Query1: TQuery;
Table1: TTable;
AdoQuery1: TAdoQuery;
AdoTable1: TAdoTable;

И твой вариант подходит, с учетом, что автор вопроса до сих пор не хочет внести ясность.

Anatoly Podgoretsky (2003-04-10 16:37:00) [5]
AlexSerp © (10.04.03 13:51)
Table1: TQuery;
Table2: TTable;
Table3: TAdoQuery;
Table4: TAdoTable;
и т.д.

Table1.Delete;
Table2.Delete;
Table3.Delete;
Table4.Delete;

Ясность будет наблюдать только тогда, когда он явно скажет, что использует TTable.

Но если это TTable, то лучше EmptyTable, поскольку мгновенно и не надо делать упаковку, я то же исходил из предположения, что он использует TTable, но у меня хватила благоразумия не наезжать по поводу ясности, может evvcom ясно кажется, что TQuery или другой компонент.

Vovchik_A (2003-04-10 15:57:00) [6]
with Table1 do

begin
Active := False;
DatabaseName := "Delphi_Demos";
TableName := "CustInfo";
TableType := ttParadox;
EmptyTable;

end;

AlexSerp (2003-04-10 13:51:00) [7]
2Anatoly Podgoretsky
Отсюда видно " Одну - могу table1.delete;"

Anatoly Podgoretsky (2003-04-10 08:57:00) [8]
Вроде бы как не ясно или он тебе сообщил?

evvcom (2003-04-10 08:26:00) [9]
To Ozone: вроде ясно было, что используется компонент TTable, а не TQuery... А ты SQL гонишь!

ЮЮ (2003-04-10 07:49:00) [10]
из Help-a:
TTable.EmptyTable
Deletes all records from the table.

Anatoly Podgoretsky (2003-04-10 07:48:00) [11]
EmptyTable

Ozone (2003-04-10 07:30:00) [12]
I"m sorry. (вопрос не так понял)
DELETE FROM TABLE "Table1.dbf" Table1

Ozone (2003-04-10 07:28:00) [13]
DROP TABLE "Table.dbf"

Наверх

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