Only One Of My SQL Delete Statement Are Firing

Hey guys...

I am trying to tidy up my code a bit and have one SQL command (Sub class) to call when needing to insert, update, delete and select.

I have got one class I am testing with that delete from a table support_ticket and then calls RunSQL() again to delete the corresponding tickets in Support_Reply.

however it only seems to want to delete from one table at a time...as i commented out the first sql and it worked and the second fires...but if the first one is active it doesnt fire.

Do anyone on the forum know why this has happened?

 

Sub DeleteUserTicket(sender as Object, e as EventArgs)

Dim strSQL1 = "DELETE FROM Support_Ticket WHERE (TicketID = " & txtticketID & ")"

RunSQL(strSQL1)

strSQL1 = "DELETE FROM Support_Reply WHERE (TicketID = " & txtticketID & ")"

RunSQL(strSQL1)

End Sub

'One class to run the sql statements for the entire page this will reduce in repetitve code as well as reduce code size

Sub RunSQL(strSQL)

Dim objCmd As SqlCommand

Dim sqlConn = New SqlConnection(strConn)

objCmd = New SQLCommand(strSQL, sqlConn)

objCmd.Connection.Open()

'Check that the rows can be deleted if not then return a error.

Try



objCmd.ExecuteNonQuery()

response.redirect("ticketsystemtest2.aspx")

Message.InnerHtml = "<b>Ticket " & txtticketID & " Closed</b> <br/>"

Catch ex As SqlException

If ex.Number = 2627 Then

Message.InnerHtml = "ERROR: A record already exists with " _

& "the same primary key"

Else



Message.InnerHtml = "ERROR: Could not update record, please " _

& "ensure the fields are correctly filled out <br>" & ex.Message & " " & ex.Number

Message.Style("color") = "red"

End If

End Try

objCmd.Connection.Close()

sqlConn = nothing

objcmd = nothing

End Sub

 

cheers