[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إخواني الأكارم .. أمسية طيّبة للجميع

بهذا الملف .. توجد خاصّية البحث بين تاريخيْن بواسطة الأداة DATETIMEPICKER .. و يعمل بشكل ممتاز و الحمد لله

ما أرجوه  منكم .. فضلٌ و إحسان لا أمرٌ .. هو :

البحث بالتاكست بوكس 1 في حقل BBIRTHDATE بدون الضغظ على زر الأمر .. حاولت مع الكود بالمرفقات لكن لم اتوصّل لنتيجة للأسف ..

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء

تحياتي

[سعود الشامان]

وعليكم السلام ورحمة الله وبركاته



VB 2012 access 21 البحث في قاعدة بيانات أكسس عن تاريخ يساوي أو أكبر من أو اقل من أو بين تواريخ معي

https://youtu.be/Sz3xrohg16M

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بارك الله فيك و لك أخي الكريم " سعود الشّامان " على نيّة المساعدة .. مع الأسف أخي .. كل أكواد الشّرح بالرابط تعتمد على أزرار الأمر من جهة و من جهة أخرى الشروحات على فيجوال لون أسود في منتصف الليل زادت أرهقتني و أرهقت نظري التعبان أصلاً

إحتراماتي

[سعود الشامان]

سلامتك ما تشوف شر ,

للأسف مشارعيك لا تفتح مباشرة , على ما اعتقد لأن نظامك 32 بت ونظامي 64 بت

--------------------------------------------------------------------------------

لم أفهم سؤوالك جيداً

لكن تقدر تعمل sub وتضع كود البحث فيه وتستدعيه في اي وقت

مثال :

كود :

Public Class Form1

   Sub sa()

       MsgBox("سعود")

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       MsgBox("عبدالعزيز")

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
   sa()

   End Sub

End Class

[طالب برمجة]

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, DateTimePicker1.ValueChanged, DateTimePicker2.ValueChanged 


---

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
    If IsDate(TextBox1.Text) Then
        Dim conn As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\ABDELAZIZ.mdb ;Jet OLEDB:Database Password=1971")
        Dim dtsearch As New DataTable
        dtsearch.Clear()
        Dim dasearch As New OleDbDataAdapter("select * from STUDENT where BBIRTHDATE=@d", conn)
        dasearch.SelectCommand.Parameters.AddWithValue("@d", CDate(TextBox1.Text))
        dasearch.Fill(dtsearch)
        DataGridView1.DataSource = dtsearch
        If dtsearch.Rows.Count = 0 Then
            'MsgBox("لا توجد نتائج للبحث")
            dasearch = New OleDbDataAdapter(" SELECT * from STUDENT", conn)
            dasearch.Fill(dtsearch)
            DataGridView1.DataSource = dtsearch
        End If
    End If
End Sub 


[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

و هو المطلوب بالتّمام و الكمال و الكمال لله أخي الكريم " طالب برمجة "

بارك الله فيك و أحسن إليك مثلما أحسنت إليّ بهذا الحل الرّائع و الذي يفي بالمطلوب طولا ً و عرضًا

تحياتي و تشكّراتي و تقييماتي

[محمود صالح]

او حل اخر
غير الجزء الخاص بالتكست الى

PHP كود :

where BBIRTHDATE= #" & CDate(TextBox1.Text) & "# 


[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

[b]بارك الله فيك و لك أخي الكريم " محمود صالح " على الاضافة[/b]

[b]تحياتي و احتراماتي[/b]