1

这非常紧急，我需要在 3 个半小时内提交此申请。

我的应用程序检查数据源以查看数据库中是否存在值，并根据是否找到相关值来更改值。问题是我已经在 SSMS 中使用有问题的值运行了 sql 查询，并且没有返回任何行，但是，我的 DataReader 说它有行。

这意味着我的应用程序报告不准确。这是我的代码：

Using conn As New SqlConnection("Data Source=.\SQLEXPRESS; Initial Catalog=Testing;       Integrated Security=True;")
    Dim cmd As New SqlCommand(sql, conn)

    conn.Open()
    Dim reader As SqlDataReader = cmd.ExecuteReader

    If reader.HasRows Then
       Value = True
       AcctNumber = reader(1)
    End If

    reader.Close()
End Using

我删除了与这篇文章无关的代码，但您可能想知道的是：

值是布尔值 AcctNumber 是字符串

由于这是一个工作应用程序，我宁愿不包括 SQL 查询。问题出在读者身上。如果我注释掉Value = True，我会得到正确的信息，但如果忽略它意味着在 Value 应该为 True 的情况下，它也会报告不准确。

提前致谢！

编辑：完整源代码：

Case "Business"
    ' Change the number format to local because that's what it is in the db
    If Microsoft.VisualBasic.Left(NumberToCheck, 2) = "27" Then
        NumberToCheck = NumberToCheck.Replace(Microsoft.VisualBasic.Left(NumberToCheck, 2), "0")
    End If

    Dim sql As String = "SELECT a.TelNumber, c.AccountNumber " & _
            "FROM TelInfo a " & _
            "INNER JOIN Customers b ON a.CustID = b.pkguidId " & _
            "INNER JOIN Accounts c ON b.pkguidId = c.CustID " & _
            "WHERE a.TelNumber = '" & NumberToCheck & "'"
    Using conn As New SqlConnection("Data Source=.\SQLEXPRESS; Initial Catalog=Testing; Persist Security Info=True; " & _
        "User Id=JoeSoap; Password=paoseoj;")
        Dim cmd As New SqlCommand(sql, conn)

        conn.Open()
        Dim reader As SqlDataReader = cmd.ExecuteReader

        If reader.Read Then
            Value = True
            AcctNumber = reader(1)
         End If

        reader.Close()
    End Using

在 2010 年 8 月 2 日 (mm/dd/yy) 之前发表的以下评论：

Value只是一个由函数返回的布尔值，表示搜索到的电话号码 ( NumberToCheck) 存在于数据库中。

所以...

Private AcctNumber As String

Dim val As Boolean = False
val = CheckNumber("3235553469")
If val Then
    ' AcctNumber will have been set by CheckNumber
    Label1.Text = AcctNumber
End If

val只有在 NumberToCheck（在本例中为 3235553469）存在于数据库中时才会返回 True。

将 NumberToCheck 的值复制到 SSMS 并在那里测试查询后，我可以验证查询是否按预期工作。

不，由于表中的信息量很大（+/- 9.5m 行），我无法填充 DataSet。即使使用“WHERE”过滤器，查询的资源也太繁重，最终以一个结尾，OutOfMemory Exception这就是我使用 DataReader 的原因。

我现在将尝试ExecuteScalarDarryl 作为答案所建议的选项，并将更新结果。

4

4 回答 4

3

尝试将您的If陈述更改为

If reader.Read() Then
   Value = True
   AcctNumber = reader(1)  
End If

HasRows在某些情况下表现出奇怪的行为，所以最好完全避免它。

于 2010-07-29T09:23:52.057 回答
1

这并不能解决问题，但它可以帮助您完成演示。使用“ExecuteScalar”，当您返回单个值时它应该可以工作。

    AcctNumber = ""
    AcctNumber = cmd.ExecuteScalar
    If AcctNumber = "" Then
        Value = False
    Else
        Value = True
    End If
于 2010-07-29T12:32:46.873 回答
0

用荷马辛普森的不朽话语......“DOH！”

我刚刚查看了我的应用程序搜索电话号码的数据库，我不知道我怎么会错过它，但我正在搜索的值实际上就在那里。

因此，问题可能与我的代码无关，而是数据......

于 2010-08-02T07:57:10.650 回答
0

为了确保这不是数据问题，请参数化您的 SQL。更改语句：

Dim sql As String = "SELECT a.TelNumber, c.AccountNumber " & _
        "FROM TelInfo a " & _
        "INNER JOIN Customers b ON a.CustID = b.pkguidId " & _
        "INNER JOIN Accounts c ON b.pkguidId = c.CustID " & _
        "WHERE a.TelNumber = @telNumber"

然后这样做：

Dim cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@telNumber", NumberToCheck) ' <==== added line

编辑

我想我们找错地方了。在之前添加if reader.Read()：

Value = false
AcctNumber = ""

这将确保您没有变量范围的问题。（您正在使用Option Strict On，对吗？）

于 2010-07-29T09:58:00.500 回答