powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Oracle [игнор отключен] [закрыт для гостей] / Прописать v_Column_Name :=[Значение] в declare..end
12 сообщений из 12, страница 1 из 1
Прописать v_Column_Name :=[Значение] в declare..end
    #39720049
x17.mstu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите, что делаю не так

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
DECLARE
  type t_string IS TABLE OF VARCHAR2(50);
  t_table_name t_string        := t_string('MST_DOX_STAGE');

  type t_column IS TABLE OF  t_string;
  t_columns_name t_column        := t_column( 
                                t_string('AGREEMENT_TEMPLATE', 'VARCHAR2(100 CHAR) DEFAULT ''Unknown'' NOT NULL' )
								t_string('REMEDIATION_REG_TYPE', 'VARCHAR2(4 CHAR)')
                                );
  
  V_TABLE_OWNER      VARCHAR2(100) := 'MOUSETRAP';
  v_table_name       VARCHAR2(100);
  v_Column_Name      VARCHAR2(100);
  v_type_Name         VARCHAR2(100);
  v_alter_table_stmt VARCHAR2(3000);
  v_cnt              NUMBER;
  v_sel_qry          VARCHAR2(1000);
BEGIN
  FOR i IN 1..t_table_name.count
  LOOP
    v_table_name := t_table_name(i);
    v_sel_qry    := 'SELECT COUNT(TABLE_NAME) FROM ALL_TABLES WHERE OWNER = :tblowner AND TABLE_NAME = :tblname';
    EXECUTE IMMEDIATE v_sel_qry INTO v_cnt USING v_Table_Owner,v_Table_Name;
    
    IF v_cnt = 1 THEN
      
    
    /*ADDING COLUMN*/
        FOR i IN 1..t_columns_name.count LOOP    
            v_Column_Name := t_columns_name(i)(1);
            v_type_Name   := t_columns_name(i)(2);
            v_sel_qry     := 'SELECT COUNT(COLUMN_NAME) FROM ALL_TAB_COLUMNS WHERE OWNER = :tblowner AND TABLE_NAME = :tblname AND COLUMN_NAME = :colname';
            EXECUTE IMMEDIATE v_sel_qry INTO v_cnt USING v_Table_Owner,v_Table_Name, v_Column_Name;
            IF v_cnt              = 0 THEN
			
			IF v_Column_Name := 'AGREEMENT_TEMPLATE' 
			THEN
			v_alter_table_stmt := 'ALTER TABLE ' || v_table_owner || '.' || v_table_name || ' ADD ('||v_Column_Name||' ' || v_type_Name ||' )';
            EXECUTE IMMEDIATE v_alter_table_stmt;
			END IF;


		
			IF v_Column_Name := 'REMEDIATION_REG_TYPE'
			THEN			
			v_alter_table_stmt := 'ALTER TABLE ' || v_table_owner || '.' || v_table_name || ' MODIFY ('||v_Column_Name||' DEFAULT NULL )';
			EXECUTE IMMEDIATE v_alter_table_stmt;
			END IF;

				
				DBMS_OUTPUT.PUT_LINE('Table '|| v_Table_Owner||'.'||v_Table_Name||' column '|| v_Column_Name || ' type ' || v_type_Name || ' added');
            END IF;
        END LOOP;
      /*ADDING COLUMN*/
      
    
    ELSE
      DBMS_OUTPUT.PUT_LINE('Table '|| v_Table_Owner||'.'||v_Table_Name||' not exists');
    END IF;
  END LOOP;
END;
/
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720050
x17.mstu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ORA-06550: line 8, column 9:
PLS-00103: Encountered the symbol "T_STRING" when expecting one of the following:
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720051
x17.mstu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
x17.mstu,
Добавил ,
Теперь другая ошибка
Error report:
ORA-06550: line 36, column 21:
PLS-00103: Encountered the symbol "=" when expecting one of the following:
. ( * @ % & = - + < / > at in is mod remainder not rem then
<an exponent (**)> <> or != or ~= >= <= <> and or like like2
like4 likec between || multiset member submultiset
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720056
Фотография Elic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
x17.mstu
Код: plsql
1.
IF v_Column_Name :=

Что за поток сознания?

http://www.bugtraq.ru/forum/faq/general/smart-questions.html] RTFM
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720061
MaximaXXL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
x17.mstu,

???
Код: plsql
1.
IF v_Column_Name := 
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720065
MaximaXXL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
x17.mstu,

Про запятуху забыл
Код: plsql
1.
2.
3.
4.
  t_columns_name t_column        := t_column( 
                                t_string('AGREEMENT_TEMPLATE', 'VARCHAR2(100 CHAR) DEFAULT ''Unknown'' NOT NULL' ),
								t_string('REMEDIATION_REG_TYPE', 'VARCHAR2(4 CHAR)')
                                );
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720067
x17.mstu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не получается прописать коректно условие в цикле,
v_Column_Name - название колонки из таблицы t_table_name

В зависимости от названия колонки выполняет различные ALTER'ы
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720068
x17.mstu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MaximaXXL,
Поставил уже. все равно вылетает
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720070
MaximaXXL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
x17.mstu,

в IF может присваивать в Java и в Си помоему
в PL/SQL - низя
в IF делайте ПРОВЕРКУ а не присвоение
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720078
x17.mstu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
IF v_cnt  = 0 and t_columns_name(i)(1) = 'AGREEMENT_TEMPLATE' THEN
			v_alter_table_stmt01 := 'ALTER TABLE ' || v_table_owner || '.' || v_table_name || ' ADD ('||v_Column_Name||' ' || v_type_Name ||' )';
            EXECUTE IMMEDIATE v_alter_table_stmt01;
			ELSE 
			DBMS_OUTPUT.PUT_LINE('1');
			END IF;

			IF v_cnt = 0 and t_columns_name(i)(2) = 'REMEDIATION_REG_TYPE'
			THEN			
			v_alter_table_stmt02 := 'ALTER TABLE ' || v_table_owner || '.' || v_table_name || ' MODIFY ('||v_Column_Name||' DEFAULT NULL )';
			EXECUTE IMMEDIATE v_alter_table_stmt02;
			ELSE 
			DBMS_OUTPUT.PUT_LINE('2');
			END IF;
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720080
x17.mstu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот так вроде заработало
...
Рейтинг: 0 / 0
Прописать v_Column_Name :=[Значение] в declare..end
    #39720089
Фотография -2-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
x17.mstu,

Длязанафига динамический sql под селекты. Да и имена полей для ddl все равно захардкожены в ifах, посему, неумелые синтаксические потуги с коллекциями можно упростить до непосредственно одного ddl, ну пусть двух при ddl-бардаке в бд.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Oracle [игнор отключен] [закрыт для гостей] / Прописать v_Column_Name :=[Значение] в declare..end
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]