[محمود بكرى]

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

[nabil.1710]

شكرا لكم احبتى لقد بحثت على يوتيوب فيديو به هذا الكود و هو يعمل معى 

     Dim searchdate1 As Date = DateTimePicker1.Value
        Dim searchdate2 As Date = DateTimePicker2.Value


        dt.Clear()

        da = New OleDbDataAdapter("select * from جدول1 where تاريخ > #" & searchdate1.Year & "/" & searchdate1.Month & "/" & searchdate1.Day & "# and تاريخ < #" & searchdate2.Year & "/" & searchdate2.Month & "/" & searchdate2.Day & "#", cn)
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt

[zinom]

[quote pid='90230' dateline='1482393970']



اخى الفاضل zinom ظهرة نفس المشكلة عندى والله انا محتار الاكواد و الامثله كلها سليمه و المشكلة دى عندى فقط

طب ناخذ المو ضوع واحدة تلو الاخرى هل ازدار الاكسس هو المشكلة انا اشتغلت على اكسس 2003 و 2007 و برده نفس المشكلة .

و المرة دى المشكله فى مثال حضرتك عن اللود

اما فى المثال اول المشاركة اللود يعمل و يرفع البيانات على الفورم و البحث هو اللى بيدى الخطاء

اما كود الاستاذ / محمود بكرى  يعمل و لا يعطى اى اخطاء فى البحث ولكن النتائج غير صحيحة

---

هذا مثال لكود الاستاذ / محمود بكرى 

البحث ليس به اى اخطاء برمجية ولكن الخطاء فى النتائج لاحظ الصورة

البحث من 01/01/2016 الى 06/01/2016 ظهر نتيجة اخى لم تكون بين التاريخين 25/01/2016

و المثال فى المرفقات التنفيز  ( اكسس 2003  فيجوال استوديو 2012 )



[/quote]

المثال شغاااااال لكنك لم تنصب اية منصه خاصه بالاكسس 2007
شوف اخي الكريم
اهم شئ
الحمد لله اتحلت مشكلتك كما ذكرت


مثال اخي محمود شغال تمام معي
المثال بعد التعديل ما عدلته ليس علي مثال اخي محمود فمثاله يعمل بالفعل بشكل جيد
ولكني اخذت المثال وطبقته بطريقتي لتكون جنبا الي جنب لما بدءه اخي الاستاذ /محمود بكري ولكن في صوره نصيه
------------------------------ 
لكن طريقتك في ربط القاعده مع البرنامج اسمحي لي غير منظمه  
علي حسب علمي الضئيل هناك طريقتان للاتصال بالقاعده

اما اتصال كود او عن طريق الادوات تمام -

عند استخدام برنامجك قبل تعديله
يقوم يسحب القاعده من مسار البرنامج في ال debug ويلصقها في ملف الموجوده
به الforms
النوافذ الخاصه بالمشروع لذا قمت بالتعديل عليه -ثم تم التعديل علي القاعده علي حقل التاريخ ليصبح نصي
هذه طريقتي في التعامل مع التاريخ والتي اعتقد في صحتها لماذا

لانني لا استخدم في هذه الحاله الاجراءات المخزنه في الاستعلامات من القاعده

ولكن نأخذ البيانات من القاعده في الصوره النصيه كلها ويتم تحويلها في البرنامج كلا الي صيغته
وعند التصديرالي القاعده يتم التحويل مره اخري الي الصوره النصيه

ولكن تابعنا كما تفعل انت وتمت الطريقه بصوره سليمه لان الجريد نصيه

   

   
   

هذه الصور من جهازي للمثال وبالتوفيق وهو يعمل بصوره جيده

[nabil.1710]

(22-12-16, 04:41 PM)محمود بكرى كتب : شوف اخى الغالى المشكلة دى ظهرت عند اخ لى بعد ان اعطيته برنامج حسابات من تصميمي وكانت المشكلة فى تنسيق التاريخ فى الويندوز اعدادات الويندوز التاريخ والوقت
اعمله نظام انجليزى مش عربي وهو يضبط معاك لانك فى الصورة يظهر التاريخ بالعربي وهو غير متكامل مع اداة التاريخ

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

الكود و المثال فى المرفقات

     Dim searchdate1 As Date = DateTimePicker1.Value
        Dim searchdate2 As Date = DateTimePicker2.Value


        dt.Clear()

        da = New OleDbDataAdapter("select * from جدول1 where تاريخ > #" & searchdate1.Year & "/" & searchdate1.Month & "/" & searchdate1.Day & "# and تاريخ < #" & searchdate2.Year & "/" & searchdate2.Month & "/" & searchdate2.Day & "#", cn)
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt

[nabil.1710]

السلام عليكم اخوانى و اساتذتنا اولا شكرا لكم جميعا و جزاكم الله خيرا 

و اسف على ثقل طلباتى فانا لدية فكرة اقوم بتنفيزها خطوة خطوة و كل خطوة لابد من فهمها قبل تنفيزها 

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


الكود 

و المثال فى المرفقات

     Dim searchdate1 As Date = DateTimePicker1.Value
        Dim searchdate2 As Date = DateTimePicker2.Value


        dt.Clear()

        da = New OleDbDataAdapter("select * from جدول1 where تاريخ > #" & searchdate1.Year & "/" & searchdate1.Month & "/" & searchdate1.Day & "# and تاريخ < #" & searchdate2.Year & "/" & searchdate2.Month & "/" & searchdate2.Day & "#", cn)
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt

[sendbad100]

ربما تجد الحل في هذه المشاركة 
رغم انها بفجوال بيسك6  بس اعتقد الفكرة نفسها 

http://vb4arb.com/vb/thread-18059-page-2.html

[محمود بكرى]

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

  searchdate.rar (الحجم : 90.09 ك ب / التحميلات : 55)

[nabil.1710]

(27-12-16, 04:47 AM)محمود بكرى كتب : السلام عليكم جرب المرفق اخى انا غيرت عشان اللغة بس محتاج ان تجربه بطريقتى حتى نحل مشكلة التاريخ مع تنسيق الويندوز جرب المرفق ورد واخبرنى النتيجة 

السلام  عليكم  اخى  الحبيب نعم  المثال يعمل جيدا و  جزاكم  الله خيرا 

ولكن لدي  سؤال انا  لاحظت انك  قمت بانشاء جدول جديد  فى قاعدة البيانات اسمه tb_1 و الحقول فيه باللغة  الانجليزية فهل المشكلة كانت فى  لغة انشاء الجدول .

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

وهل يجد طريقة لعرض بيانات  الداتا  جريد فيو على تقرير كريستال ريبور لان طريقتى فى عرض البيانات على  التقرير تكون من داتا سورس  و داتا سيت

وشكرا اخى الحبيب على مجهوداتك و شكرا  لجميع من شاركو فى  هذا الموضوع

[محمود بكرى]

اللغة العربية كثيرا ما تسبب المشاكل داخل البرامج وتخمينك صحيح لم استطيع التعامل مع الجدول باللغة العربية ولاكن المشكله اساسها فى المسافة فى اسم العميل المفترض فى الفواصل تضع _ كالاتى أسم_العميل وتلاحظ اسماء الحقول فى الداتا جريد اضع نفس العلامة فى الفواصل
يمكنك عمل تقرير من الجدول يمكننى ان اضيفه لك على الكريستال ريبورت وارفعه
بالتوفيق

[مساعدة]

السلام عليكم

جرب التعديل التالي في المرفق الذي بداية الموضوع
فهو لا يتأثر بتنسيق النظام

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dt.Clear()

        da = New OleDbDataAdapter("select * from جدول1 where تاريخ between @d1 and @d2 ", cn)
        da.SelectCommand.Parameters.AddWithValue("@d1", DateTimePicker1.Value.Date)
        da.SelectCommand.Parameters.AddWithValue("@d2", DateTimePicker2.Value.Date)
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt

    End Sub