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

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

VB.NET code

Imports System.Data.SqlClientPublic 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 Functionend class

另一个类引用EditDate

VB.NET code

Public Class DBuserPublic 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 FunctionEnd Class

[解决办法]
EditDate那个是参数,LoginConfirm调用Search,需要传入ConnStr,就需要在LoginConfirm声明好再传入

查看更多 下一篇