Мне нужно удалить все записи в *.dbf

← →
pavel_rosl (2003-04-10 07:14) [0]

Мне нужно удалить все записи в *.dbf
Одну - могу table1.delete;
Просто не так поняли.

← →
Ozone © (2003-04-10 07:28) [1]

DROP TABLE "Table.dbf"

← →
Ozone © (2003-04-10 07:30) [2]

I"m sorry. (вопрос не так понял)
DELETE FROM TABLE "Table1.dbf" Table1

← →
Anatoly Podgoretsky © (2003-04-10 07:48) [3]

EmptyTable

← →
ЮЮ © (2003-04-10 07:49) [4]

из Help-a:
TTable.EmptyTable
Deletes all records from the table.

← →
evvcom © (2003-04-10 08:26) [5]

To Ozone: вроде ясно было, что используется компонент TTable, а не TQuery... А ты SQL гонишь!

← →
Anatoly Podgoretsky © (2003-04-10 08:57) [6]

Вроде бы как не ясно или он тебе сообщил?

← →
AlexSerp © (2003-04-10 13:51) [7]

2Anatoly Podgoretsky
Отсюда видно " Одну - могу table1.delete; "

← →
Vovchik_A © (2003-04-10 15:57) [8]

with Table1 do

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

end;

← →
Anatoly Podgoretsky © (2003-04-10 16:37) [9]

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 или другой компонент.

Анатолий, да все понятно.
Просто исходя из вопроса можно сделать вывод, что человек новичок.
И при программровании еще не дошел до именования компонентов со смыслом.
Поэтому
Query1: TQuery;
Table1: TTable;
AdoQuery1: TAdoQuery;
AdoTable1: TAdoTable;

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

C учетом вопрос, поскольку ни какой конкретности по системе нет, подходит любой ответ, даже DeleteFile-

>Vovchik_A © (10.04.03 15:57)

with Table1 do

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

end;

А вот так будет еще и профессионально:

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

Мне нужно удалить все записи в *.dbf Найти похожие ветки