Ошибка VB : «‘mAuto1’ не объявлен. Он может быть недоступен из-за своего уровня защиты». Нужно решение

#mysql #vb.net #visual-studio-2010

#mysql #vb.net #visual-studio-2010

Вопрос:

Я новичок в программировании на 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 = '" amp; mTicketNumber amp; "'", , , 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 на ярлыке формы. Я хотел отображать результаты по нажатию кнопки

Как мне исправить ошибку? Приветствуется любая помощь.

Ответ №1:

Вариант mAuto1 является локальным в функции Get_Weight_By_TicketNumber, вы не можете использовать его вне функции. Если вы хотите, объявите вариант уровня класса и установите для него значение mAuto1.