求指点:在类中定义变量后,引用时却提示未声明变量

qwayy 2012-09-01 03:20:54

我在看 vb.net2005数据库项目案例导航时跟着做的练习,却提示未声明的变量,如下代码,请高人指点,谢谢



Imports System.Data.SqlClient



Public Class EditData

    Shared Function Search(ByVal ConnStr As String, ByVal strSQL As String) As DataTable

        '创建SqlConnection实例

        Dim conn As SqlConnection = New SqlConnection(ConnStr)

        '创建SQL命令

        Dim myCommand As SqlCommand = New SqlCommand(strSQL, conn)

        '打开数据库连接

        conn.Open()

        '设置适配器

        Dim adapter As New SqlDataAdapter

        adapter.TableMappings.Add("Table", "TEMP")

        adapter.SelectCommand = myCommand

        '填充数据集

        Dim ObjectdaDataSet As New DataSet()

        adapter.Fill(ObjectdaDataSet)

        '关闭数据库连接

        conn.Close()

        '返回查询的表

        Return ObjectdaDataSet.Tables("TEMP")



    End Function

end class

另一个类引用EditDate



Public Class DBuser

Public Function LoginConfirm() As Boolean

        '设置SQL查询语句

        Dim SQLString As String = "SELECT * FORM tbUSER WHERE 用户名＝'" & _UserName & "' and 密码＝'" & DBuser.Encrypt(_Password) & "'"

        '得到记录用户信息的表

        Dim UserTable As DataTable = EditData.Search(ConnStr, SQLString)'#############这里的ConnStr提示未声明变量

        '判断用户名和密码是否正确

        If UserTable.Rows.Count = 0 Then

            MsgBox("用户名或密码输入不正确，请重试", MsgBoxStyle.Exclamation, "信息框")

            Return False

        Else

            '返回用户的信息

            _UserNo = UserTable.Rows(0)("用户编号")

            _EMail = UserTable.Rows(0)("电子邮箱")

            _Phone = UserTable.Rows(0)("联系电话")

            _Address = UserTable.Rows(0)("家庭住址")

            _Power = UserTable.Rows(0)("权限")

            Return True

        End If

    End Function



End Class