关于数据填充后出现的问题,在线等~~~~~~

[zjx1302]

    '******************************************************************************************************
    '函数原型:
    '函数功能:判断用户是否可以登陆本系统
    '函数参数:
    '函数返回:True-表示可以登陆系统，False - 表示无权限登陆系统
    '创建日期:2008-05-13
    '修改日期:
    '******************************************************************************************************
    Function LoginGrant(ByVal UserID As String, ByVal SoftwareName As String) As Boolean
        Dim vSqladp As New SqlDataAdapter
        Dim ds As New DataSet
        vSqladp.SelectCommand = New SqlCommand
        Try
            vSqladp.SelectCommand.CommandText = "select LJMC from T_YHLB where YHBH='" & UserID & "'"
            vSqladp.SelectCommand.Connection = SqlConn
            Dim vSljmcarr(), vSljmc As String
            vSqladp.Fill(ds, "T_YHLB")  '=====>>执行到这句的时候提示出错:提示信息为:Invalid object name "T_YHLB"
            If ds.Tables("T_YHLB").Rows.Count > 0 Then
                vSljmc = ds.Tables("T_YHLB").Rows(0).Item("LJMC")
                vSljmcarr = vSljmc.Split(",")
                For Each s As String In vSljmcarr
                    If s.ToLower = SoftwareName.ToLower Then
                        Return True
                    End If
                Next
            Else
                Return False
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            vSqladp.SelectCommand.Dispose()
            vSqladp.Dispose()
            ds.Dispose()
        End Try
    End Function

如上面的代码所示,一直出错,我使用SQL 2005 执行了上面的SQL语句发现语句没有错误,可是不知道为什么总是不行,还请大家帮忙看下是什么问题引起的.

[nihaimeiyoudenglu]

你是不是联错了数据库呢?

[zjx1302]

没有,数据连接不会错,
SqlConn,这是个全局变量,如果错的话不会执行到这里了

[rockyvan]

把你那些引號去了試試

[zjx1302]

vSqladp.Fill(ds, "T_YHLB")

改为

vSqladp.Fill(ds,T_YHLB) 这样是不行的

楼上的朋友,是哪个引号呢?

[zjx1302]

楼上的朋友是不是改成如下的呢？

    Function LoginGrant(ByVal UserID As String, ByVal SoftwareName As String) As Boolean
        Dim vSqladp As New SqlDataAdapter
        Dim ds As New DataSet
        Try
            vSqladp.SelectCommand = New SqlCommand
            vSqladp.SelectCommand.Connection = SqlConn
            vSqladp.SelectCommand.CommandText = "Select LJMC from T_YHLB where YHBH='" & UserID & "'"
            Dim vSljmcarr(), vSljmc As String
            vSqladp.Fill(ds)　　'=====>>一样还是这里出错，错误的信息与上面的一样
            If ds.Tables(0).Rows.Count > 0 Then
                vSljmc = ds.Tables(0).Rows(0).Item("LJMC")
                vSljmcarr = vSljmc.Split(",")
                For Each s As String In vSljmcarr
                    If s.ToLower = SoftwareName.ToLower Then
                        Return True
                    End If
                Next
            Else
                Return False
            End If
        Catch ex As Exception

        Finally
            vSqladp.SelectCommand.Dispose()
            vSqladp.Dispose()
            ds.Dispose()
        End Try
    End Function

[fairy4]

Dim sqlconn As SqlConnection
sqlconn = New SqlClient.SqlConnection("server=;database=;uid=;pwd=")
我可以肯定你的sqlconn 有问题！或者 T_YHLB 这个表在你的当前数据库不存在！

[zjx1302]

楼上的正解!非常你的这句肯定,让我去找找Sqlconn,发现我在连接到另一以数据库服务器了.

问题已经解决给分.非常感谢!!!