访问数据库中的 vb.net 搜索

debugcn 发表于 Dev

菲利普

我有一个基本问题。我有一个访问数据库，其中有一个包含 2 列的 List2。我有一个输入框，我在其中扫描条形码编号，如果在列中找到此条形码，我想在第 1 列（名称标题 - Zak）中搜索此条形码编号，然后从同一行的第 2 列（名称标题 Cisl）值显示我在哪里条码。我有一部分代码，我不知道如何继续。谢谢你的帮助

Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
    Dim barcode As String = Nothing
    Dim foundRows() As Data.DataRow

    barcode = InputBox("Naskenujte čárový kód ||||||||||||||||||||||||||||||||||||")
    If Len(Trim(barcode)) = 0 Then Exit Sub   'Pressed cancel

    'Vytvoreni dotazu

    foundRows = SdfDataSet.Tables("List2").Select("[Zak] = '" & barcode & "'")


    If foundRows IsNot Nothing Then
        MsgBox("Nenalezeno")
    Else
        MsgBox("Zákaznické číslo: " & barcode & foundRows(0)("Cisl"))
    End If

End Sub

这是图像数据库https://s4.postimg.org/8qulca9e5/source.png

奇拉格·帕特尔

如果我理解你的问题，就像这样：

 'Get the Row with the barcode.
 Dim foundRows() As Data.DataRow
 foundRows = DataSet1.Tables("List1").Select("[Zak] = '" & barcode & "'")

If foundRow IsNot Nothing Then
    'If not Found do something here or not.    
Else
   'If found output the first found rows Column2
    MsgBox("Zákaznické číslo: " & barcode & foundRow(0)("Column2"))
End If

注意：用列名替换Column2。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。