الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف عرض التواريخ بتنسيق Yyyy/mm/dd في الفليكس جريد؟؟؟

بدأه medo429 في 26 ديسمبر 2008 · 8 رد · 3,661 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

عندي جدول به حقل من نوع تاريخ قمت بربط الجدول بالHFlexGrid عن طريق الكائن RS الذي هو من نوع Recordset

SET HFlexGrid.datasource=RS

طبعا بعد فتح ال rs

المهم اريد جعل التاريخ يظهر بالتنسيق yyyy/mm/dd وليس التنسيق الافتراضي في الفليكس جريد

وجزاكم الله كل خير

ما زال الرجل عالما طالما يتحري العلم فان قال علمت ........ فقد جهل

#2

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

استخدم دالة Format

وهذا هو الكود

قم بتغيير ColNumber إلى رقم العمود المحتوي على التاريخ

For i = 1 To MSFlexGrid1.Rows + 1
	MSFlexGrid1.TextMatrix(i, ColNumber) = Format(MSFlexGrid1.TextMatrix(i, ColNumber), "yyyy/mm/dd")
Next

والله ولي التوفيق والسداد

تم تعديل هذه المشاركة بواسطة abohamed في 27 ديسمبر 2008 في 09:59

[وسط]

XCM59178.jpg

[/وسط]

[وسط] [وسط]الفريق العربي للبرمجة

[/وسط][/وسط]

#3

أخي الكريم مشكور وجزاك الله كل خير المشكلة اني بقوم بتعبئة الفليكس ليس عن طريق LOOP ولكن عن طريق الكود التالي

SET FLX.DATASOURCE=RS

طبعا بعد فتح ال RS وتوصيلها بالجدول

ما زال الرجل عالما طالما يتحري العلم فان قال علمت ........ فقد جهل

#4

للرفع ضروروووووووووووري

ما زال الرجل عالما طالما يتحري العلم فان قال علمت ........ فقد جهل

#5

إذا بتستخدم الأكسيس قم بوضع الـ Format المناسب في جملة الـ SELECT

"SELECT Format([MYField], 'yyyy/mm/dd') FROM [MYTable]"

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#6

مشكووووووووووور أخي الكريم mrx_ta7ady وجزاك الله كل خير وثواب نفعت معايا الطريقة شكرا مرة أخري وجزاك الله كل يخر

ما زال الرجل عالما طالما يتحري العلم فان قال علمت ........ فقد جهل

#7

أخي الكريم mrx_ta7ady انا اسف للاطالة ولكن عند عمل اضافة وحفظ لبيانات الحقل داخل القاعدة ظهر لي خطأ بسبب الحقل اليك الكود

dim RS as new adodb.recordset
rs.open "SELECT Cust_name,cust_in,format(cust_date,'yyyy/mm/dd') FROM cust",cn, adOpenDynamic, adLockOptimistic
set flx.datasource=rs

زر ادخال جديد وحفظ
cust.addnew
cust!cust_date=DTPicker1.Value
cust!cust_name=-text1.text
cust!cust_in=text2.text
cust.update

عند تنفيذ الكود السابق يظهر لي خطأ ويحدد لي الكود التالي

cust!cust_date=DTPicker1.Value

ما زال الرجل عالما طالما يتحري العلم فان قال علمت ........ فقد جهل

#8

فشل عملية الـ Update لهذا الحقل شيء طبيعي ومتوقع لانه لم يعد الحقل المطلوب

ولا حتى يحمل نفس الإسم في الجملة المصاغة بالاعلى .. ستجد إسمه Exp1000 على ما أعتقد

والحل الآن إحدى إثنين

الأولى فصل الـ Recordset التي تجري عليها حركاتك عن التي تعرض منها

وهذا يتطلب إعادة تحديث الـ Recordset الخاصة بالعرض آليا عند كل إضافة أو تعديل أو حذف

والثانية مثل هذا الكود


set flx.datasource=rs
flx.Cols = flx.Cols - 1
rs.open "SELECT Cust_name,cust_in,format(cust_date,'yyyy/mm/dd'), cust_date FROM cust",cn, adOpenDynamic, adLockOptimistic

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#9

مشكوووووووووووووور أخي الكريم mrx_ta7ady وجزااك الله كل الخير والثواب نفعت معايا الطريقة الثانية للمرة الثانية مشكور وباراك الله فيك

ما زال الرجل عالما طالما يتحري العلم فان قال علمت ........ فقد جهل

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…