Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.18;
Скачать: CL | DM;

Вниз

Удаление из многих таблиц   Найти похожие ветки 

 
Bless   (2003-07-23 10:59) [0]

Нужно удалить из таблиц, у которых есть поле nzo все строки, в которых значение этого поля равно, к примеру 1.
Как это можно сделать, не меняя вручную содержимое системных таблиц?
"


 
Плохиш   (2003-07-23 11:14) [1]

1. В цикле для всех таблиц проверяешь наличие поля. Если есть выполняешь SQL

2. Причём тут системные таблицы?


 
Sergey13 ©   (2003-07-23 11:15) [2]

А при чем тут системные таблицы? Как из одной таблицы удалить знаешь? Если да, то из всех таблиц по порядку и удаляй.


 
Bless   (2003-07-23 15:07) [3]

>При чем тут системные таблицы?

Дико извиняюсь. Забыл исправить предложение...

>В цикле для всех таблиц проверяешь наличие поля. Если есть
>выполняешь SQL

А как организовать цикл для всех таблиц?


 
XanderMan ©   (2003-07-23 15:11) [4]


for i := 0 to componentcount-1 do
if components[i] is TIBDataSet then begin
{здесь ищешь поле}
end


 
Плохиш   (2003-07-23 15:13) [5]

TADOConnection.GetTableNames


 
XanderMan ©   (2003-07-23 15:19) [6]

Опять же, при использовании IB и IBX, у TIBDatabase есть метод GetTableNames, который возвращает именно имена всех таблиц, оттуда можно взять и поля


 
Bless   (2003-07-24 09:24) [7]

Прошу прощения. Системные таблицы, конечно, не причем. Забыл исправить предложение.
>1. В цикле для всех таблиц проверяешь наличие поля. Если есть
>выполняешь SQL

А как организовать цикл?

>Как из одной таблицы удалить знаешь? Если да, то из всех таблиц
>по порядку и удаляй.

Удалять из каждой таблицы по очереди можно. Но не хотелось бы переписывать процедуру, если вдруг появятся новые таблицы (что не исключено), если, конечно, есть такая возможность. То есть нужно удалять из всех таблиц, имя которых находится в результате запроса
select object_name(id) from syscolumns where name="nzo"


 
Bless   (2003-07-24 09:38) [8]

Забыл добавить, что это желательно реализовать внутри хранимой процедуры MS SQL 7.0


 
Bless   (2003-07-24 10:46) [9]

То бишь, не мотодами делфийских компонент, а с помощью T-SQL


 
Andrey007   (2003-07-24 11:12) [10]

DELETE FROM table1 WHERE nzo = 1;
DELETE FROM table2 WHERE nzo = 1;
....
DELETE FROM tableN WHERE nzo = 1;



Страницы: 1 вся ветка

Текущий архив: 2003.08.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
14-58451
bug008
2003-07-31 21:57
2003.08.18
работа с MS Word и Excel


14-58485
Leran2003
2003-07-23 15:14
2003.08.18
TDataSetProvider, TClientDataSet


14-58438
VID
2003-08-02 16:57
2003.08.18
512mb озу


14-58462
Spawn
2003-07-24 09:32
2003.08.18
Удаление ограничительных полей


14-58466
Julliete
2003-07-23 17:35
2003.08.18
Удаление всех записей из таблицы