+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [ تمّ الحل ] : البحث بتاريخ بواسطة التاكست بوكس (/showthread.php?tid=23800)
[ تمّ الحل ] : البحث بتاريخ بواسطة التاكست بوكس - عبد العزيز البسكري - 11-02-18
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم .. أمسية طيّبة للجميع
بهذا الملف .. توجد خاصّية البحث بين تاريخيْن بواسطة الأداة DATETIMEPICKER .. و يعمل بشكل ممتاز و الحمد لله
ما أرجوه منكم .. فضلٌ و إحسان لا أمرٌ .. هو :
البحث بالتاكست بوكس 1 في حقل BBIRTHDATE بدون الضغظ على زر الأمر .. حاولت مع الكود بالمرفقات لكن لم اتوصّل لنتيجة للأسف ..
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
تحياتي
RE: البحث بتاريخ بواسطة التاكست بوكس - سعود الشامان - 12-02-18
وعليكم السلام ورحمة الله وبركاته
VB 2012 access 21 البحث في قاعدة بيانات أكسس عن تاريخ يساوي أو أكبر من أو اقل من أو بين تواريخ معي
https://youtu.be/Sz3xrohg16M
RE: البحث بتاريخ بواسطة التاكست بوكس - عبد العزيز البسكري - 12-02-18
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي الكريم " سعود الشّامان " على نيّة المساعدة .. مع الأسف أخي .. كل أكواد الشّرح بالرابط تعتمد على أزرار الأمر من جهة و من جهة أخرى الشروحات على فيجوال لون أسود في منتصف الليل زادت أرهقتني و أرهقت نظري التعبان أصلاً
إحتراماتي
RE: البحث بتاريخ بواسطة التاكست بوكس - سعود الشامان - 12-02-18
سلامتك ما تشوف شر ,
للأسف مشارعيك لا تفتح مباشرة , على ما اعتقد لأن نظامك 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 ClassRE: البحث بتاريخ بواسطة التاكست بوكس - طالب برمجة - 12-02-18
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
RE: البحث بتاريخ بواسطة التاكست بوكس - عبد العزيز البسكري - 12-02-18
السّلام عليكم و رحمة الله و بركاته
و هو المطلوب بالتّمام و الكمال و الكمال لله أخي الكريم " طالب برمجة "
بارك الله فيك و أحسن إليك مثلما أحسنت إليّ بهذا الحل الرّائع و الذي يفي بالمطلوب طولا ً و عرضًا
تحياتي و تشكّراتي و تقييماتي
RE: [ تمّ الحل ] : البحث بتاريخ بواسطة التاكست بوكس - محمود صالح - 12-02-18
او حل اخر
غير الجزء الخاص بالتكست الى
PHP كود :
where BBIRTHDATE= #" & CDate(TextBox1.Text) & "#
RE: [ تمّ الحل ] : البحث بتاريخ بواسطة التاكست بوكس - عبد العزيز البسكري - 12-02-18
السلام عليكم و رحمة الله و بركاته
[b]بارك الله فيك و لك أخي الكريم " محمود صالح " على الاضافة[/b]
[b]تحياتي و احتراماتي[/b]