내가 RDR이 선언되지 않은 말하는 오류가 오류 RDR 코드</p> <pre><code>using (rdr as mysqldatareader = cmd.executereader()) </code></pre> <p>이 라인으로

Question

을 선언되지 않았습니다 얻을. 이

Using rdr As MySqlDataReader = cmd.ExecuteReader() 

이되도록 내가 브래킷을 제거하면 나는이 줄에 오류가 tmpObj.No = rdr("No").ToString() 아니오 tmpObj.Template = templa8 및 템플릿 프로젝트의 구성원 인 project.Form.Appdata의 구성원이 줄을하지 말 .Form.AppData. 저는 이미 클래스 레벨에 Private FPList As New List(Of AppData)을 멤버로 둡니다. 확실히 나는 틀린 일을하고있다. 어떤 제안?

'THIS NEEDS TO BE AT THE CLASS-LEVEL, AS A MEMBER 
'Private FPList As New List(Of AppData) 
    Public Class AppData 

    Public Sub Update() 
     RaiseEvent OnChange() 
    End Sub 
    Public Event OnChange() 
    Public FPList As New List(Of AppData) 
    Public IsEventHandlerSucceeds As Boolean = True 
    Public IsFeatureSetMatched As Boolean = False 
    Public FalseAcceptRate As Integer = 0 
    Public Sub Update() 
     RaiseEvent OnChange() 
    End Sub 
    Public Event OnChange() 
    Public FPList As New List(Of AppData) 
    End Class 



Private Sub Me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
    Handles MyBase.Load 
    Init() 
    StartCapture() 
    Dim sql As String = "SELECT * FROM new_case_file"  
    Using conn As New MySqlConnection("**** "), _ 
     cmd As New MySqlCommand(sql, conn) 

     conn.Open() 
     Using (rdr As MySqlDataReader = cmd.ExecuteReader()) 
      FPList.Clear() 
      While (rdr.Read()) 
       Dim tmpObj As New AppData 
       tmpObj.No = rdr("No").ToString() 

       Dim fpBytes As Byte() = rdr("FingerPrint") 
       Using MemStream As New IO.MemoryStream(fpBytes) 

        Dim templa8 As New DPFP.Template() 
        templa8.DeSerialize(MemStream) 
        tmpObj.Template = templa8 
       End Using 

       FPList.Add(tmpObj) 
      End While 
      rdr.Close() 
     End Using 
    End Using 
End Sub 

Answer 1

당신은 당신의 AppData 클래스

Private _No As String 
Public Property No As String 
    Get 
     Return _No 
    End Get 
    Set(value as String) 
     _No = value 
    End Set 
End Property 

Private _Template As DPFP.Template 
Public Property Template As DPFP.Template 
    Get 
     Return _Template 
    End Get 
    Set(value as DPFP.Template) 
     _Template = value 
    End Set 
End Property 

에 다음을 추가하여 해당 오류를 수정하지만 반드시 코드가 작동하지 않습니다.