Как очистить базу данных?

[Dux]

Чтобы удалить одну запись, использую просто ADOQuery1.Delete. Какой командой можно удалить все записи сразу?

[Streletz]

Сообщение от Dux

Чтобы удалить одну запись, использую просто ADOQuery1.Delete. Какой командой можно удалить все записи сразу?

Специальной команды для этого у ADOQuery нет. Используйте SQL.

[xxbesoxx]

Сообщение от Dux

Какой командой можно удалить все записи сразу?

 With ADOQuery1 do
 begin
  Close;
  SQL.Clear;
  SQL.Text := 'DELETE FROM Имя_таблиц ';
  ExecSQL;
 end;

[JUDAS]

Сообщение от xxbesoxx

 With ADOQuery1 do
 begin
  Close;
  SQL.Clear;
  SQL.Text := 'DELETE FROM Имя_таблиц ';
  ExecSQL;
 end;

не всегда имя таблицы прописано в ADOQuery1. Там может быть и два, три "энн" имён таблиц.
и ещё, присвоение в SQL.Text очищает текст в TStrings коим является объект SQL в TDataSet. Не распространяйте пожалуйста порочную практику ...кода.
--------------
Автор, если в запросе ADOQuery1 одна таблица, воспользуйтесь кодом от xxbesoxx, он корректен хоть стиль желает лучшего.
Если в ADOQuery1 несколько таблиц, удалению принадлежат только те записи, которые выбираются с базовой таблицы.
В общем случае удаление будет выглядеть во так

with ADOQuery1 do
begin
  Open;
  DisableControls; //++
  while not IsEmpty do
    Delete;
  EnableControls;//++
  Close;
end;

Код "валит" записи основной таблицы до тех пор, пока ADOQuery1 не станет пустой

+дополнил
и ещё, рекомендую перед началом удаления записей вызывать методы DisableControls; а после окончания EnableControls

[xxbesoxx]

не всегда имя таблицы прописано в ADOQuery1. Там может быть и два, три "энн" имён таблиц.

Юморист при создание дочерние таблицы есть же онграничения FK и каскадное удаление на все СУБД

constraint FK_Lpriem foreign key(Lpri_u_id) references users(u_id) ON delete cascade

Если я удаляю на "главное" таблице он не будеть удалять на "дочерние таблицы" ?

и ещё, присвоение в SQL.Text очищает текст в TStrings коим является объект SQL в TDataSet.

Нет. не только "Текст" -всё таблицу , не имеить значения какои там данных в таблице ! А Oracle после "delete from tab" можно писать rollback и транзакция отменяется - все запись возвращается в таблице . Для Oracle можно писать так

TRUNCATE TABLE имятаблиц;

Ваши код цикл " while not IsEmpty do Delete;" - он же медленный , будеть очень потормазивать !

и ещё, рекомендую перед началом удаления записей вызывать методы DisableControls;

Повторяю !!! Я вобше не рекомендую для удаление запись применять цикл " while " - пока он перечитаеть все строк . SQL запрос будеть работать 10-раз быстрее

[JUDAS]

А Oracle после "delete from tab" можно писать rollback и транзакция отменяется - все запись возвращается в таблице . Для Oracle можно писать так

Согласн, с одной поправкой если в TOraDataSet не стоит AutoCommit = true. (о птичках, он там стоит по умолчанию)

Ваши код цикл " while not IsEmpty do Delete;" - он же медленный , будеть очень потормазивать !

Согласен, но вопрос автора темы не в скорости, а "как удалить" .

при создание дочерние таблицы есть же ограничения FK и каскадное удаление на все СУБД

юморист говрите, вот Вам пример (в стиле Oracle на реляционной БД)

структура прототипа БД:

CREATE TABLE users -- аккануты пользователей
(
   id            integer   primary key,
   name       CHAR (64),
   nick         CHAR (16),
   ....
   и.т.п
)



CREATE TABLE city
(
   id            integer   primary key,
   region      integer REFERENCE city(id) ON DELETE CASCADE on UPDATE SET NULL,
   name       CHAR (64),
   post        CHAR (16)
   ....
   и.т.п
)

CREATE TABLE houses
(
  id                integer   primary key,
  cityID          integer REFERENCE city(id) ON DELETE CASCADE on UPDATE CASCADE,
  street           CHAR (32),
  number         CHAR (8), // допускается 2А 
  objecttype    CHAR (4),
  positionX      decimal(10,8),
  positionY      decimal(10,8),
  heightM        decimal(5,2),
  levels           integer,
  ....
  -- идентификатор пользователя который вводил информацию
  inputUser     integer REFERENCE users(id) ON DELETE SET NULL on UPDATE CASCADE

);

в Выборке TAdoQuery следующий запрос

SELECT H.id,  C.name, H.street,  H.number,  H.objecttype, U.nick 
FROM 
  houses H, city C, users U
WHERE 
  H.cityID = C.id(+) AND H.inputUser = U.id(+) AND 
   С.name = 'РУСТАВИ' AND H.street like '%ШЕВАРНАД%'

Вопрос по "юмору", с каких таблиц выполнится удаление если выполнить команду TAdoQuery.Delete ?

Вопрос по сути Вашего ответа - что написать в SQL.Text чтобы у автора удалились все записи в TDBGrid(Eh)

[xxbesoxx]

1) Вы на слову " Юморист " Не обижайтесь пожалуйста , это вполне допустимое реальное общение тоже . там негего такого
2) Про удаление запись

CREATE TABLE city
(
   id            integer   primary key,
   region      integer REFERENCE city(id) ON DELETE CASCADE on UPDATE SET NULL,
   name       CHAR (64),
   post        CHAR (16)
   ....
   и.т.п
)

CREATE TABLE houses
(
  id              integer   primary key,
  cityID          integer REFERENCE city(id) ON DELETE CASCADE on UPDATE CASCADE,
  street          CHAR (32),
  number          CHAR (8), // допускается 2А 
  objecttype      CHAR (4),
  positionX       decimal(10,8),
  positionY       decimal(10,8),
  heightM         decimal(5,2),
  levels          integer,
  ....
  -- идентификатор пользователя который вводил информацию
  inputUser integer 
  REFERENCE users(id) ON DELETE SET NULL on UPDATE CASCADE

);

В моменте удаление записи city удаляется в таблице houses потому что есть cityID integer REFERENCE city(id) ON DELETE CASCADE on UPDATE CASCADE,

REFERENCE users(id) ON DELETE SET NULL on UPDATE CASCADE

А это что ? смысл писать ON DELETE SET NULL я не вижу....

в Выборке TAdoQuery следующий запрос

Код:


SELECT H.id, C.name, H.street, H.number, H.objecttype, U.nick
FROM
houses H, city C, users U
WHERE
H.cityID = C.id(+) AND H.inputUser = U.id(+) AND
С.name = 'РУСТАВИ' AND H.street like '%ШЕВАРНАД%'

Вопрос по "юмору", с каких таблиц выполнится удаление если выполнить команду TAdoQuery.Delete ?

Я понял что вы имеете в виду . В таком случае надо писать 2 приложения
1) из который будеть
--Регистрация пользователя
--Резервное копирование и восстановление баз данных
--Удаление запис то или иное таблици ! зависить от сущности
2) Здесь уже для операторов-users
-- Который будеть работать многотабличный запрос-е
-- и все требование который им нужно
Так что если вы имеете в виду ! реализовать все это одном приложение , Я думаю это ошибка проектирования .

Итоге : цикл " while " не советую и для очистка , резервное копирование и восстановление баз данных советую писать отделное приложения

[Stilet]

Не распространяйте пожалуйста порочную практику ...кода.

Чего?? О_о
Это что я сейчас услышал? Очередной гансмок в воздух?

рекомендую перед началом удаления записей вызывать методы DisableControls; а после окончания EnableControls

Это даже комментировать не хочу.

Какой командой можно удалить все записи сразу?

Запрос запросом - это не оспаривается, но есть СУБД типа Фокспро, в которой действительно есть одна команда для очистки. Какую СУБД используешь ты?

[JUDAS]

я никогда и ни на кого не обижаюсь, а тем более в Интернете.

Сообщение от xxbesoxx

Итоге : цикл " while " не советую и для очистка , резервное копирование и восстановление баз данных советую писать отделное приложения

Вот Вы и ответили на главный вопрос авторв - удалять с TAdoQuery всё сразу таким способом как Вы советовали - нельзя, потому что мы не знаем что там внутри TAdoQuery. Там может быть сцепка с 5-ти таблиц, причём две из них могут быть главные (например таблица адресов).
На экране видим "Москва, ул Ленина, д2 кв.4" на на самом деле это может быть выборка с 4-х таблиц причём главная (первая) таблица - город.
Удаляя все в таблице город, мы удалим не только квартиры дома 2 а и все улицы Москвы.

>Очередной гансмок в воздух?
Стилет, речь идёт об этои

 With ADOQuery1 do
 begin
  Close;
  SQL.Clear;
  SQL.Text := 'DELETE FROM Имя_таблиц ';
  ExecSQL;
 end;

у нас на роботе, некоторые специалисты пишут вообще вот так:

 With ADOQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Lines.Add('DELETE FROM Имя_таблиц' ');
  Execute;

  SQL.Clear;
  SQL.Lines.Add('commit');
  Execute;

  SQL.Clear;
  Open;
end;

п.с. руки бы сломал

[xxbesoxx]

Вот Вы и ответили на главный вопрос авторв - удалять с TAdoQuery всё сразу таким способом как Вы советовали - нельзя, потому что мы не знаем что там внутри TAdoQuery. Там может быть сцепка с 5-ти таблиц

1) Для одного можно ! и будеть работать быстрее чем цикл " while "
2) Для многотабличные данных! если это требуетсия на стороне программу который для операторов-users напишу хранимы процедур типа такого

CREATE PROCEDURE Proc_name_DELETE

AS

DELETE  
FROM
    customers c
    LEFT OUTER JOIN orders o
        ON C.customer_id = o.customer_id
WHERE
    o.customer_id IS NULL

и через Delphi буду вызвать на выполнение процедуру Proc_name_DELETE зависить от сущности БД !!!! цикл " while not IsEmpty do Delete;" - не буду применять и не советую не кому