VB錯誤：「'mAuto1'未聲明，由於其保護級別，可能無法訪問」。需要解決方案

Question

我是在c＃和visual basic中編程的新手。我正在使用visual studio 2010，我試圖從mysql數據庫中檢索一些數據。安裝使用wamp。

我已經通過轉到'項目'，'應用程序屬性'，'設置'來設置與數據庫的連接。

我有這個錯誤''mAuto1'沒有聲明。它可能無法訪問，由於其保護級別「，我似乎無法解決它。

下面的代碼是一個簡單的檢索：

Public Class Form1 

    Private procAuto As CALCOM.Auto 

    Private Function Connect_To_Database() As Boolean 
     Dim mErrorNumQuery As Long 
     Dim mReturn As Boolean 
     procAuto = New CALCOM.Auto 
     procAuto.Connect(mErrorNumQuery) 
     If mErrorNumQuery = 0 Then 
      mReturn = True 
     Else 
      mReturn = False 
     End If 
     Connect_To_Database = mReturn 
    End Function 

    Private Function Get_Weight_By_TicketNumber(ByVal mTicketNumber As String, ByRef mAuto1 As Long, ByRef mAuto2 As Long, ByRef mTotalWeight As Long) As Boolean 
     Dim mErrorNumQuery As Long 
     Dim mXtr As New CALCOM.xTr 
     Dim mRec As ADODB.Recordset 
     Dim mReturn As Boolean 
     mRec = mXtr.GetList("Select Auto1,Auto2,TotalWeight From txticket Where TicketCode = '" & mTicketNumber & "'", , , mErrorNumQuery) 
     If mErrorNumQuery = 0 Then 
      mReturn = True 
      If mRec.RecordCount <> 0 Then 
       mRec.MoveFirst() 
       mRec.MoveFirst() 
       mAuto1 = mRec.Fields("Auto1").Value 
       mAuto2 = mRec.Fields("Auto2").Value 
       mTotalWeight = mRec.Fields("TotalWeight").Value 
      End If 
     Else 
      mReturn = False 
     End If 
     Get_Weight_By_TicketNumber = mReturn 
    End Function 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Label1.Text = mAuto1 <--------------------problem here 
    End Sub 
End Class 

這個程序只是一個test，看看我可以在窗體標籤上顯示一個MySQL查詢的結果。我想在點擊一個按鈕上顯示結果

如何修復錯誤？任何幫助讚賞。

Answer 1

mAuto1變體是Get_Weight_By_TicketNumber函數中的本地變體，您不能在函數外部使用它。如果需要，請聲明一個類級別的變體並將其設置爲mAuto1的值。