كيف يمكنني ايجاد بيانات بين تاريخين محددين

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

فربما استفاد من هذه الفكرة آخرون الله يعلمهم ..

أرجو أن يكون هناك صيغة للسؤال ليتم الرد عليه ..

الاخ الغالي scooool

هل يوجد خطأ ما ارتكبته اثناء السؤال ؟

علي العموم السؤال مرة أخري

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

يا اخى محمد فؤاد الاخ Scoool يقصد ان تحل المشكله على المنتدى و ليس على الخاص و على العموم كود جملة الاستعلام معيا تفضل

"SELECT * FROM Report WHERE Date between #" & Format(DTPicker2.Value, "dd/mm/yyyy") & "#and #" & Format(DTPicker3.Value, "dd/mm/yyyy") & "#"

أخي الغالي Mostafa Alfa

الله يبارك فيك

لكن ممكن تعمل التعديلات اللازمة علي المرفق لانها ما ظبتط معايا لان جملتك تحتوي علي DTPicker3 وانا لا استخدم DTPicker3 في المثال المرفق . . .

والله يا أخي أكون مشكور لو تفضلت وعدلت علي المثال

شكراً لك مرة أخري

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

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

الله يعطيكم العافية شباب..

بس ان شاء الله ما تفهموني غلط ..

انا قصدي انك لما تكتب سؤالك وتشرحة حيستفيد اللي ثعمل بحث عالمنتدى ولو من قوقل ،، راح يحصل الاجابة مباشرة ..

اما طريقة حل المشروع ورفعه فهي لا توضح فين كانت المشكلة أصلا ..

أما بالنسبة للسؤال :

أنا شفت المشروع ولاحظت انك ما استخدمت DateTimePicker أو أي اداة للتاريخ ،، ما تعتقد انه هذا راح يسبب مشكلة عند ادخال تاريخ خاطئ ، خصوصا أن مشاكل التاريخ لا تنتهي ..

أما اذا كان ولا بد ، فممكن تستخدم نفس جملة Select اللي اعطاك هي استاذ Mostafa مع تغيير الكنترول الى TextBox1

الله يعيطيك ألف عافية يا أخي الغالي Scooool

فعلاً هذا هو المطلوب أن يتم إخال التاريخ بين مربعي نص كما هو موضح بالمرفق

الاخ الغالي MostafaAlpha

كود الداتا بيز

261177

ويظهر ان ما عندك برامج لكشف الباص وورد لقاعدة البيانات .. لذلك أرجوك أقبل مني هذا البرنامج الذي يكشف رقم سر قاعده بيانات أكسس

منتظر التعديل علي المرفق

access.rar

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

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

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

انا اسف على التعديل عليك بس انا عاوز انصحك فقط لوجه الله عزا وجل

ابدا شرح التعديل

اولا انا عملت موديل اعلانت فيه على هذه الكائنات على مستوى المشروع

Public Cn As New OleDb.OleDbConnection

Public Cmd As New OleDb.OleDbCommand

Public Ad As New OleDb.OleDbDataAdapter

Public DS As New DataSet

Public dt As New DataTable

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

Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Swiss.mdb;Persist Security Info=False"

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

Cn.Open()

وبعدين كلمت الكائن Command و قلت له انتا يالى اسمك Commnad اتصل مع Cn من خلال هذا الكود طبعا Command لازم يسمع الكلام

و الراجل الصراحه متراددش

Cmd.Connection = Cn

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

Cmd.CommandType = CommandType.Text

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

قال: اوز اه تانى

قلت له : روح هات البيانات الموجوده فى الجدول Tbl_Tracking عن طريق هذا الكود

Cmd.CommandText = "Select * FROM Tbl_Tracking"

ام صحبنا التانى DataAdapter زعل بسئله ليه قال على شئ انتا عملت مهمه Command وانا لا قلت ولا تزعل نفسك يا عم انتا كمان اتصل مع Command قال ازى قلت منفذ الكود ده وانتا حتتصل معاه

Ad.SelectCommand = Cmd

ام الرجال صحبنا تانى زعل الهوا Dataset قال يعنى انتا عمال تديهم مهام وانا لا قلت ولا تزعل نفسك ياعم انتا يا Dataset و DataAdaper حتنفذو مع بعض عملية الملئ قال Dataset طيب وانا وظيفتى اه قلت له انتا حتاخد بيانات الجدول Tbl_Tracking من اخوك DataAdaper

قال ازى قلت اكتب الكود ده

Ad.Fill(DS, "Tbl_Tracking")

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

DataGridView1.DataSource = DS.Tables("Tbl_Tracking")

وبعدين رجعت اكلم استاذ Command تانى وقلت له هات البيانات فى الجدول عن طريق تاريخين موجودين جوا مربع النص الاول و الثانى و متنساش شغل اخواتك معاك DataAdaper و Dataset و DataGridView قال ماشئ بس لعبة التاريخ ده تتعمل ازى قلت له عن طريق الكود ده

Cmd.CommandText = "Select * FROM Tbl_Tracking WHERE Issue_Date between #" & TextBox1.Text & "# and #" & TextBox2.Text & "#"

Ad.SelectCommand = Cmd

DS.Clear()

Ad.Fill(DS, "Tbl_Tracking")

DataGridView1.DataSource = DS.Tables("Tbl_Tracking")

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

قلت اندهى على رئيسك و محركك قالت ازى قلت له كلميه فى الفضاء بالكود ده

Imports CrystalDecisions.CrystalReports.Engine

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

اول انا عوزك تخزنى التقرير فى الذاكره قالت ازى قالت له انفذى الكود ده

Dim Report As New MyReport11

و مصدر بياناتك من DS قالت ازى

Report.SetDataSource(DS)

قالت وبعدين اعرض بيانات منبن قلت لها اخر شئ هو انك تتصلى مع المتغير Report قالت ازى قلت لها

CrystalReportViewer1.ReportSource = Report

اه ابل منسا ى الفورم الاوله استخدمت العباره Imports System.Data.OleDb على شئ اتصل مع قاعدة بيانات من نوع اكسس

وبكده تكون خلصه الحدوته حلوه ولا ملتوته

هههههههههههههههههههههههههههههه

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

وكل الحدوته ده مرفقه

open_report.rar

هل من رد

اقتباس

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

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

السلام عليكم ...

-----------

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

وانا من الذين يدعمون هذا المتجه ... ولكن بعد معرفة كيف جاء ....

حاول الربط ب Table واحد على الاقل وانظر ماذا يفعل الدوت نت ....

وما الاشياء التي ضافها ... ستجد وستتعلم اشياء قد نجهلها ... في الدوت قد أضيفت واشياؤ جديدة ...

أنا أقول لك أخي الكريم ... وللقارئين طبعا ...

والسلام خير ختام

أخي الغالي Mostafa Alfa

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

أولاً أحب أن أعتذر لك عن تأخري الشديد في الرد وذلك لظروف عملي وأيضاً دراستي ... أعذرني

مثالك رائع جداً وشرحك وافي والله ما قصرت لحظة في المطلوب

أيضاً بشكرك علي نصيحتك هذه وإن شاء الله هحاول أعمل بيها علي قدر المستطاع لاني مازلت مبتديء في عالم الدوت نت

مرة أخري أشكرك كل الشكر علي مساعدتك لي

أخي الغالي فلسطيننا

شكراً علي رأيك ومرورك الطيب جزاك الله خيرا وطبعاً رأيك والله صحيح ومأخوذ في الاعتبار