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

السلام عليكم
يارب تكونوا بخير
عندي مشروع فيجوال بيسك متصل بقاعدة بيانات اكسيس 
لدي كومبوبوكس1 وكومبوبوكس2 
علما بان لدي عمودان D   و    F
اريد ابحث فى قاعدة البيانات عن السجلات التي تحتوي على قيمة كومبوبوكس1 وكومبو بوكس2 
فى العمودان D   و    F

وشكرا

وعليكم السلام...
يمكنك إستخدام الإستلام التالي.
تفضل:

(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 
انا عاوزه يتناسب مع الاكسيس
انا اسف اني بتعبك

تفضل:

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

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

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

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

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

شكرا لحضرتك 
وشكرا لذوقك
وشكراً استاذ  اسامة الهرماوي