Hi,
Yes.
Dim action As String = ""
Dim id As String = ""
Dim myConnString As String = "" 'TODO: Please change it to your connection string
Dim myConnection As New OleDbConnection(myConnString)
myConnection.Open()
If action = "delete" Then
Dim upsql As String = "SELECT * FROM users WHERE id=" & id
Dim myCommand As New OleDbCommand(upsql, myConnection)
Dim myReader As OleDbDataReader = myCommand.ExecuteReader()
myReader.Read()
If myReader.HasRows Then
Dim oldref As String
oldref = myReader.GetInt32(0).ToString()
Dim usql As String = "UPDATE users SET refs=refs-1 WHERE id=" & oldref
myCommand.CommandText = usql
myCommand.ExecuteNonQuery()
End If
myReader.Close()
Dim sql As String = "DELETE FROM users WHERE id=" & id
myCommand.CommandText = sql
myCommand.ExecuteNonQuery()
Response.Write("$id deleted!")
End If
myConnection.Close()