Ошибка загрузки формы Vb6

Question

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

вот мой код:

 Public Sub Form_Load()

''''''''''''''''''''''''''''Fill ComboBox with open Tickets'''''''''''''''''''
Dim Sqlstring As String
Dim rstCurrentTickets As Recordset

Sqlstring = "Select * from TroubleTickets where ResolvedDate IS Null"
Set rstCurrentTickets = cnnSel.OpenRecordset(Sqlstring)

Do While Not rstCurrentTicket.EOF

If Not IsNull(rstCurrentTicket.Fields!TroubleTicketId) Then
        TicketComboBox.AddItem (Trim(rstCurrentTicket.Fields!Title))
End If
TicketComboBox.MoveNext
Loop
''''''''''''''''''''''''''''End of Segment'''''''''''''''''''


If CreateNewTicketRadioButton.value = True Then
CreateSubmitButton.visible = True
CloseButton.visible = False
EditButton.visible = False

ElseIf (EditOpenTicketRadioButton.value = True) Then

CreateSubmitButton.visible = False
CloseButton.visible = False
EditButton.visible = True

ElseIf (CloseResolvedTicketRadioButton.value = True) Then

CreateSubmitButton.visible = False
CloseButton.visible = True
EditButton.visible = False

End If



End Sub

Когда я запускаю его в отладчике, он останавливается на Load Sub и выдает ошибку: «Ошибка компиляции: метод или элемент данных не найден».

Помощь приветствуется!

Answer 1

На линии есть опечатка

Do While Not rstCurrentTicket.EOF

В конце имени переменной должно быть s:

Do While Not rstCurrentTickets.EOF

Есть аналогичные проблемы в других местах, где вы ссылаетесь на эту переменную.

Вам действительно нужно включить Option Explicit в вашей VB6 IDE и убедиться, что у каждой формы / модуля / класса, который вы уже создали, он есть в верхней части файла. Это приводит к тому, что все переменные не будут должным образом объявлены, и избавит от множества труднодоступных ошибок.