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 

: 여기

내 코드입니다 "오류가 컴파일합니다. 방법 또는 데이터 멤버를 찾을 수 없습니다"

도움을 주시면 감사하겠습니다.

Answer 1

라인

Do While Not rstCurrentTicket.EOF 

에 오타 그것은 변수 이름의 끝에 S가 있어야 있습니다 :

이 변수를 참조 다른 곳에서 유사한 문제가 있습니다

Do While Not rstCurrentTickets.EOF 

.

VB6 IDE에서 Option Explicit을 켜고 이미 작성한 모든 양식/모듈/클래스에 파일 맨 위에 있어야합니다. 이렇게하면 모든 변수가 올바르게 선언되고 버그를 찾기가 어려워집니다.