[سؤال] كود قاعدة بيانات visual basic 2010 express

PHP كود :

CREATE TABLE Employees (
    EmployeeID INT PRIMARY KEY,
    EmployeeName VARCHAR(100),
    JobType VARCHAR(50),
    Notes TEXT
);

CREATE TABLE Loans (
    LoanID INT PRIMARY KEY,
    EmployeeID INT,
    LoanAmount DECIMAL(10, 2),
    LoanDate DATE,
    FOREIGN KEY (EmployeeID) REFERENCES Employees(EmployeeID)
);

PHP كود :

Public Sub GetEmployeeLoanSummary(employeeName As String, month As Integer, year As Integer)
    ' الاتصال بقاعدة البيانات
    Dim connectionString As String = "your_connection_string_here"
    Dim query As String = "SELECT E.EmployeeName, SUM(L.LoanAmount) AS TotalLoans, GROUP_CONCAT(L.LoanDate) AS LoanDates " & _
                          "FROM Employees E " & _
                          "INNER JOIN Loans L ON E.EmployeeID = L.EmployeeID " & _
                          "WHERE E.EmployeeName = @EmployeeName AND MONTH(L.LoanDate) = @Month AND YEAR(L.LoanDate) = @Year " & _
                          "GROUP BY E.EmployeeName"

    Using conn As New SqlConnection(connectionString)
        Using cmd As New SqlCommand(query, conn)
            ' إضافة المعلمات
            cmd.Parameters.AddWithValue("@EmployeeName", employeeName)
            cmd.Parameters.AddWithValue("@Month", month)
            cmd.Parameters.AddWithValue("@Year", year)

            ' ملء DataTable بالنتائج
            Dim dt As New DataTable()
            Using da As New SqlDataAdapter(cmd)
                da.Fill(dt)
            End Using

            ' التحقق من وجود نتائج
            If dt.Rows.Count > 0 Then
                Dim totalLoans As String = dt.Rows(0)("TotalLoans").ToString()
                Dim loanDates As String = dt.Rows(0)("LoanDates").ToString()

                ' عرض النتيجة في MessageBox
                MessageBox.Show("Total Loans: " & totalLoans & vbCrLf & "Loan Dates: " & loanDates, "Loan Summary", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                ' عرض رسالة إذا لم توجد سلف للموظف في الشهر المحدد
                MessageBox.Show("No loans found for this employee in the selected month.", "No Data", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End Using
    End Using
End Sub