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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32322)



بحث متعدد - ibrahimmakhool - 02-12-19

يسعد مساكم جميعا ... انا شغال على مشروع فيجوال بيسك 10 وقاعدة بيانات اكسس وبحاجة الى كود بحث متقدم يعني بدي ابحث عن نص بتاريخ معين ... ارجو الافادة


RE: بحث متعدد - smalw - 02-12-19

كود :
dim cmd as new oledbCommand("Select columntext From tablename Where columndate Between @date1 And @date2",con)
cmd.parameters.addwithvalue("@date1",datetimepicker1.value.date)
cmd.parameters.addwithvalue("@date2",datetimepicker2.value.date)
con.open
dim s=cmd.executescalar
con.close

if s isnot nothing then
msgbox s
end if
لكن طلبك بحث عادي مش بحث متقدم


RE: بحث متعدد - ibrahimmakhool - 02-12-19

(02-12-19, 12:19 PM)smalw كتب :
كود :
dim cmd as new oledbCommand("Select columntext From tablename Where columndate Between @date1 And @date2",con)
cmd.parameters.addwithvalue("@date1",datetimepicker1.value.date)
cmd.parameters.addwithvalue("@date2",datetimepicker2.value.date)
con.open
dim s=cmd.executescalar
con.close

if s isnot nothing then
msgbox s
end if
لكن طلبك بحث عادي مش بحث متقدم
لا اعلم صديقي انا جديد في عالم فيجوال بيسك في صور بالمرفقات يمكن توضح ما اريد وشكرا


RE: بحث متعدد - علي بنيان - 03-12-19

السلام عليكم

هذا كود للبحث عن تنسيق تاريخ قم بتغيره كما يناسب برنامجك


PHP كود :
If IsNumeric(TextBox5.Text) = False Then
            
'اذا كان المدخل في مريع البحث تاريخ  
            If IsDate(TextBox5.Text) Then
                TextBox5.Text = CDate(TextBox5.Text).ToString("dd/MM/yyyy")
            End If
            Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Tab WHERE name LIKE '
%" & Trim$(TextBox5.Text) & "%' or datee LIKE '" & Trim$(TextBox5.Text) & "'", con)
            con.Open()
            DataSet3.Clear()
            DataAdapter.Fill(DataSet3, "Tab")
            con.Close()
            If Me.BindingContext(DataSet3, "Tab").Count > 0 Then
                DataSet1.Clear()
                DataAdapter.Fill(DataSet1, "Tab")
                      Exit Sub
            End If
        End If 

اذا واجهت صعوبة بشيء لا تتردد في السؤال 

للامانة هذا الكود موجود في احد برامج الاخ ramilove


RE: بحث متعدد - ibrahimmakhool - 03-12-19

(03-12-19, 01:33 AM)علي بنيان كتب : السلام عليكم

هذا كود للبحث عن تنسيق تاريخ قم بتغيره كما يناسب برنامجك


PHP كود :
If IsNumeric(TextBox5.Text) = False Then
            
'اذا كان المدخل في مريع البحث تاريخ  
            If IsDate(TextBox5.Text) Then
                TextBox5.Text = CDate(TextBox5.Text).ToString("dd/MM/yyyy")
            End If
            Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Tab WHERE name LIKE '
%" & Trim$(TextBox5.Text) & "%' or datee LIKE '" & Trim$(TextBox5.Text) & "'", con)
            con.Open()
            DataSet3.Clear()
            DataAdapter.Fill(DataSet3, "Tab")
            con.Close()
            If Me.BindingContext(DataSet3, "Tab").Count > 0 Then
                DataSet1.Clear()
                DataAdapter.Fill(DataSet1, "Tab")
                      Exit Sub
            End If
        End If 

اذا واجهت صعوبة بشيء لا تتردد في السؤال 

للامانة هذا الكود موجود في احد برامج الاخ ramilove
قمت بعمل جميع الخطوات ولكن دون جدوى .... قمت بارفاق المشروع كامل اذا امكن حل المشكلة المطلوب هو في نموذج Tahwelat