Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MS SQL Server PRINT и VBScript / 4 сообщений из 4, страница 1 из 1
14.10.2005, 11:09:39
    #33324413
Crimzic
Crimzic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS SQL Server PRINT и VBScript
Можно ли из скрипта на VBScript исполнить набор T-SQL команд на MS SQL Server 2000 и получить результаты всех PRINT, которые случились на сервере - примерно как в Query Analyzer, окно Messages.
При помощи ADO сделать не удалось, так как VBScript не поддерживает событий ADO. SQLDMO тоже не подошёл, потому что функция, которая возвращает сообщения сервера не может быть вызвана из VBScript (конфликт типов).
Может есть ещё какие-то работающие способы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2005, 11:26:03
    #33324470
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS SQL Server PRINT и VBScript
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Set adoConnection = CreateObject("adodb.connection")
Set adoErrors = adoConnection.Errors

adoConnection.open "TestDB"
adoConnection.execute "print getdate()" & vbCrLf & "print user_name()"

For each adoError In adoErrors 
	WScript.Echo adoError.Description
Next

adoConnection.execute "testPrintProc"
For each adoError In adoErrors 
	WScript.Echo adoError.Description
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2005, 11:56:49
    #33324603
Crimzic
Crimzic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS SQL Server PRINT и VBScript
Большое спасибо за ответ, но выводится почему-то только первое сообщение, то есть adoErrors.Count = 1. Попробую разобраться с этим.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2005, 16:20:21
    #33328567
Crimzic
Crimzic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS SQL Server PRINT и VBScript
CrimzicБольшое спасибо за ответ, но выводится почему-то только первое сообщение, то есть adoErrors.Count = 1. Попробую разобраться с этим.
Разобраться не удалось. У кого-нибудь есть варианты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MS SQL Server PRINT и VBScript / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 325ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167013]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 203ms
total:  325ms
x
x
Закрыть


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