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

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

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

بهذا الملف .. توجد خاصّية البحث بين تاريخيْن بواسطة الأداة 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]

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

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

سعود الشامان

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

سعود الشامان

طالب برمجة

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

محمود صالح

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