Мне нужно удалить все записи в *.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 или другой компонент.

← →
AlexSerp (2003-04-10 16:51) [10]

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

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

← →
Anatoly Podgoretsky (2003-04-10 22:09) [11]

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

← →
MsGuns (2003-04-10 22:39) [12]

>Vovchik_A © (10.04.03 15:57)

with Table1 do

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

end;

← →
MsGuns (2003-04-10 22:46) [13]

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

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

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