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

Err.Description вместо error$ может?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2009, 12:53
    #35982807
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не показывает текст ошибки при отлавливании err
попробуйте так:
Код: plaintext
1.
MsgBox Err.Description & " (" & Err.NUMBER & ")"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2009, 15:30
    #35983418
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не показывает текст ошибки при отлавливании err
Денис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, 16:27
    #35983589
Денис24
Денис24
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не показывает текст ошибки при отлавливании err
ребята спасибо.дело в другом вот код
Код: 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:30
    #35983598
Денис24
Денис24
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не показывает текст ошибки при отлавливании err
Всё,нашел.
Было написано
Dim rst As ADODB.Recordset
а надо
Dim rst As New ADODB.Recordset
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2009, 16:30
    #35983601
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не показывает текст ошибки при отлавливании err
Код: plaintext
1.
2.
...
Debug.Print cnn.State
...
???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не показывает текст ошибки при отлавливании err / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 380ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161028]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 226ms
total:  380ms
x
x
Закрыть


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