ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запуск хранимой процедуры ORACLE через VBS + ADODB
11 сообщений из 11, страница 1 из 1
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35490528
XxxDaMnEdxxX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XxxDaMnEdxxX
Гость
Помогите разобраться с проблемой.
Я что то туплю... заставили скрипт на VB написать, а я его сегодня первый день в глаза увидел.
Идея какова - есть БД Оракл там есть хранимая процедурка, которая отлично кстати выполняется в PL/SQL Developer'e

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
CREATE OR REPLACE PROCEDURE lock_ad_users(du IN VARCHAR2)
is
u VARCHAR2( 50 );
BEGIN
select u.username into u
  from bis.mss_users t, dba_users u
 where u.username = t.user_name
 and t.lan_resource = du;
 execute immediate 'ALTER USER '||u||' account lock';
END lock_ad_users;

Короче по имени доменной учетки лочит юзера в БД.
Нужно сделать так чтобы эта процедурка вызывалась из скрипта VB
вот что я пишу:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "OraOLEDB.Oracle"
objConnection.Open "Data Source=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.7)(PORT = 1521)))(CONNECT_DATA =(SERVER = DEDICATED)(SID = mydb)));User Id=scriptuser;Password=test;"
Set objCommand.ActiveConnection = objConnection
Set parameter = objCommand.CreateParameter("du",adVarChar,adParamInput, 50 ,"DomainUser")
with objCommand
.CommandType =  4 
.CommandText = "lock_ad_users"
.Parameters.Append parameter
.Execute
End With 
Wscript.Echo "Finish"

В итоге он у меня ругется что "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"

Разбираюсь, разбираюсь - понять не могу где тут собака зарыта?
...
Рейтинг: 0 / 0
15.08.2008, 18:19
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35490622
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Во первых, для показа исходников надо использовать тэг SRC а не FIXED
Во вторых, сначала .CommandText=, потом .CreateParameter(). Когда ты задаешь новую sql команду, все параметры созданные на основе предыдущей sql команды "ломаются".
В третьих, а тебе обязательно делать параметрический запрос? Вот так не проще будет?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "OraOLEDB.Oracle"
objConnection.Open "..... тут строка коннекта ..... "
with objCommand
    Set .ActiveConnection = objConnection
    .CommandType =  1  ' или -1, или вообще не задавать
    .CommandText = "lock_ad_users('DomainUser')"
    .Execute
End With 
Wscript.Echo "Finish"
...
Рейтинг: 0 / 0
15.08.2008, 19:34
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35490725
XxxDaMnEdxxX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XxxDaMnEdxxX
Гость
Неа так получается не проще. пишет Invalid SQL statement. Как будто в PL/SQL пишешь в SQL window, а не в SQL Command.
...
Рейтинг: 0 / 0
15.08.2008, 22:08
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35490732
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
XxxDaMnEdxxXНеа так получается не проще. пишет Invalid SQL statement. Как будто в PL/SQL пишешь в SQL window, а не в SQL Command.А какой командой ты можешь запустить свою процедуру из "PL/SQL SQL window" или как там твоя ораклевая консоль называется?
Зайди в свою базу через ее родную SQL утилиту. Сделай то что тебе надо вручную. А потом скопируй эту команду как есть в свой VBS.
...
Рейтинг: 0 / 0
15.08.2008, 22:22
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35492757
XxxDaMnEdxxX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XxxDaMnEdxxX
Гость
Вот так это вызывается в PL/SQL SQL window
Код: plaintext
1.
2.
begin
  lock_ad_users(du => 'DOMAIN USER');
end;

а в SQL Command
Код: plaintext
exec lock_ad_users('DOMAIN USER');
...
Рейтинг: 0 / 0
18.08.2008, 14:53
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35492851
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
описатель ф-ии в оракле сюда выложи, у тебя параметр в вызове похоже неверно описан.
...
Рейтинг: 0 / 0
18.08.2008, 15:24
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35492880
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
а именно, не указан размер параметра в описании ф-и.

Код: plaintext
CREATE OR REPLACE PROCEDURE lock_ad_users(du IN VARCHAR2( 50 ))

в вызов еще надо добавить первый параметр RET:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim p As ADODB.Parameters

    ...
    Set p = cmd.Parameters
    p.Append cmd.CreateParameter("RET", adInteger, adParamReturnValue)
    p.Append cmd.CreateParameter("du",adVarChar,adParamInput, 50 ,"DomainUser")
    cmd.Execute
    ...
...
Рейтинг: 0 / 0
18.08.2008, 15:30
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35493098
XxxDaMnEdxxX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XxxDaMnEdxxX
Гость
Konst_One, если указать размер переменной - то процедура вообще не создастся. И добавление строки
Код: plaintext
1.
p.Append cmd.CreateParameter("RET", adInteger, adParamReturnValue)
тоже ничего не дает. Ошибка та же.
...
Рейтинг: 0 / 0
18.08.2008, 16:51
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35493118
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
потому что аналогично декларировать еще нужно и в описании схемы
...
Рейтинг: 0 / 0
18.08.2008, 16:57
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35493212
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
XxxDaMnEdxxXВот так это вызывается в PL/SQL SQL window
Код: plaintext
1.
2.
begin
  lock_ad_users(du => 'DOMAIN USER');
end;

а в SQL Command
Код: plaintext
exec lock_ad_users('DOMAIN USER');


Тогда может сработать вот такое:
Код: plaintext
1.
2.
objCommand.CommandText = "begin" & vbCRLF & _
"  lock_ad_users(du => 'DOMAIN USER');"  & vbCRLF & _
"end;"
И уж точно сработает такое:
Код: plaintext
objCommand.CommandText = "exec lock_ad_users('DOMAIN USER');"
ADO ни как не обрабатывает CommandText если .CommandType равен 1 или -1. В этом случае ADO напрямую отдает команду ODBC драйверу который (обычно) без обработки отдает команду серверу. То есть открываешь документацию на свою СУБД и используешь ее родной синтаксис.
Единственная возможная обработка это параметры запроса. Но параметры в реальности редко когда нужны. Обычно намного эффективнее вклеивать параметры в строку запроса как константы.
В твоем случае параметры не нужны точно. Можно и с ними конечно, но в данном случае это излишнее усложнение кода без какого-либо выигрыша в производительности.
...
Рейтинг: 0 / 0
18.08.2008, 17:26
| Ответить | Цитировать | Написать  
Запуск хранимой процедуры ORACLE через VBS + ADODB
    #35498952
XxxDaMnEdxxX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XxxDaMnEdxxX
Гость
Спасибо,
Код: plaintext
1.
2.
3.
objCommand.CommandText = "begin" & vbCRLF & _
"  lock_ad_users(du => 'DOMAIN USER');"  & vbCRLF & _
"end;"
помогло!
...
Рейтинг: 0 / 0
21.08.2008, 12:57
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запуск хранимой процедуры ORACLE через VBS + ADODB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35492880&tid=2161934]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 58ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 205ms
total:  316ms
созд. / загр.: 316ms
x
x
Закрыть


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