Dim staffid = TextBox1.Text
Dim conn As New SqlConnection
conn.ConnectionString = SqlDataSource1.ConnectionString
Dim command1 As New SqlCommand("SELECT StaffDetails.StaffID, SUM(HolidayRequests.RequestTotalDays) AS Expr1 FROM HolidayRequests INNER JOIN StaffDetails ON HolidayRequests.Username = StaffDetails.UserName WHERE (StaffDetails.StaffID = staffID) GROUP BY StaffDetails.StaffID, HolidayRequests.ApprovalStatus HAVING (HolidayRequests.ApprovalStatus = N'approved')", conn)
conn.Open()
Dim rdr As SqlDataReader
rdr = command1.ExecuteReader
Dim UpdateQuery As String
While (rdr.Read())
UpdateQuery = "UPDATE HolidayEntitlement set Holiday_Taken = @Expr1"
command1.Parameters.AddWithValue("@Expr1", rdr("Expr1").ToString())
'run update query
command1.CommandText = UpdateQuery
command1.ExecuteNonQuery()
conn.close()
End While
It stops at command1.ExecuteNonQuery()
I've tried changing the where the connections/commands open and close and had had no success
Any Suggestions

New Topic/Question
Reply


MultiQuote






|