+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث بناءً على شرطين (/showthread.php?tid=33544)
البحث بناءً على شرطين - mr_hso - 25-02-20
السلام عليكم
يارب تكونوا بخير
عندي مشروع فيجوال بيسك متصل بقاعدة بيانات اكسيس
لدي كومبوبوكس1 وكومبوبوكس2
علما بان لدي عمودان D و F
اريد ابحث فى قاعدة البيانات عن السجلات التي تحتوي على قيمة كومبوبوكس1 وكومبو بوكس2
فى العمودان D و F
وشكرا
RE: البحث بناءً على شرطين - اسامه الهرماوي - 25-02-20
وعليكم السلام...
يمكنك إستخدام الإستلام التالي.
تفضل:
كود :
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim Query As String = "Select * From TABLE1 Where 1=1"
If Combobox1.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox1.Text) & "%'"
End If
If Combobox2.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox2.Text) & "%'"
End If
Dim cmd As New SqlCommand(Query, con)
da = New SqlDataAdapter(cmd)
dt.Clear()
da.Fill(dt)
Me.datagridview1.DataSource = dtRE: البحث بناءً على شرطين - mr_hso - 26-02-20
(25-02-20, 02:35 AM)اسامه الهرماوي كتب : وعليكم السلام...
يمكنك إستخدام الإستلام التالي.
تفضل:
كود :
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim Query As String = "Select * From TABLE1 Where 1=1"
If Combobox1.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox1.Text) & "%'"
End If
If Combobox2.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox2.Text) & "%'"
End If
Dim cmd As New SqlCommand(Query, con)
da = New SqlDataAdapter(cmd)
dt.Clear()
da.Fill(dt)
Me.datagridview1.DataSource = dt
كتر خيرك وتسلم يا رب
بس الكود ده مع الsql
انا عاوزه يتناسب مع الاكسيس
انا اسف اني بتعبك
RE: البحث بناءً على شرطين - اسامه الهرماوي - 26-02-20
تفضل:
كود :
Dim da As OleDbDataAdapter
Dim dt As New DataTable
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim Query As String = "Select * From TABLE1 Where 1=1"
If Combobox1.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox1.Text) & "%'"
End If
If Combobox2.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox2.Text) & "%'"
End If
Dim cmd As New OleDbCommand(Query, con)
da = New OleDbDataAdapter(cmd)
dt.Clear()
da.Fill(dt)
Me.datagridview1.DataSource = dtRE: البحث بناءً على شرطين - mr_hso - 26-02-20
(26-02-20, 12:52 AM)اسامه الهرماوي كتب : تفضل:
كود :
Dim da As OleDbDataAdapter
Dim dt As New DataTable
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim Query As String = "Select * From TABLE1 Where 1=1"
If Combobox1.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox1.Text) & "%'"
End If
If Combobox2.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox2.Text) & "%'"
End If
Dim cmd As New OleDbCommand(Query, con)
da = New OleDbDataAdapter(cmd)
dt.Clear()
da.Fill(dt)
Me.datagridview1.DataSource = dt
تسلم تسلم تسلم اخي الفاضل اسامة الهرماوي بارك الله فيك وذادك علماً
بس ليا تفصيلة صغيرة
اسف
لما بختار من الكمبوبوكس رقم 1 بيجيلي فى النتيجة 1،10،11،12 واي شيئ فيه رقم 1
عاوز احدد النتيجة تكون متطابقة
شكرا واسف على الاطالة
RE: البحث بناءً على شرطين - kiki - 26-02-20
(26-02-20, 01:53 AM)mr_hso كتب :(26-02-20, 12:52 AM)اسامه الهرماوي كتب : تفضل:
كود :
Dim da As OleDbDataAdapter
Dim dt As New DataTable
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim Query As String = "Select * From TABLE1 Where 1=1"
If Combobox1.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox1.Text) & "%'"
End If
If Combobox2.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox2.Text) & "%'"
End If
Dim cmd As New OleDbCommand(Query, con)
da = New OleDbDataAdapter(cmd)
dt.Clear()
da.Fill(dt)
Me.datagridview1.DataSource = dt
تسلم تسلم تسلم اخي الفاضل اسامة الهرماوي بارك الله فيك وذادك علماً
بس ليا تفصيلة صغيرة
اسف
لما بختار من الكمبوبوكس رقم 1 بيجيلي فى النتيجة 1،10،11،12 واي شيئ فيه رقم 1
عاوز احدد النتيجة تكون متطابقة
شكرا واسف على الاطالة
فقط شيل رمز % من الكود وبكده هيكون بالتطابق وليس التشابه
RE: البحث بناءً على شرطين - mr_hso - 26-02-20
(26-02-20, 04:13 AM)kiki كتب :(26-02-20, 01:53 AM)mr_hso كتب :(26-02-20, 12:52 AM)اسامه الهرماوي كتب : تفضل:
كود :
Dim da As OleDbDataAdapter
Dim dt As New DataTable
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim Query As String = "Select * From TABLE1 Where 1=1"
If Combobox1.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox1.Text) & "%'"
End If
If Combobox2.Text <> "" Then
Query = Query & " AND D LIKE '%" & Trim$(Combobox2.Text) & "%'"
End If
Dim cmd As New OleDbCommand(Query, con)
da = New OleDbDataAdapter(cmd)
dt.Clear()
da.Fill(dt)
Me.datagridview1.DataSource = dt
تسلم تسلم تسلم اخي الفاضل اسامة الهرماوي بارك الله فيك وذادك علماً
بس ليا تفصيلة صغيرة
اسف
لما بختار من الكمبوبوكس رقم 1 بيجيلي فى النتيجة 1،10،11،12 واي شيئ فيه رقم 1
عاوز احدد النتيجة تكون متطابقة
شكرا واسف على الاطالة
فقط شيل رمز % من الكود وبكده هيكون بالتطابق وليس التشابه
شكرا لحضرتك
وشكرا لذوقك
وشكراً استاذ اسامة الهرماوي