ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не показывает текст ошибки при отлавливании err
7 сообщений из 7, страница 1 из 1
Не показывает текст ошибки при отлавливании err
    #35982681
Денис24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Денис24
Участник
подскажите пожалуста.
есть простой кусок кода
Код: plaintext
1.
2.
3.
if err then 
  msgbox error$, 48 
end if
выдается ошибка "переменная обьекта или переменная блока не установлена"
Стоит VB6+office2003.Должно выдавать текст ошибки.
...
Рейтинг: 0 / 0
13.05.2009, 12:20
| Ответить | Цитировать | Написать  
Не показывает текст ошибки при отлавливании err
    #35982699
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
а весь кусок кода можно и на каком месте ошибка возникает тоже укажите.

Err.Description вместо error$ может?
...
Рейтинг: 0 / 0
13.05.2009, 12:26
| Ответить | Цитировать | Написать  
Не показывает текст ошибки при отлавливании err
    #35982807
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
by-pass
Участник
попробуйте так:
Код: plaintext
1.
MsgBox Err.Description & " (" & Err.NUMBER & ")"
...
Рейтинг: 0 / 0
13.05.2009, 12:53
| Ответить | Цитировать | Написать  
Не показывает текст ошибки при отлавливании err
    #35983418
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Денис24,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Private Sub MyBestErrorHandlingRoutine()
    '******************************************************************************
    '
    '   DESCRIPTION:
    '
    '   CHANGE LOG:
    '
    '   DATE             PROGRAMMER   COMMENTS
    '   ----------        ----------   --------------------------------
    '   DD/MM/YYYY        Денис24  New method
    '
    '******************************************************************************
    Const METHOD_NAME As String = "MyBestErrorHandlingRoutine"

    On Error GoTo MethodExit

    'My best code ever!

MethodExit:
        
    If Err.Number <>  0  Then
        MsgBox "Error " & CStr(Err.Number) & " in " & METHOD_NAME & vbCr & Err.Description
    End If

End Sub
...
Рейтинг: 0 / 0
13.05.2009, 15:30
| Ответить | Цитировать | Написать  
Не показывает текст ошибки при отлавливании err
    #35983589
Денис24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Денис24
Участник
ребята спасибо.дело в другом вот код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Option Explicit
Dim conn As ADODB.Connection
Dim rst As New ADODB.Recordset


Private Sub Form_Load()
    
Set conn = New ADODB.Connection
With conn

   .CursorLocation = adUseClient
   .Provider = "MSDAORA"
   '.Open = "dsn=aice10g"
   .Properties("Data Source").Value = "aice10g"
   .Properties("User ID").Value = "disegn"
   .Properties("Password").Value = "disegn"
   .Open
rst.LockType=adLockOptimistic (после того как убрал on error resume next-тут спотыкается
"переменная обьекта или переменная блока не установлена '91'"
End With
так что дело в ADO.При первом упоминании рекордсета rst -такая ошибка.
...
Рейтинг: 0 / 0
13.05.2009, 16:27
| Ответить | Цитировать | Написать  
Не показывает текст ошибки при отлавливании err
    #35983598
Денис24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Денис24
Участник
Всё,нашел.
Было написано
Dim rst As ADODB.Recordset
а надо
Dim rst As New ADODB.Recordset
...
Рейтинг: 0 / 0
13.05.2009, 16:30
| Ответить | Цитировать | Написать  
Не показывает текст ошибки при отлавливании err
    #35983601
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
...
Debug.Print cnn.State
...
???
...
Рейтинг: 0 / 0
13.05.2009, 16:30
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не показывает текст ошибки при отлавливании err
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35983601&tid=2161028]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 194ms
total:  290ms
созд. / загр.: 290ms
x
x
Закрыть


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