-5

Textbox コントロールで Dataview をフィルタリングしたいのですが、プログラムを実行すると次のエラーが表示されます

「テーブル 0 が見つかりません」

これが私のコードです

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.KeyPress

        Dim conn As New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\Kyc.mdb"
        conn.Open()
        Dim cmdfilter As String = " select ID as الرقم_الوطني,fname as الاسم_الاول,sname as الاسم_الثاني,thname as الاسم_الثالث,finame as الاسم_الرابع from O_name "
        Dim dataadabtar As New OleDbDataAdapter(cmdfilter, conn)
        Dim ds As New DataSet
        Dim dsview As DataView
        Dim bs As New BindingSource
        dsview = ds.Tables(0).DefaultView
        bs.DataSource = dsview
        bs.Filter = "الرقم_الوطني LIKE '" & TextBox1.Text & "'"
        DataGridView1.DataSource = bs
        conn.Close()
End Sub 

私を助けてください

4

2 に答える 2

0

これを試して

    Dim dataadabtar As New OleDbDataAdapter(cmdfilter, conn)
    Dim ds As New DataSet
    Dim dsview As DataView
    Dim bs As New BindingSource

    dataadabtar.Fill(ds);

    IF ds.Tables.Count > 0 Then
      dsview = ds.Tables(0).DefaultView
      bs.DataSource = dsview
      bs.Filter = "الرقم_الوطني LIKE '" & TextBox1.Text & "'"
      DataGridView1.DataSource = bs
    END IF;
于 2013-09-27T14:29:42.790 に答える