Удаление из многих таблиц

← →
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;

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