Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как получить код ошибки из WshShell / 10 сообщений из 10, страница 1 из 1
28.07.2015, 15:10
    #39017715
гр к
гр к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
Запускаю из WshShell утилиту sqlcmd
Код: vbnet
1.
2.
Set WshShell = CreateObject("WScript.Shell")
WshShell.exec "sqlcmd.exe " & strSQLCMD


При заведомо неправильной строке strSQLCMD хочу получить код ошибки, но Err.Number возвращает 0.
Как быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2015, 16:22
    #39017850
1244
1244
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
гр кЗапускаю из WshShell утилиту sqlcmd
Код: vbnet
1.
2.
Set WshShell = CreateObject("WScript.Shell")
WshShell.exec "sqlcmd.exe " & strSQLCMD


При заведомо неправильной строке strSQLCMD хо
чу получить код ошибки,
но Err.Number возвращает 0.

Как быть?
а

забей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2015, 18:57
    #39018029
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
гр к,
если программа действительно возвращает ERRORLEVEL, то получить его можно так (на примере команды dir)
Код: vbnet
1.
2.
3.
4.
5.
6.
Sub test()
Dim WshShell As Object
  Set WshShell = CreateObject("WScript.Shell")
  Debug.Print WshShell.Run("cmd /c dir c:", vbHide, True) 'диск существует, результат 0
  Debug.Print WshShell.Run("cmd /c dir z:", vbHide, True) 'диск не существует, результат 1
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2015, 08:02
    #39018213
гр к
гр к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
Казанский, все равно 0 возвращается из скрипта. А если просто sqlcmd запустить с такой командой, то совершенно справедливо ругается на ошибку "There is already an object named 'p_test' in the database."
Прям не знаю, как и быть((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2015, 08:21
    #39018219
гр к
гр к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
гр кКазанский, все равно 0 возвращается из скрипта. А если просто sqlcmd запустить с такой командой, то совершенно справедливо ругается на ошибку "There is already an object named 'p_test' in the database."
Прям не знаю, как и быть((
Однако ошибся, Параметры отчета об ошибках в самой команде sqlcmd не указал. Значит нужно дальше msdn по ней курить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2015, 08:35
    #39018227
гр к
гр к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
Переделал вот так по справочнику:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("sqlcmd " & strSQLCMD)
Set OutStream = WshExec.StdOut
qStr = vbNullString
While Not OutStream.AtEndOfStream
    qStr = qStr & Trim(OutStream.ReadLine()) & vbCrLf
Wend
Debug.Print qStr


Проблема в том, что вместо русских букв вылезают кракозябры типа
Код: vbnet
1.
‘®®ЎйҐ­ЁҐ 2714, га®ўҐ­м 16, б®бв®п­ЁҐ 3, бҐаўҐа


Как такую беду побороть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2015, 15:40
    #39018797
hclubmk
hclubmk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
гр к,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Function D2W(DOS_STRING As String) As String
If Len(DOS_STRING) = 0 Then Exit Function
For i = 1 To Len(DOS_STRING)
    s = Asc(Mid(DOS_STRING, i, 1))
    If s >= 128 And s <= 175 Then
       D2W = D2W & Chr(s + 64)
    ElseIf s >= 224 And s <= 239 Then
       D2W = D2W & Chr(s + 16)
    ElseIf s = 240 Then
       D2W = D2W & Chr(168)
    ElseIf s = 241 Then
       D2W = D2W & Chr(184)
    Else
       D2W = D2W & Chr(s)
    End If
Next
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.07.2015, 08:20
    #39019212
гр к
гр к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
hclubmk, спасибо, коллега!
Сам бы я до посимвольного преобразования строки нипочем бы не додумался.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2015, 12:15
    #39020269
гр к
гр к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
Подскажите еще, можно ли что-то с самим окном консоли сделать?
Я sqlcmd запускаю в цикле, и при каждом прогоне окно активизируется как собака, лезет поверх всех остальных окон.
Как-то можно эту неприятность удалить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2015, 22:50
    #39020857
hclubmk
hclubmk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить код ошибки из WshShell
гр к,
сначала сюда: https://support.microsoft.com/en-us/kb/242308
потом сюда: https://msdn.microsoft.com/en-us/library/ms633548.aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как получить код ошибки из WshShell / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 455ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155844]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 315ms
total:  455ms
x
x
Закрыть


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