在Access数据库中搜索文本并使用查找文本显示msg框

时间:2017-06-27 06:26:34

标签: vb.net ms-access

你可以帮帮我吗?我在ms访问数据库中有两列,如果找到文本显示带有来自输入框的文本的msg框和来自同一行的下一列的文本,我想要基于输入框的搜索文本。可能吗? 第一列名称:zak 第二列名称:cisl

谢谢

Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
        Dim rngVis As String
        Dim VisCell As String
        Dim barcode As String = Nothing
        barcode = InputBox("")
        barcode = InputBox("Naskenujte čárový kód ||||||||||||||||||||||||||||||||||||")
        If Len(Trim(barcode)) = 0 Then Exit Sub   'Pressed cancel

        Dim table As DataTable = SdfDataSet.Tables("vyhl")
        Me.Refresh()
        'Vytvoreni dotazu
        Dim expression As String
        expression = ("[zak] = '" & barcode & "'")
        Dim foundRows() As DataRow


        'vykonani dotazu
        foundRows = table.Select(expression)

        MsgBox("")


    End Sub

0 个答案:

没有答案