问题描述
|
我是C#和Visual Basic编程的新手。我正在使用Visual Studio 2010,并且尝试从mysql数据库中检索一些数据。使用wamp安装。
我已经通过转到\'Project \',\'Application Properties \',\'Settings \'设置了到数据库的连接。
我有此错误\“ \'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
这个程序只是一个ѭ1,以查看我是否可以在表单标签上显示mysql查询的结果。我想通过单击按钮来显示结果
如何解决错误?任何帮助表示赞赏。
解决方法
mAuto1变量是Get_Weight_By_TicketNumber函数的本地变量,您不能在函数外部使用它。如果需要,可以声明一个类级别的变量并将其设置为mAuto1的值。