تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بحث متعدد
#1
يسعد مساكم جميعا ... انا شغال على مشروع فيجوال بيسك 10 وقاعدة بيانات اكسس وبحاجة الى كود بحث متقدم يعني بدي ابحث عن نص بتاريخ معين ... ارجو الافادة
الرد
تم الشكر بواسطة:
#2
كود :
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
لكن طلبك بحث عادي مش بحث متقدم
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة , baha , علي بنيان
#3
(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
لكن طلبك بحث عادي مش بحث متقدم
لا اعلم صديقي انا جديد في عالم فيجوال بيسك في صور بالمرفقات يمكن توضح ما اريد وشكرا


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: asemshahen5
#4
السلام عليكم

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


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
الرد
تم الشكر بواسطة: asemshahen5 , ibrahimmakhool
#5
(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
الرد
تم الشكر بواسطة: الرائد



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


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