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