منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - هل ممكن احد فئه حسب سنوات من تاريخ معين..

اسعد الله اوقاتكم احبتي ..

استفسار اعزائي ..
معنا خانة خاصة ل تسجيل تاريخ دخول الموظف الخدمه .. يعني تاريخ بداية عقده ..

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

طريقة الاستعلام ..

التكس بوكس هذا مطلوب منه اني اكتب داخله مثلا
3
الرقم ثالثه هذا يعني 3 سنوات .. هذا كود يروح يفحص لي حقل تاريخ عقود الموظفين ويعرض لي كل الي وصل عقدهم مدته 3 سنوات .. من تاريخ البدايه الي سبق وسجلانه اعلاه .. ويعرضهم لي ف داتا قريد ..وكانه يعمل لي تصفيه يعني فكرته ..

اتمنى الفكره تكون واضحه هل فيه كود يعمل لي هذا الحركه?

الا يوجد حل ي اخوان?

كود :

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

   Using da As New OleDbDataAdapter("SELECT * FROM [Employee] WHERE ([JobDate]>=@jd) ", con)

       da.SelectCommand.Parameters.AddWithValue("@jd", DateTimePicker1.Value.AddYears(-Val(TextBox1.Text)).Date)

       Dim dt As New DataTable

       da.Fill(dt)

       dgvEmployee.DataSource = dt

   End Using

End Sub

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

هذا صورة جدول البيانات فيه حقل اسم موظف وتاريخ دخوله للخدمه ..

وهذا صورة المشروع قبل التشغيل اضفت الادوات الي انته مسونها فالكود الثالث ..

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

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

مدري اذا الفكره واضحه

المشروع مرفق كامل في المرفقات

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Using da As New OleDbDataAdapter("SELECT * FROM [Employees] WHERE (DateDiff('yyyy', [JobDate], NOW) >=@jd) ", con)

        da.SelectCommand.Parameters.AddWithValue("@jd", Val(TextBox1.Text))

        Dim dt As New DataTable

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Using

End Sub

التاريخ في قاعدة البيانات مبالغ فيه، عدله بشكل مناسب، انا جربتها على (118)سنة وظهرت النتيجة.

عذرا هذه آخر مشاركة لي لأسباب خاصة،
لكن لأنك طلبتني شخصيا عند وشك مغادرتي فلم أستطع تجاهلك،
وداعاً.

ما عليك زود ي شيخ وكل الاخوان ايضا ما عليهم زود والله انكم مبدعين عسى فيوم نوصل ل مكانتكم ..

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

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

Marwan9990

Marwan9990

23306

Marwan9990

23306

Marwan9990