منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] البحث بشرطين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] البحث بشرطين (/showthread.php?tid=29264)

البحث بشرطين - EMADSSS - 05-04-19

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

RE: البحث بشرطين - ابراهيم ايبو - 05-04-19

السلام عليكم اخي الكريم
تفضل هذا الكود البحث به حرفي 

كود :
   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


RE: البحث بشرطين - EMADSSS - 06-04-19

(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
يسعد مساك اخي وشكرا الك انا مساوي ارتباط لقاعدة البيانات مختلف عن الكود الي ارسلته لي ياريت تساعدني بالمشروع المرفق لان الي بعثته مختلف عن الي عندي وماشتغل خبرتي بدائية وشكرا الك

RE: البحث بشرطين - asemshahen5 - 06-04-19

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

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 


RE: البحث بشرطين - ابراهيم ايبو - 06-04-19

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

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

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

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

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


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


RE: البحث بشرطين - EMADSSS - 06-04-19

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