منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
(تم الحل)مشكلة في الاستعلام بين تاريخين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : (تم الحل)مشكلة في الاستعلام بين تاريخين (/showthread.php?tid=14270)

الصفحات: 1 2

RE: مشكلة في الاستعلام بين تاريخين - awidan76 - 01-01-16

اخواني الاعزاء 
تحية طيبة للاخوه اعضاء وزوار هذا المنتدي الرائع عامة والي الاخوة التالية اسمائهم خاصة 
- Ashraf Elafif
- sami2015
-myalsailamy
- sniper.ps
-Ahmed_Mansoor
اما بعد 
اخواني لقد تم حل المشكلة كما قال الاستاذAshraf Elafif والاستاذ myalsailamy ان المشكلة في التنسيق 

واتضح لي ان ان تنسيق تاريخ الويندوز هو السبب  
وقد تم حل المشكلة اخواني 
شكرا جزيلا لكم وجزاكم الله خير تعبتكم معاي 

الان من لديه نفس المشكلة ساضع الحل الذي فعلته لبرنامجي بالصورة وبكل وضوح 
تابع الصور التالية : 

[attachment=8913]

[attachment=8914]

[attachment=8915]

[attachment=8916]

[attachment=8917]

وهذه نتيجه البحث : 
[attachment=8918]
تم حل المشكلة

RE: (تم الحل)مشكلة في الاستعلام بين تاريخين - gadr - 04-01-16

هذ الحل يناسبك فى حالة البرنامج يعمل على جهازك فقط
ماذ لو البرنامج قمة بتشغيله على جهاز اخر هل تقول للمستخدم غير صيغة التاريخ

RE: (تم الحل)مشكلة في الاستعلام بين تاريخين - awidan76 - 05-01-16

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

RE: (تم الحل)مشكلة في الاستعلام بين تاريخين - Ashraf Elafify - 06-01-16

بالنسبة لسؤال الاخ / gadr

نعم يتم تدريب العميل على ضبط صيغة التاريخ على جهاز العميل.

RE: (تم الحل)مشكلة في الاستعلام بين تاريخين - awidan76 - 13-01-18

تم حل مشكلة التاريخ بدون تعديل تاريج جهاز العميل 



كود :
Private Sub Command1_Click()

Dim Too As Date
Dim from As Date
from = Format(DTPicker1, "mm/dd/yyyy")
Too = Format(DTPicker2, "mm/dd/yyyy")

Set RS = New ADODB.Recordset


RS.Open "Select * FROM TableName Where Date Field BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# ", Db, adOpenStatic, adLockOptimistic


Set DataGrid1.DataSource = RS
End Sub