[EMADSSS]

لو سمحتو  دايما انتو العون لي بعد الله
عاوز ابحث بشرطين معا الاسم والمدينة يعني اضع اسم الشخص في التكست الاول ومدينته في التكست الثاني يضهرلي في النتيجة فقط الاسم المطلوب الذي من المدينة المحددة راخ ارفق مشروعي ياريت المساعدة

[ابراهيم ايبو]

السلام عليكم اخي الكريم

تفضل هذا الكود البحث به حرفي 

كود :

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Personal where FirstName = '" & Txt_AutoSearsh.Text & "' and adress = '" & Txt_AutoSearsh2.Text & "'", con)
           da.Fill(dt)
           DataGridView1.DataSource = dt
       Catch ex As Exception
       End Try
   End Sub

[EMADSSS]

(05-04-19, 09:15 PM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم

تفضل هذا الكود البحث به حرفي 

كود :

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Personal where FirstName = '" & Txt_AutoSearsh.Text & "' and adress = '" & Txt_AutoSearsh2.Text & "'", con)
           da.Fill(dt)
           DataGridView1.DataSource = dt
       Catch ex As Exception
       End Try
   End Sub

يسعد مساك اخي وشكرا الك انا مساوي ارتباط لقاعدة البيانات مختلف عن الكود الي ارسلته لي ياريت تساعدني بالمشروع المرفق لان الي بعثته مختلف عن الي عندي وماشتغل خبرتي بدائية وشكرا الك

[asemshahen5]

تفضل جرب هذا الكود :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.ABindingSource.Filter = "[الاسم] LIKE '%" & TextBox1.Text & "%' and [المدينة]  LIKE '%" & TextBox2.Text & "%'"
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.ABindingSource.Filter = "[الاسم] LIKE '%" & TextBox1.Text & "%' or [المدينة]  LIKE '%" & TextBox2.Text & "%'"
    End Sub 


[ابراهيم ايبو]

السلام عليكم اخي الكريم

اعذرني باني اتعامل في جهازي مع فيجوال ستوديو 2008

اخي انت فقط بحاجة استبدال كود الاستعلام في كود البحث الذي عندك 

حيث ستغير اسم الجدول واسماء الحقول واسماء مربعي النص المراد البحث بقيمهما 

فقط هذا السطر ويجب ان تفعل ذلك بنفسك كي تكتسب الخبرة دمت بخير

كود :

da = New OleDbDataAdapter("select * from  اسم الجدول where حقل الاسم = '" & بالاسم البحث نص مربع .Text & "' and حقل المدينة = '" & بالمدينة البحث نص مربع.Text & "'", con)

[EMADSSS]

شكرا كثير اخي الفاضل جازاك الله خيرا