[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)

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