ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как получить код ошибки из WshShell
10 сообщений из 10, страница 1 из 1
Как получить код ошибки из WshShell
    #39017715
гр к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гр к
Гость
Запускаю из WshShell утилиту sqlcmd
Код: vbnet
1.
2.
Set WshShell = CreateObject("WScript.Shell")
WshShell.exec "sqlcmd.exe " & strSQLCMD


При заведомо неправильной строке strSQLCMD хочу получить код ошибки, но Err.Number возвращает 0.
Как быть?
...
Рейтинг: 0 / 0
28.07.2015, 15:10
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39017850
1244
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1244
Гость
гр кЗапускаю из 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
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39018029
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
гр к,
если программа действительно возвращает 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
28.07.2015, 18:57
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39018213
гр к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гр к
Гость
Казанский, все равно 0 возвращается из скрипта. А если просто sqlcmd запустить с такой командой, то совершенно справедливо ругается на ошибку "There is already an object named 'p_test' in the database."
Прям не знаю, как и быть((
...
Рейтинг: 0 / 0
29.07.2015, 08:02
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39018219
гр к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гр к
Гость
гр кКазанский, все равно 0 возвращается из скрипта. А если просто sqlcmd запустить с такой командой, то совершенно справедливо ругается на ошибку "There is already an object named 'p_test' in the database."
Прям не знаю, как и быть((
Однако ошибся, Параметры отчета об ошибках в самой команде sqlcmd не указал. Значит нужно дальше msdn по ней курить.
...
Рейтинг: 0 / 0
29.07.2015, 08:21
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39018227
гр к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гр к
Гость
Переделал вот так по справочнику:
Код: 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, 08:35
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39018797
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
гр к,
Код: 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
29.07.2015, 15:40
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39019212
гр к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гр к
Гость
hclubmk, спасибо, коллега!
Сам бы я до посимвольного преобразования строки нипочем бы не додумался.
...
Рейтинг: 0 / 0
30.07.2015, 08:20
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39020269
гр к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гр к
Гость
Подскажите еще, можно ли что-то с самим окном консоли сделать?
Я sqlcmd запускаю в цикле, и при каждом прогоне окно активизируется как собака, лезет поверх всех остальных окон.
Как-то можно эту неприятность удалить?
...
Рейтинг: 0 / 0
31.07.2015, 12:15
| Ответить | Цитировать | Написать  
Как получить код ошибки из WshShell
    #39020857
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
гр к,
сначала сюда: https://support.microsoft.com/en-us/kb/242308
потом сюда: https://msdn.microsoft.com/en-us/library/ms633548.aspx
...
Рейтинг: 0 / 0
31.07.2015, 22:50
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как получить код ошибки из WshShell
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39018797&tid=2155844]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 299ms
total:  441ms
созд. / загр.: 441ms
x
x
Закрыть


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