منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

إخواني أعضاء منتدي فيجوال بسيك
السلام عليكم ورحمة الله وبركاته
حصلت على كود من تفس المنتدي عمل فلتر البيانات وهو شغل وممتاز ومصدر البيانات الاكسس  وارغب الاستفادة منه بحيث يكون ومصدر البيانات الاستعلام   في  قاعدة بيانات (sql server)
عمل تعديل على الكود اكثر من مرة والكن يجلب البيانات بدون عمل فلتر
Imports System.Data.OleDb



Public Class MainForm

    Dim con As OleDbConnection

    Dim da As OleDbDataAdapter

    Private Function final_table() As DataTable

        Dim table As New DataTable

        Dim t1 As New DataTable



        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")

        da = New OleDbDataAdapter("Select * from data1", con)

        da.Fill(t1)

        table.Merge(t1)



        t1.Clear()







        Return table

    End Function

    Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        DataGridView1.DataSource = final_table()

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged



        If TextBox1.Text.Trim = "" Then

            Me.DataGridView1.DataSource = final_table()

        Else

            Dim rows = final_table.Rows.Cast(Of DataRow).Where(Function(x) x.Item("Address").ToLower.Equals(sender.Text.Trim.ToLower))

            If rows.Count = 0 Then

                Me.DataGridView1.DataSource = Nothing

            Else

                Me.DataGridView1.DataSource = rows.CopyToDataTable

            End If

        End If
    End Sub