Vb6 обработчик ошибок

Текст в операторах Form1.Print написан
условно, так как ясно, что он будет выводится независимо от того, есть ошибка
или нет. Т.е на самом деле пользователь никакой реальной информации об ошибке
не получит и поправить ничего не сможет. Иное дело, если мы к нашему On Error
попробуем пристроить оператор безусловного перехода GoTo метка.
На самом деле он унаследован от старого Бейсика и использовать его нужно крайне
осторожно. Этот оператор отсылает ( в нашем случае, если возникла ошибка) к
строке, помеченной меткой, но только внутри текущей процедуры. Положим следующую
кнопку Command2 (ее назание GoTo метка) и в ней напишем процедуру

Private Sub Command2_Click()
Dim Msg As String
On Error GoTo ErrorMark
Open "aaa.txt" For
Input As #1
Close #1
Exit Sub
ErrorMark:
Msg = "Ой, наверно файл куда-то запропал, попробуйте восстановить!?"
MsgBox Msg, , "Караул, нет данных!"
End Sub

Таким образом, при возникновении ошибки оператор GoTo возвращает нас
в программу к строке, помеченной меткой ErrorMark. Под ней пишутся операторы,
которые выполняются для реакции программы (или юзера) на ошибку. Обратите внимание,
чтобы они не выполнялись в случае, когда ошибки нет, перед меткой поставлен
оператор Exit Sub, который прерывает выполнение процедуры, не дожидаясь
оператора End Sub. В качестве реакции на ошибку у нас выводится MessageBox
с советом для юзера. Обратите снова Ваше драгоценное внимание на то, что в сообщении
я употребил слово «наверное». Реально при открытии файла могут возникать
разные ошибки и я лишь только предполагаю, что у нас ошибка 53.
Как я говорил выше, в сложных и больших процедурах, чтобы не отлавливать ошибки
в других операторах оператор GoTo метка. надо выключить. Для этого,
после сомнительного оператора, могущего вызвать ошибку, надо вставить строку

On
Error GoTo 0
Тогда обработчик ошибок прекратит свою работу и ошибки в последующих операторах
отслеживаться не будут.
Если в подпрограмме обработки ошибок имеется возможность устранить причину ее
возникновения, то надо вернуться на тот же оператор и снова его выполнить, уже
без ошибки. Для этого подпрограмму обработки ошибок заканчивают оператором Resume.
Если же надо перейти к другой строке, помеченной меткой, то программу обработки
ошибок надо закончить оператором Resume метка. Ну а теперь перейдем
к самому интересному — анализу ошибок.

Положим на форму Text1 со свойством Multiline — True,
кнопку Command3 (название — Прочитать файл), а также для того, чтоб нам
было удобно создавать, убивать файл, положим еще три кнопки Command4,
Command5 и Command6, называющиеся соответственно «Создать
aaa.txt», «Создать пустой aaa.txt» и «Убить aaa.txt».
В процедурах этих трех кнопок напишем:
код для создания файла путем открытия и записи туда слов «не пустой»
в Command4

Private Sub Command4_Click()
'создать aaa.txt
On Error Resume Next
Kill (App.Path & "aaa.txt")
Open App.Path & "aaa.txt" For
Output As #1
Print #1, "не пустой"
Close #1
Text1.Text = "Создан не пустой файл aaa.txt"
End Sub

в Command5 создадим пустой файл, т.е. файл не содержащий ни одного символа

Private Sub Command5_Click()
'создать пустой aaa.txt
On Error Resume Next
Kill (App.Path & "aaa.txt")
Open App.Path & "aaa.txt" For
Output As #1
Close #1
Text1.Text = "Создан пустой файл aaa.txt"
End Sub

и в Command6 — программу для уничтожения файла

Private Sub Command6_Click()
'убить aaa.txt
On Error Resume Next
Kill (App.Path & "aaa.txt")
Text1.Text = "Убит файл aaa.txt"
End Sub

Обратите внимание, что перед созданием файла, я убиваю старый. Так как старый
файл может на тот момент не существовать (в этом случае возникнет ошибка), я
использую On Error Resume Next.
Теперь создадим коротенькую процедуру загрузки формы для проверки в самом начале,
существует ли файл aaa.txt

Private Sub Form_Load()
Text1.Text = ""
If Dir(App.Path & "aaa.txt") = ""
Then Text1.Text = "Файла aaa.txt не существует"
End Sub

А вот теперь в кнопке Command3 напишем полноразмерный обработчик ошибок.

Private Sub Command3_Click()
'объявляем переменную для считывания данных из файла
Dim Stroka As String
'использование объекта Err при обработке ошибок
On Error GoTo ErrorMark
ForOpen:
Open App.Path & "aaa.txt" For
Input As #1
Line Input #1, Stroka
Text1.Text = Text1.Text & "Файл успешно открыт, содержание файла: "
& Stroka & vbCrLf
Close #1
Exit Sub
ErrorMark:
Close #1
'выводим возможные данные об ошибке
Text1.Text = "Возникла ошибка # " & Err.Number & vbCrLf
Text1.Text = Text1.Text & Err.Description & vbCrLf
Text1.Text = Text1.Text & "В " & Err.Source & vbCrLf
Text1.Text = Text1.Text & "Полный путь хелпа " & Err.HelpFile
& vbCrLf
Text1.Text = Text1.Text & "Идентификатор файла спраки VB " &
Err.HelpContext & vbCrLf
Text1.Text = Text1.Text & "DLL " & Err.LastDllError &
vbCrLf
'Ecли файла нет, то создем его
If Err = 53 Then
Open App.Path & "aaa.txt" For
Output As #1
Print #1, " "
Close #1
Text1.Text = Text1.Text & "Создан новый файл aaa.txt" & vbCrLf
'возвращаемся на исходную позицию
Resume ForOpen
'если файл пустой дописываем в него пробел
ElseIf Err = 62 Then
Open App.Path & "aaa.txt" For
Append As #1
Print #1, " "
Close #1
Text1.Text = Text1.Text & "Ошибка файла aaa.txt исправлена " &
vbCrLf
'возвращаемся на исходную позицию
Resume ForOpen
Else
Text1.Text = Text1.Text & "Не знаю, что делать с ошибкой, файл не открыт
"
End If
End Sub

Private Sub
Command7_Click()
Dim ErrorNumber As Long
Text1.Text = ""
For ErrorNumber = 52 To
64
Text1.Text = Text1.Text & Error(ErrorNumber) & vbCrLf
Next ErrorNumber
End Sub

Совершенно ничего сложного. Ну-с с этим все.

First of all, go get MZTools for Visual Basic 6, its free and invaluable. Second add a custom error handler on every function (yes, every function). The error handler we use looks something like this:

On Error GoTo {PROCEDURE_NAME}_Error

{PROCEDURE_BODY}

    On Error GoTo 0
    Exit {PROCEDURE_TYPE}

{PROCEDURE_NAME}_Error:

   LogError "Error " & Err.Number & " (" & Err.Description & ") in line " & Erl & _
            ", in procedure {PROCEDURE_NAME} of {MODULE_TYPE} {MODULE_NAME}"

Then create a LogError function that logs the error to disc. Next, before you release code add Line Numbers to every function (this is also built into MZTools). From now on you will know from the Error Logs everything that happens. If possible, also, upload the error logs and actually examine them live from the field.

This is about the best you can do for unexpected global error handling in VB6 (one of its many defects), and really this should only be used to find unexpected errors. If you know that if there is the possibility of an error occurring in a certain situation, you should catch that particular error and handle for it. If you know that an error occurring in a certain section is going to cause instability (File IO, Memory Issues, etc) warn the user and know that you are in an «unknown state» and that «bad things» are probably going happen. Obviously use friendly terms to keep the user informed, but not frightened.

Ошибками пользуются в любой нормально написанной программе,
вне зависимости от объема ее кода.

Это помогает проанализировать, правильно ли работает программа.
И если нет, минимальными усилиями узнать причину проблемы.

Для этого в идеале, в каждой из функций следует использовать обработчик ошибок (On Error Goto).
А там, где используются API-функции, каждую из них проверять на предмет возвращаемого значения, а также кода ошибки API-функции (Err.LastDllError).
Это позволит минимизировать затраты на отладку программы
и еще на этапе проектирования исключить некоторые наиболее вероятные ошибки в вызове функций.

Внутреннюю ошибку VB можно также симмитировать вручную с помощью вызова процедуры Err.Raise [Номер ошибки]
Это спровоцирует переход к метке обработчика ошибок, указанной в директиве On Error Goto Имя_Метки
Это иногда полезно, если Вы хотите ввести в программу собственные ошибки (выход из функции при возникновении, на Ваш взгляд, критической ситуации).

Номер внутренней ошибки также можно очистить методом Err.Clear
Обработчик ошибок в любой момент можно отключить, вернув стандартное поведение программы, с помощью директивы On Error Goto 0
В этом случае, если произойдет ошибка, программа прекратит свое выполнение и выведет ошибку и краткое описание в стандартном диалоговом окне (msgbox)*
* Кроме случаев, когда обработчик ошибок установлен в родительской функции (вниз по стеку вызовов), т.е. функции, которая вызвала эту функцию. В этом случае будет вызван именно её обработчик, а программа продолжит свое выполнение.

При возникновении внутренней ошибки, ее номер и описание можно получить через свойства Number и Description объекта Err.
Стандартный обработчик ошибок VB имеет такой вид:

Function foo()
    On Error Goto ErrorHandler

    ' ... тело функции

    if {что-то можем проверить} then
        ' здесь, если нам нужно, можем вызвать ошибку самостоятельно
        err.Raise 51   'Internal error
    end if

    Exit function
ErrorHandler:
    'обработчик
    'выводим номер внутренней ошибки, краткое описание, номер ошибки API-функции
    Debug.? "Error: " & Err.Number & ". " & Err.Description & ". LastDllErr: " & Err.LastDllError
End function

Описание ошибки API-функции (или COM-объекта) можем получить с помощью такой функции:

Private Declare Function FormatMessage Lib "kernel32.dll" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Long, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) As Long

Const MAX_PATH As Long = 260&

Public Function MessageText(lCode As Long) As String
    On Error goto ErrorHandler
    Const FORMAT_MESSAGE_FROM_SYSTEM    As Long = &H1000&
    Const FORMAT_MESSAGE_IGNORE_INSERTS As Long = &H200

    Dim sRtrnCode   As String
    Dim lRet        As Long

    sRtrnCode = Space$(MAX_PATH)
    lRet = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, ByVal 0&, lCode, ByVal 0&, sRtrnCode, MAX_PATH, ByVal 0&)
    If lRet > 0 Then
        MessageText = Left$(sRtrnCode, lRet)
        MessageText = Replace$(MessageText, vbCrLf, vbNullString)
    End If
  Exit function
ErrorHandler:
  Debug.? "Error: " & Err.Number & ". " & Err.Description & ". LastDllErr: " & Err.LastDllError
End Function

Список внутренних ошибок VB6:

Код|Описание
3|Return without GoSub
5|Invalid procedure call or argument
6|Overflow
7|Out of memory
9|Subscript out of range
10|This array is fixed or temporarily locked
11|Division by zero
13|Type mismatch
14|Out of string space
16|Expression too complex
17|Can’t perform requested operation
18|User interrupt occurred
20|Resume without error
28|Out of stack space
35|Sub or Function not defined
47|Too many DLL application clients
48|Error in loading DLL
49|Bad DLL calling convention
51|Internal error
52|Bad file name or number
53|File not found
54|Bad file mode
55|File already open
57|Device I/O error
58|File already exists
59|Bad record length
61|Disk full
62|Input past end of file
63|Bad record number
67|Too many files
68|Device unavailable
70|Permission denied
71|Disk not ready
74|Can’t rename with different drive
75|Path/File access error
76|Path not found
91|Object variable or With block variable not set
92|For loop not initialized
93|Invalid pattern string
94|Invalid use of Null
96|Unable to sink events of object because the object is already firing events to the maximum number of event receivers that it supports
97|Can not call friend function on object which is not an instance of defining class
98|A property or method call cannot include a reference to a private object, either as an argument or as a return value
321|Invalid file format
322|Can’t create necessary temporary file
325|Invalid format in resource file
380|Invalid property value
381|Invalid property array index
382|Set not supported at runtime
383|Set not supported (read-only property)
385|Need property array index
387|Set not permitted
393|Get not supported at runtime
394|Get not supported (write-only property)
422|Property not found
423|Property or method not found
424|Object required
429|ActiveX component can’t create object
430|Class does not support Automation or does not support expected interface
432|File name or class name not found during Automation operation
438|Object doesn’t support this property or method
440|Automation error
442|Connection to type library or object library for remote process has been lost. Press OK for dialog to remove reference.
443|Automation object does not have a default value
445|Object doesn’t support this action
446|Object doesn’t support named arguments
447|Object doesn’t support current locale setting
448|Named argument not found
449|Argument not optional
450|Wrong number of arguments or invalid property assignment
451|Property let procedure not defined and property get procedure did not return an object
452|Invalid ordinal
453|Specified DLL function not found
454|Code resource not found
455|Code resource lock error
457|This key is already associated with an element of this collection
458|Variable uses an Automation type not supported in Visual Basic
459|Object or class does not support the set of events
460|Invalid clipboard format
461|Method or data member not found
462|The remote server machine does not exist or is unavailable
463|Class not registered on local machine
481|Invalid picture
482|Printer error
735|Can’t save file to TEMP
744|Search text not found
746|Replacements too long

В этом разделе Вы познакомитесь с концепцией обработки ошибок. Кроме того, Вам станет известна важная часть языка, называемая условными операторами.

В конце прошлого подраздела мы столкнулись с ситуацией, когда при некорректном действии пользователя программа вывела окно-предупреждение и остановилась. Согласитесь, если оставить программе возможность так себя вести, ею никто не станет пользоваться. Один из способов справиться с ситуацией – т.н. обработчик ошибок.

• VB прослеживает появление ошибок при выполнении программы. С обычным поведением языка Вы только что столкнулись – программа останавливается и появляется окно-предупреждение. При проектировании программы всегда следует предвидеть возможные ошибки. Справиться с этим можно несколькими способами.

Существует конструкция языка On Error (При Ошибке). Она бывает следующих видов:

• On Error Resume Next (При Ошибке Продолжить Дальше) – при появлении ошибки она игнорируется и выполнение продолжается. Вы должны очень хорошо предвидеть виды ситуаций, могущих вызвать ошибку, если упустите какую-то ситуацию, возможен крах системы. Но в большинстве случаев этот способ подходит.

• On Error Goto <метка> (При Ошибке ПерейтиНа <метку>) – при ошибке программа переносит выполнение на <метку>, после которой следует конструкция, обрабатывающая ошибку.

• On Error Goto 0 (При Ошибке ПерейтиНа Ноль) – отмена обработки ошибок.

• Все конструкции On Error действуют в пределах процедуры, в которой находятся (о процедурах Вы узнаете далее).

Другой способ выявления ошибок – проверка т.н. системного объекта Err (от англ. Err[or] – Ошибка). Этот объект имеет свойства Number (Номер) и Description (Описание), учитывая которые вы можете так или иначе влиять на ситуацию. Этот метод сложнее, но гибче. Впоследствии мы познакомимся с конструкциями VB, которые позволят Вам пользоваться объектом Err.

В нашем случае применим способ игнорирования ошибок – очевидно, что ошибки будут возникать только из-за недопустимых действий с БД, и эти ошибки имеют нефатальный характер.

В начало обработчика события cmdUpdate_Click внесите строку:

On Error Resume Next

Код примет вид:

Private Sub cmdUpdate_Click()

On Error Resume Next

dtPhoneBook.Recordset.Update

End Sub

• Запустите программу.

• Добавьте запись кнопкой «Добавить».

• Внесите значения в текстовые поля.

• Щелкните кнопку «Обновить».

Как видите, без перехода на другую строку содержимое сетки обновилось (и содержимое БД тоже).

Остался обработчик события cmdDelete_Click. Здесь ситуация немного сложнее.

В обработчик cmdDelete_Click добавьте строку:

dtPhoneBook.Recordset.Delete

Но при удалении записи указатель объекта Recordset не сможет переместиться самостоятельно и будет указывать на уже удаленную, несуществующую запись, это неверно.

• Следует явно переместить указатель:

dtPhoneBook.Recordset.MoveNext

Сразу следует предусмотреть ситуацию удаления последней записи в наборе – т.е., если перемещать указатель некуда.

VB позволяет производить проверку условия с помощью слов If(Если), Then (То), Else (Иначе).

• Типичный вид проверки условия:

If <условие> Then

	<действия, если условие выполнено>

Else

	<действие, если условие не выполнено>

End If

Возможны разновидности этой конструкции:

• Так можно делать, если <действие> короткое и поместится в строку;

If <условие> Then <действие>

• А так делается, если проверяется сразу несколько условий.

If <условие> Then

	<действия, если условие выполнено>

ElseIf <другое условие> Then

	<действие, если другое условие выполнено>

.

.

.

Else

	<действие, если ни одно из условий не выполнено>

End If

• В случае, если проверяется, приняло ли какое-то свойство значение из списка возможных, применяется конструкция:

Select Case <свойство>

	Case <значение1>

		<действия при значении1>

	Case <значение2>

		<действия при значении2>

	Case <значение3>

		<действия при значении3>

.

.

.

	CaseElse

		<действия при других значениях>

End Select

В нашем случае будем производить проверку, не достигли ли мы конца набора записей, и, если достигли, то будем перемещать указатель набора.

В обработчик события cmdDelete_Click внесите строки:

If dtPhoneBook.Recordset.EOF Then

End If

Это – заготовка конструкции проверки условия.

• Буквально это значит:

Если выполняется условие dtPhoneBook.Recordset.EOF, То

• Конструкция обязательно завершается признаком конца проверки условия – строкой

End If

Свойство EOF (КонецНабора) может принимать два значения: True (Истина) и False (Ложь). Если достигается конец набора (условие выполняется), то свойство принимает значение True, в других случаях его значение равно False.

• Значения True(Правда) и False (Ложь) – т.н. логические или булевские величины. Они применяются в логических операциях при проверке условий. VB имеет несколько слов-операторов для обработки логических условий.

• Вышеуказанные строки можно написать так:

If dtPhoneBook.Recordset.EOF = True Then

.

.

.

End If

Это – равнозначные способы написания. Первый способ проще, но второй – нагляднее, выбирайте сами.

Теперь определите действие, которое будет происходить в ответ на выход указателя за пределы набора (а свойство КонецНабора – указывает не на последнюю запись, а на участок после последней записи).

• Логично будет перенести указатель на последнюю запись:

dtPhoneBook.Recordset.MoveLast

• Код примет вид:

Private Sub cmdDelete_Click()

dtPhoneBook.Recordset.Delete

If dtPhoneBook.Recordset.EOF Then

		dtPhoneBook.Recordset.MoveLast

End If

End Sub

Внесите в код соответствующие строки.

Все? Нет, мы упустили случай удаления последней и единственной записи в наборе, т.е., когда набор остается пуст. Можно проверять количество записей в наборе, и, если осталась последняя запись, запрещать удаление, но мы сделаем проще – проигнорируем ошибку.

• Добавьте второй строкой обработчика

On Error Resume Next

• Запустите программу.

Все работает!

Хитрость:

Напишите так:

Private Sub cmdDelete_Click()

On Error Resume Next

With dtPhoneBook.Recordset

.Delete

If .EOF Then

.MoveLast

End If

End With

End Sub

Этот код действует совершенно так же, как и вышеописанный.

Слово With (С, Совместно) заставляет VB считать, что все действия производятся с объектом, чье имя стоит за With (здесь — dtPhoneBook.Recordset), и Вы можете сразу «дописывать» фразу, начиная ее с точки.

• Конструкция With должна быть внутри процедуры (т.е., на другие процедуры она не распространяется), и обязательно должна завершаться строкой End With.

• Кроме того, такое написание кода, как правило, работает быстрее.

Применяйте конструкцию With только тогда, когда обращение к одному и тому же объекту встречается не менее 3-5 раз подряд.

Проверьте, как работает Ваша программа.

1. Какие способы обработки ошибок Вам известны?

2. Какие условные операторы Вам известны? В каких случаях они применяются?

Задания

1. Обязательно добавьте комментарии к созданной Вами форме!

2. Законспектируйте раздел.

3. Так же. как и форму frmPhoneBook, создайте вторую форму для работы с базой данных – форму frmDiary. Внешний вид этой формы и составляющие ее компоненты совершенно аналогичны уже созданной «Телефонной книжке», другими будут имена элментов управления и надписи на метках. Естественно, форма будет подключена к другой таблице БД:

Элемент управления	Свойства
dtDiary	DataBaseName = C:VB BeginOrganizer.mdb RecordSource = Diary
dbgrDiary	DataSource = dtDiary
txtNote	DataSource = dtDiary DataField = Note
txtDate	DataSource = dtDiary DataField = Dates

Соответственно следует изменить код формы, поменяв имена объектов там, где они отличаются от имен формы frmPhoneBook.

В остальном эти формы одинаковы.

Сохраните и эту форму в рабочем каталоге проекта.

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Diamock, Google-бот, The trick и гости: 1