我得到錯誤RDR未聲明

有了這行代碼我得到錯誤RDR未聲明

using (rdr as mysqldatareader = cmd.executereader())

我得到一個錯誤說RDR不宣。當我刪除了括號，使之成爲

Using rdr As MySqlDataReader = cmd.ExecuteReader()

我得到的錯誤在這條線tmpObj.No = rdr("No").ToString()說沒有不是project.Form.Appdata的成員，此行 tmpObj.Template = templa8和模板是不是該項目的成員.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

來源

2017-10-13 Jim Adjei-Wiredu

發佈'AppData'的代碼。 – Tim

錯誤信息告訴你到底你需要知道什麼。您正試圖爲「AppData」類型的對象的「No」屬性賦值，但「Appdata」類沒有名爲「No」的成員。 – DWRoelands

我如何編寫代碼來糾正？我一直在試圖解決這個問題，但要知道。 –

您可以通過添加糾正錯誤以下到您的應用程序數據類

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

但不一定使你的代碼工作。

來源

2017-10-14 05:53:44 Mary

我得到錯誤RDR未聲明

回答

相關問題