[rdxdz]

كود :

Dim connectionString As String = "Your_Connection_String_Here"
Dim query As String = "UPDATE Employees SET VacationDays = @VacationDays WHERE EmployeeID = @EmployeeID"

Using connection As New SqlConnection(connectionString)
   Using command As New SqlCommand(query, connection)
       command.Parameters.AddWithValue("@VacationDays", newVacationDays)
       command.Parameters.AddWithValue("@EmployeeID", employeeId)

       connection.Open()
       command.ExecuteNonQuery()
   End Using
End Using