منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال حول اداة الداتا بيكر و اداة MSHFLEXGRID

الصفحات : 1 2 3

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

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

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

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

"

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

PHP كود :

convert(varchar, getdate(), 103) 

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

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

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

[attachment=15013]

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

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

[attachment=15015]

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

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

السلام عليكم

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

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 

الصفحات : 1 2 3

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

larbihamri

sendbad100

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

larbihamri

Amir_Alzubidy

larbihamri

Amir_Alzubidy

larbihamri

Amir_Alzubidy

sendbad100