اريد كود لو سمحتم - نسخة قابلة للطباعة

كود :

   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)



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