比较从应用程序到数据库的数据答案

【问题标题】：Compare Data from app to database比较从应用程序到数据库的数据
【发布时间】：2014-02-04 04:10:50
【问题描述】：

我的sql不太好，所以我想问一下如何将特定数据与“foo”进行比较。

用户将输入一个唯一的 ID
选择死亡日期
系统会检查id是否存在；
如果存在，它将检查 pig 是否来自所选的 Batch From:ComboBox = CurrentLocation (fieldname)
如果小猪的CurrentLocation与comboBox中的item不一样=错误输入

所以基本上，我需要检查用户输入项的CurrentLocation-（数据库字段）并与ComboBatchFrom.Text进行比较
我已经测试了一些methods，但它不起作用，因此离我的目标还很远。我希望你能给我一些关于如何从访问中获取数据的想法。谢谢！

【问题讨论】：

stackoverflow.com/questions/21541738/check-if-column-is-empty - 这似乎不对。它不工作。
看看你的另一个问题，你检查tablePiglet 的行数是否大于零？即tablePiglet.Rows.Count
是的，并且计数不大于0。事实上，正如我在那里所说，我觉得数据表不存在，但它在那里。我还没有解决那个问题，但是这个问题，但我认为是一个不同的问题，（所以我问）这是我今天需要完成的目标。
如果 Count 不大于 0，这意味着您的 DataTable 目前没有行，除非您有强有力的证据表明否则。 Any chance DataTable hasn't been populated yet?通过调用.Fill函数maybe?
@AdorableVB 你能展示你用来填充你的数据表的代码吗？因为如果您的行数为 0，那么您的查询是可疑的，或者您没有像前面提到的那样填充 DataTable。

标签： .net vb.net ms-access

【解决方案1】：

我已经解决了这个问题，谢谢你的帮助。

Dim query As String = "SELECT * FROM tblPiglets WHERE Week=@week AND SowOrder=@so AND PigletNumber=@pig"

    Using cmd As New OleDbCommand(query, con)
        With cmd.Parameters
            .AddWithValue("@week", txtWeek.Text)
            .AddWithValue("@so", txtSo.Text)
            .AddWithValue("@pig", txtPiglet.Text)
        End With
        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        While dr.Read
            Dim loc As String
            loc = dr("CurrentLocation").ToString()
            If loc = ComboBox1.Text Then
                confirmed()
            Else
                invalid()
            End If
        End While
    End Using

我正在寻找.Read function。

【讨论】：