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

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

لكن طلبك بحث عادي مش بحث متقدم

(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

لكن طلبك بحث عادي مش بحث متقدم

لا اعلم صديقي انا جديد في عالم فيجوال بيسك في صور بالمرفقات يمكن توضح ما اريد وشكرا

السلام عليكم

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



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

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

(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