مرحبا اهى سعود
ممكن مشروعك
لاني بتعامل بالطريقه اللي ذكرتها لك وبتمشي مع اي نوع تاريخ بدون مشكله
ولو وضعت الكود كامل كان افضل من الاقتطاع اللي السابق من حضرتك
انا افترضت انك عارف انه فيه تكلمه للتعديل اللي عدلته لك
(26-08-17, 07:06 PM)محمود بكرى كتب : [ -> ] (26-08-17, 06:01 PM)حريف برمجة كتب : [ -> ]للمعلومية اخي نزلت المثال وجربته يعطي التاريخ الهجري في الحالتين .
لان تنسيق الويندوز لديك بالعربي فى الاصل ولاكن هل التاريخين معا فى زر الهجري بالهجري ام واحد هجري والاخر ميلادي فى المثال الثاني التعديل
جرب واخبرني اخي حريف
ولاكن للمعلومة ايضا التاريخ مسجل فى القاعدة الميلادي فان ظهر معاك هجري فهذا هو الغرض من المثال ولاكن تعامل انت مع التعديل فى المثال الثاني فهو للنسخ العربية
نعم المرفق الثاني يظهر التاريخ ميلادي وهجري ،، وبالنسبة لي اعلم كيف تحويل التاريخ من الهجري للميلادي والعكس . وشكراً على مثالك .
ولكن للتاريخ الميلادي القديم لا يتم تحويله ويظهر رسالة خطأ .
أعتذر منكم إخوتي فصل النت عندي البارح
وأشكركم جزيل الشكر
الآن وصلت المعلومه وهي ان الحفظ في القاعدة بالميلادي لكن العرض و الادخال هجري وفعلا ضبطت
لكن تبقى لدي بعض الإشكاليات :
1 - التاريخ يظهر في الداتا جريد بصيغة الميلادي ( اريده هجري )
2 - وضعت هنا خيار اظهار ارقام المراجعين اللذين لديهم موعد بعد يومين
لكن المشكله عند إضافة مراجع جميع الأرقام يتم إظهارها في الليست بوكس
وهذا الكود تحت زر موافق
كود :
Dim dfrom As Date = Now.Date.ToShortDateString
dt = New DataTable
da = New OleDb.OleDbDataAdapter("Select * from Patient_data", con)
da.SelectCommand.CommandText = "select * from Patient_data where Data_mo3d=@Data_mo3d"
da.SelectCommand.Parameters.AddWithValue("@Data_mo3d", dfrom.AddDays(Val(TextBox7.Text)))
da.Fill(dt)
ListBox1.DataSource = dt
ListBox1.DisplayMember = "Pa_Phone"
المشروع بالمرفقات
السلام عليكم ورحمة الله و بركاته.
لا ادري هل انا فهمت المشكلة ام لا.
الاكسس ضمن الخيارات - اعدادات العميل(ان لم انس) تجد اختيار التقويم الهجري.
اذا فعلته وكان التنسيق صحيح ستجده هجري والعكس.
اظن الاكسس يوفر مجهود التحويل سواء كان النظام على الهجري او الميلادي.
يتبقى الفرق بين الربط وبين التعبئة!!!
اقصد بالربط عن طريق DataTable Or DataSet
واقصد بالتعبئة اي يتم تعبئة الادوات بالواجهة :كـTextBox بالقيم كـ نص.
ان كان فهمي خاطيء فاعتذر
(27-08-17, 05:23 PM)سعود الشامان كتب : [ -> ]أعتذر منكم إخوتي فصل النت عندي البارح
وأشكركم جزيل الشكر
الآن وصلت المعلومه وهي ان الحفظ في القاعدة بالميلادي لكن العرض و الادخال هجري وفعلا ضبطت
لكن تبقى لدي بعض الإشكاليات :
1 - التاريخ يظهر في الداتا جريد بصيغة الميلادي ( اريده هجري )
2 - وضعت هنا خيار اظهار ارقام المراجعين اللذين لديهم موعد بعد يومين
لكن المشكله عند إضافة مراجع جميع الأرقام يتم إظهارها في الليست بوكس
وهذا الكود تحت زر موافق
كود :
Dim dfrom As Date = Now.Date.ToShortDateString
dt = New DataTable
da = New OleDb.OleDbDataAdapter("Select * from Patient_data", con)
da.SelectCommand.CommandText = "select * from Patient_data where Data_mo3d=@Data_mo3d"
da.SelectCommand.Parameters.AddWithValue("@Data_mo3d", dfrom.AddDays(Val(TextBox7.Text)))
da.Fill(dt)
ListBox1.DataSource = dt
ListBox1.DisplayMember = "Pa_Phone"
المشروع بالمرفقات
السلام عليكم اخي سعود المرفق حقك شغال تمام وكان عندك المشكلة فى ان التاريخ بيظهر ميلادي وقد عدلت ذلك فى المرفق اما عند الاضافة وظهور اكثر من رقم بالليست لم تحدث معي او انى فهمت خطاء
المرفق
[
attachment=15255]
الف الف شكر يا باش مهندس محمود حليت لي مشكله معطلتني لها اكثر من اسبوع
الله يحرم وجهكك ووجه والديك من النار وكل من شارك معنا
لم تفهم خطأ يالغالي , بالفعل اختفت المشكله لا اعلم اين الخطا المهم تخطينا المشكله
(28-08-17, 02:10 AM)سعود الشامان كتب : [ -> ]الف الف شكر يا باش مهندس محمود حليت لي مشكله معطلتني لها اكثر من اسبوع
الله يحرم وجهكك ووجه والديك من النار وكل من شارك معنا
لم تفهم خطأ يالغالي , بالفعل اختفت المشكله لا اعلم اين الخطا المهم تخطينا المشكله
الحمد لله اخ سعود انك استفدت من الموضوع وشكرا على دعائك وادعو لك بالمثل ولكل المسلمين
شباب اتمني التعديل على هذا المشروع للبحث بالهجري عجزت وانا اعدل فيه نفس مشروع الاخ محمد
هذا رابط مثال المشروع
http://www.up-00.com/?nIMx
فيه مشكله عند البحث يتغير التاريخ في الداتا جريد لميلادي
تم تعديل المشروع واصبح يظهر التاريخ بالهجري في كل شي و البحث عن يوم معين بالهجري
