تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : البحث بتاريخ بواسطة التاكست بوكس
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم .. أمسية طيّبة للجميع
بهذا الملف .. توجد خاصّية البحث بين تاريخيْن بواسطة الأداة DATETIMEPICKER .. و يعمل بشكل ممتاز و الحمد لله
ما أرجوه  منكم .. فضلٌ و إحسان لا أمرٌ .. هو :
البحث بالتاكست بوكس 1 في حقل BBIRTHDATE بدون الضغظ على زر الأمر .. حاولت مع الكود بالمرفقات لكن لم اتوصّل لنتيجة للأسف ..
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
تحياتي


الملفات المرفقة
.rar   البحث بتاريخ الميلاد.rar (الحجم : 103.86 ك ب / التحميلات : 58)
الرد
تم الشكر بواسطة: محمود صالح
#2
وعليكم السلام ورحمة الله وبركاته



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

https://youtu.be/Sz3xrohg16M
الرد
تم الشكر بواسطة:
#3
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي الكريم " سعود الشّامان " على نيّة المساعدة .. مع الأسف أخي .. كل أكواد الشّرح بالرابط تعتمد على أزرار الأمر من جهة و من جهة أخرى الشروحات على فيجوال لون أسود في منتصف الليل زادت أرهقتني و أرهقت نظري التعبان أصلاً
إحتراماتي
الرد
تم الشكر بواسطة:
#4
سلامتك ما تشوف شر ,

للأسف مشارعيك لا تفتح مباشرة , على ما اعتقد لأن نظامك 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
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#5
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.ClickDateTimePicker1.ValueChangedDateTimePicker2.ValueChanged 

PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.TextChanged
    
If IsDate(TextBox1.TextThen
        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 
الرد
#6
السّلام عليكم و رحمة الله و بركاته
و هو المطلوب بالتّمام و الكمال و الكمال لله أخي الكريم " طالب برمجة "
بارك الله فيك و أحسن إليك مثلما أحسنت إليّ بهذا الحل الرّائع و الذي يفي بالمطلوب طولا ً و عرضًا
تحياتي و تشكّراتي و تقييماتي
الرد
تم الشكر بواسطة: محمود صالح , طالب برمجة
#7
او حل اخر
غير الجزء الخاص بالتكست الى
PHP كود :
where BBIRTHDATE#" & CDate(TextBox1.Text) & "# 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
#8
السلام عليكم و رحمة الله و بركاته
[b]بارك الله فيك و لك أخي الكريم " محمود صالح " على الاضافة[/b]
[b]تحياتي و احتراماتي[/b]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود البحث في الكرد فيو moh developer 1 95 15-10-20, 05:46 PM
آخر رد: abdou
Exclamation [سؤال] جملة البحث abarrak 4 126 14-10-20, 03:00 PM
آخر رد: abarrak
  أريد كود البحث بال combobox Hazem Kamel 3 220 13-10-20, 01:17 AM
آخر رد: Hazem Kamel
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 21 679 07-10-20, 07:29 PM
آخر رد: عبد العزيز البسكري
  سؤال بخصوص رتش تكست بوكس abdou 5 224 04-10-20, 01:54 PM
آخر رد: abdou
Heart [سؤال] السلام علام مطلوب طريقة التحقق من كول الكلمة المتكرار في اليسة بوكس وضعها في التيكس ب Ali 2020 0 166 01-10-20, 12:38 AM
آخر رد: Ali 2020
  [VB.NET] الكتابة في أداة تيكس بوكس برمجيا sniperjawadino 6 282 19-09-20, 03:13 AM
آخر رد: sniperjawadino
  [VB.NET] عاوز كود يظهر ماسج بوكس بعد تخطي اعلان ahmed112001 0 133 18-09-20, 03:24 PM
آخر رد: ahmed112001
  مساعدة بالكتابه داخل التكست بوكس eeee2 5 254 17-09-20, 12:39 AM
آخر رد: Anas Mahmoud
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 240 16-09-20, 03:57 PM
آخر رد: رامى محمد

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


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