[Kamil]

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

نحتاج لتحميل البيانات من قاعدة البيانات إلى DataGridView. لنفترض أن لديك جدول المتابعة باسم Attendance وجدول الأسابيع باسم Weeks وجدول الموظفين باسم Employees.

الكود لتحميل البيانات:

PHP كود :

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadData()
    End Sub

    Private Sub LoadData()
        Dim connectionString As String = "your_connection_string_here"
        Dim query As String = "SELECT AttendanceID, WeekNumber, EmployeeName, SundayPresent, SundayAbsent, MondayPresent, MondayAbsent, TuesdayPresent, TuesdayAbsent, WednesdayPresent, WednesdayAbsent, ThursdayPresent, ThursdayAbsent FROM Attendance"

        Using conn As New SqlConnection(connectionString)
            Dim da As New SqlDataAdapter(query, conn)
            Dim dt As New DataTable()
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End Using
    End Sub
End Class 


حفظ التعديلات
نحتاج إلى جمع البيانات من DataGridView وتحديثها في قاعدة البيانات عند النقر على زر الحفظ.

الكود لحفظ :

PHP كود :

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Dim connectionString As String = "your_connection_string_here"
        Using conn As New SqlConnection(connectionString)
            conn.Open()

            For Each row As DataGridViewRow In DataGridView1.Rows
                If row.IsNewRow Then Continue For

                Dim attendanceID As Integer = Convert.ToInt32(row.Cells("AttendanceID").Value)
                Dim weekNumber As Integer = Convert.ToInt32(row.Cells("WeekNumber").Value)
                Dim employeeName As String = row.Cells("EmployeeName").Value.ToString()
                Dim sundayPresent As Boolean = Convert.ToBoolean(row.Cells("SundayPresent").Value)
                Dim sundayAbsent As Boolean = Convert.ToBoolean(row.Cells("SundayAbsent").Value)
                Dim mondayPresent As Boolean = Convert.ToBoolean(row.Cells("MondayPresent").Value)
                Dim mondayAbsent As Boolean = Convert.ToBoolean(row.Cells("MondayAbsent").Value)
                Dim tuesdayPresent As Boolean = Convert.ToBoolean(row.Cells("TuesdayPresent").Value)
                Dim tuesdayAbsent As Boolean = Convert.ToBoolean(row.Cells("TuesdayAbsent").Value)
                Dim wednesdayPresent As Boolean = Convert.ToBoolean(row.Cells("WednesdayPresent").Value)
                Dim wednesdayAbsent As Boolean = Convert.ToBoolean(row.Cells("WednesdayAbsent").Value)
                Dim thursdayPresent As Boolean = Convert.ToBoolean(row.Cells("ThursdayPresent").Value)
                Dim thursdayAbsent As Boolean = Convert.ToBoolean(row.Cells("ThursdayAbsent").Value)

                Dim updateQuery As String = "UPDATE Attendance SET SundayPresent = @SundayPresent, SundayAbsent = @SundayAbsent, MondayPresent = @MondayPresent, MondayAbsent = @MondayAbsent, TuesdayPresent = @TuesdayPresent, TuesdayAbsent = @TuesdayAbsent, WednesdayPresent = @WednesdayPresent, WednesdayAbsent = @WednesdayAbsent, ThursdayPresent = @ThursdayPresent, ThursdayAbsent = @ThursdayAbsent WHERE AttendanceID = @AttendanceID"

                Using cmd As New SqlCommand(updateQuery, conn)
                    cmd.Parameters.AddWithValue("@SundayPresent", sundayPresent)
                    cmd.Parameters.AddWithValue("@SundayAbsent", sundayAbsent)
                    cmd.Parameters.AddWithValue("@MondayPresent", mondayPresent)
                    cmd.Parameters.AddWithValue("@MondayAbsent", mondayAbsent)
                    cmd.Parameters.AddWithValue("@TuesdayPresent", tuesdayPresent)
                    cmd.Parameters.AddWithValue("@TuesdayAbsent", tuesdayAbsent)
                    cmd.Parameters.AddWithValue("@WednesdayPresent", wednesdayPresent)
                    cmd.Parameters.AddWithValue("@WednesdayAbsent", wednesdayAbsent)
                    cmd.Parameters.AddWithValue("@ThursdayPresent", thursdayPresent)
                    cmd.Parameters.AddWithValue("@ThursdayAbsent", thursdayAbsent)
                    cmd.Parameters.AddWithValue("@AttendanceID", attendanceID)

                    cmd.ExecuteNonQuery()
                End Using
            Next
        End Using

        MessageBox.Show("Changes saved successfully.")
    End Sub
End Class