تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث بناءً على شرطين
#1
السلام عليكم
يارب تكونوا بخير
عندي مشروع فيجوال بيسك متصل بقاعدة بيانات اكسيس 
لدي كومبوبوكس1 وكومبوبوكس2 
علما بان لدي عمودان D   و    F
اريد ابحث فى قاعدة البيانات عن السجلات التي تحتوي على قيمة كومبوبوكس1 وكومبو بوكس2 
فى العمودان D   و    F

وشكرا
الرد
تم الشكر بواسطة: محمد كريّم
#2
وعليكم السلام...
يمكنك إستخدام الإستلام التالي.
تفضل:

كود :
  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
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة: محمد كريّم , mr_hso , asemshahen5 , ابراهيم ايبو
#3
(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 
انا عاوزه يتناسب مع الاكسيس
انا اسف اني بتعبك
الرد
تم الشكر بواسطة:
#4
تفضل:
كود :
       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
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة: mr_hso , ابراهيم ايبو
#5
(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 
عاوز احدد النتيجة تكون متطابقة
شكرا واسف على الاطالة
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
(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 
عاوز احدد النتيجة تكون متطابقة
شكرا واسف على الاطالة

فقط شيل رمز % من الكود وبكده هيكون بالتطابق وليس التشابه
الرد
تم الشكر بواسطة: mr_hso , ابراهيم ايبو
#7
(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 
عاوز احدد النتيجة تكون متطابقة
شكرا واسف على الاطالة

فقط شيل رمز % من الكود وبكده هيكون بالتطابق وليس التشابه





شكرا لحضرتك 
وشكرا لذوقك
وشكراً استاذ  اسامة الهرماوي 
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 181 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] تعديل في عملية البحث abu7shihab 4 152 11-09-20, 08:20 PM
آخر رد: T 1
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 357 07-09-20, 12:28 AM
آخر رد: محمد العامر
  السلام عليكم ممكن توضيح بسيط بخصوص البحث داخل الليست بوكس اليوم السابع 5 297 21-08-20, 01:40 PM
آخر رد: اليوم السابع
  [سؤال] سؤال في طرق البحث المختلفه منه 2 239 08-08-20, 04:17 AM
آخر رد: asemshahen5
  لي أيام أحاول اعرض نتائج البحث في التقرير المهنا 3 310 08-08-20, 12:52 AM
آخر رد: المهنا
  [VB.NET] أريد طريقة البحث بين تاريخيين sql server / vb.net 20410 RADOS 4 322 25-07-20, 04:06 AM
آخر رد: RADOS
  [سؤال] حالات البحث المختلفه منه 6 400 13-07-20, 05:05 AM
آخر رد: منه
  كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك adnan gharbi 9 626 04-06-20, 02:59 PM
آخر رد: adnan gharbi
  البحث بتاريخ اليوم في الدتا جريد فيو mazentq 5 414 27-05-20, 08:36 PM
آخر رد: rochdi191

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم