[خالد كامل1]

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

لو سمحتو لى طلبين

رقم واحد

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

بحيث يجدد لى الشهر فيه ويقارنه بتاريخ اليوم 

رقم 2

كود اخر يستطيع تحديد الشهر فى datetimepicker  موجود على الفورم

ولكم جزيل الشكر

[princelovelorn]

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

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

كود :

   Private Sub ReadAndCompareMonth()
       Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=YourDatabaseName.accdb" ' استبدل YourDatabaseName.accdb باسم قاعدة البيانات
       Dim tableName As String = "YourTableName" ' استبدل YourTableName باسم الجدول
       Dim dateFieldName As String = "date_" ' استبدل date_ باسم حقل التاريخ

       Using connection As New OleDbConnection(connectionString)
           Using command As New OleDbCommand("SELECT " & dateFieldName & " FROM " & tableName & "", connection)
               Try
                   connection.Open()
                   Dim reader As OleDbDataReader = command.ExecuteReader()

                   While reader.Read()
                       ' قراءة قيمة التاريخ من الحقل
                       Dim dateValue As Date = Convert.ToDateTime(reader(dateFieldName))

                       ' استخراج رقم الشهر من قيمة التاريخ
                       Dim monthFromDatabase As Integer = dateValue.Month

                       ' الحصول على رقم الشهر الحالي
                       Dim currentMonth As Integer = DateTime.Now.Month

                       ' مقارنة الشهر المستخرج بالشهر الحالي
                       If monthFromDatabase = currentMonth Then
                           MsgBox("الشهر في قاعدة البيانات هو نفس الشهر الحالي.")
                           ' أو قم بتنفيذ الإجراءات المطلوبة إذا كان الشهر متطابقًا
                       Else
                           MsgBox("الشهر في قاعدة البيانات يختلف عن الشهر الحالي.")
                           ' أو قم بتنفيذ الإجراءات المطلوبة إذا كان الشهر مختلفًا
                       End If

                       '' يمكنك هنا إضافة كود لتحديث الشهر في قاعدة البيانات إذا لزم الأمر
                       '' مثال:
                       'Dim updateQuery As String = "UPDATE tableName SET dateFieldName = DateAdd('m', 1, dateFieldName) WHERE dateFieldName = " & dateValue.ToString("yyyy-MM-dd")

                       'Using updateCommand As New OleDbCommand(updateQuery, connection)
                       '    updateCommand.ExecuteNonQuery()
                       'End Using
                   End While

                   reader.Close()

               Catch ex As Exception
                   MessageBox.Show("Error: " & ex.Message)
               End Try
           End Using
       End Using
   End Sub

بالنسبة للطلب الثاني 
يمكنك أستخدام الكود التالي

كود :

' الحصول على قيمة التاريخ من أداة DateTimePicker
       Dim selectedDate As Date = DateTimePicker1.Value

       ' استخراج رقم الشهر من قيمة التاريخ
       Dim selectedMonth As Integer = selectedDate.Month

       ' عرض رقم الشهر المحدد (على سبيل المثال)
       MessageBox.Show("الشهر المحدد هو: " & selectedMonth)

       ' أو قم بتنفيذ الإجراءات المطلوبة بناءً على الشهر المحدد

[خالد كامل1]

احسنت والله اخى ساجرب الكود

[خالد كامل1]

لم يزبط معى الكود اخى الكريم

[princelovelorn]

(11-02-25, 01:03 AM)خالد كامل1 كتب : لم يزبط معى الكود اخى الكريم

ممكن تعرض رسالة الخطأ أذا أمكن لمعرفة المشكلة

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

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

[خالد كامل1]

تفضل اخى الكريم مشروع بسيط جدا
\طلبى
'1-عند اختيار item من الكومبوبكس اظهار المتبقى من الليمت الاصلى من المسابق
'MonthlyLimit.text
'2-تشيك  اخر تاريخ مسجل فى قاعده الجدول من حقل LastResetDate فان كان الشهر والسنه من تاريخ اليوم واحد يعمل تشيك هل وصل للحد  المطلوب او لا 
'فان كان لم يصل للحد الليمت يكمل ويجمع القيمه الجديده فى حقل (UsedLimit)
'3(UsedLimit) صفر ويعمل update للقيمه المذكوره عند الحفظ 
' ان ظهرالشهر او السنه اكبر من التاريخ المسحل فيصبح  حقل (UsedLimit) صفر ويضيف القيمه الجديده عند الحفظ
'المطلوب مكتوب فى الفورم ايضا  والف شكر لحضرتك

[princelovelorn]

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

[خالد كامل1]

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

[princelovelorn]

(13-02-25, 02:14 AM)خالد كامل1 كتب : اخى العزيز سواء كان هو المطلوب او لا وجب علي نفسي ان اشكرك على تعبك ومحهودك الوفير معى ومع المنتدى
لك الشكر والعرفان ساجرب وارد عليك

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

[خالد كامل1]

احاول اربطه الان مع المشروع ولو ظهرت مشكله سأخبرك