Как очистить таблицу, оставив только структуру
Замечание: Этот пример не работает в режиме редактирования, так как таблица должна быть открыта в эксклюзивном режиме.
procedure TForm1.Button2Click(Sender: TObject);
begin
{Opens the table in exclusive mode}
try
with Table1 do
begin
Active := False;
Exclusive := True;
Active := True;
try
EmptyTable;
except
ShowMessage('Cannot empty database');
end;
end
except
ShowMessage('cannot open table in exclusive mode');
end
end;
|
|
|
|
|
Отзывы, вы их искали - отзывы о Реолексе. Фото и отзывы по отелю. . Каталог строительных фирм Украины - посмотреть. Каталог строительных фирм Украины. . Видеокамера MiniDV MD80 - 3000 р: миникамера. . купить антиквариат . |
