[larbihamri]

السلام عليكم 
كيف حال الجميع 
سؤالي يتكون من شطرين 
الاول حول اداة الداتابيكر
عند اقوم بالحفظ في قاعدة البيانات الحقول المربوطة باداة الداتابيكر يكون الحفظ فيها بالتاريخ و الوقت و انا اريد التاريخ فقط مع العلم اني في LOAD FORM اقوم ببرمجة البيكر الى الوقت الحالي (NOW)
السؤال الثاني حول اداة MSHFLEXGRID
عند اجراء عملية البحث في MSHFLEXGRID فان الحقول التي تحتوي على التاريخ يكون التاريخ فيها معكوس اي كمايلي (MM/DD/YYYY)
و انا اريد ان يكون التاريخ هكذا : (dd/MM/yyyy)

[sendbad100]

السلام عليكم
ضع مشروعك

ليتم التعديل عليه

[ابو محمد القحطاني]

اولاً نصيحة انتقل الى الدوت "قد تندمون يوم يوم لا ينفع الندم  "

ثانية عند عملية الاستعلام عن التاريخ اكتب بجملة الاستعلام هذا

PHP كود :

convert(varchar, getdate(), 103) 


طبعاً غير getdate() بحقل التاريخ الموجود في الجدول

[larbihamri]

وضح اكثر اخي  ابو محمد القحطاني كيف اكتب هذا في جملة الاستعلام 
لقد قمت بإرفاق مثال بسيط لتبيان المشكلة

[Amir_Alzubidy]

السلام عليكم و رحمة الله و بركاته 
اهلا بك اخي الحبيب 
اتمنى ان يكون هذا هو المطلوب 


  DTPICKER AND MSHFLEXGRID_1.rar (الحجم : 20.93 ك ب / التحميلات : 61)

[larbihamri]

استاذنا Amir_alzubidy بارك الله ،لكن المشكلة مازالت قائمة اثناء اجراء عملية البحث حيث انه اذا قمت بعملية البحث و كانت نتيجة البحث ايجابية فهنا لا مشكلة اما اذا كانت سلبية و اعدت عملية البحث فالتاريخ هنا يكون معكوس

[Amir_Alzubidy]

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


  DTPICKER _2.rar (الحجم : 21.21 ك ب / التحميلات : 48)

[larbihamri]

نفس المشكل استاذ عند اجراء البحث و يكون هناك نتيجة لا ينعكس التاريخ اما اذا اجري البحث و ظهرت رسالة لا يوجد سجلات و من بعد ذلك تم اجراء البحث و كانت هناك نتيجة البحث هنا يصبح التاريخ معكوس

[Amir_Alzubidy]

لا بأس
انا اسف لم انتبه لهذه المشكلة
سأقوم بالتعديل المناسب بعد قليل ان شاء الله

[sendbad100]

السلام عليكم

جرب التالي 
في فورم البحث غير  الاكواد كالتالي

PHP كود :

Private Sub Command1_Click()
Adodc1.RecordSource = "SELECT name, Format([birthd],'dd/mm/yyyy') AS _birthd FROM az WHERE birthd = #" & Format(DTPicker1.Value, "dd/mm/yyyy") & "#"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "áÇíæÌÏ ÓÌáÇÊ", vbCritical + vbOKOnly
Exit Sub
End If
Adodc1.Recordset.MoveFirst
Set MSHFlexGrid1.DataSource = Adodc1
 
End Sub

 
Private Sub Command2_Click()
Adodc1.RecordSource = "SELECT name, Format([birthd],'dd/mm/yyyy') AS _birthd FROM az"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "áÇíæÌÏ ÓÌáÇÊ", vbCritical + vbOKOnly
Exit Sub
End If
Adodc1.Recordset.MoveFirst
Set MSHFlexGrid1.DataSource = Adodc1
 End Sub