[سؤال] محصل الشيكات - نسخة قابلة للطباعة

PHP كود :
Imports System.Data.SqlClient

Public Class Form1
    Private Sub RetrieveCheques()
        ' استبدال اسم الخادم واسم قاعدة البيانات ومعلومات الولوج
        Dim connectionString As String = "Data Source=اسم_الخادم;Initial Catalog=اسم_قاعدة_البيانات;Integrated Security=True"

        ' استبدال الاستعلام وحقول الجدول وتاريخ التحصيل
        Dim query As String = "SELECT * FROM اسم_الجدول WHERE DATEDIFF(day, GETDATE(), تاريخ_التحصيل) <= 5;"

        ' إعداد اتصال قاعدة البيانات
        Using connection As New SqlConnection(connectionString)
            connection.Open()

            ' إعداد استعلام SQL
            Using command As New SqlCommand(query, connection)
                ' إنشاء جدول بيانات لتخزين النتائج
                Dim dataTable As New DataTable()

                ' استخدام محدد البيانات لتحميل البيانات من قاعدة البيانات
                Using adapter As New SqlDataAdapter(command)
                    adapter.Fill(dataTable)
                End Using

                ' في هذه النقطة، يمكنك استخدام البيانات المخزنة في DataTable كما تشاء
                ' على سبيل المثال، يمكنك عرضها في عنصر DataGridView:
                DataGridView1.DataSource = dataTable
            End Using
        End Using
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' استدعاء الدالة عند النقر على الزر (يمكنك استدعاءها بطرق أخرى أيضًا)
        RetrieveCheques()
    End Sub
End Class