Listing 3 : Utiliser la méthode ExecuteNonQuery pour exécuter une requête d'action
PRIVATE SUB btnExecuteNonQuery_Click(ByVal sender AS System.Object, ByVal e AS System.EventArgs) Handles btnExecuteNonQuery.Click Dim intCount AS Integer TRY cn.Open() C Open the connection. Be sure to close it. cmd = New SqlCommand() WITH cmd .Connection = cn .CommandText =
« DeleteOrderByID »
.CommandType = CommandType.StoredProcedure
WITH .Parameters
.Add(« @OrderIDToDelete », SqlDbType.Int).Value = txtOrderIDToDelete.Text
.Add(« @ReturnValue », SqlDbType.Int).Direction =
ParameterDirection.ReturnValue
.Add(« @RowsAffected », SqlDbType.Int).Direction =
ParameterDirection.Output
END WITH
intCount = .ExecuteNonQuery C Returns rows affected from server
lblCount.Text = .Parameters(« @RowsAffected »).Value.ToString C OUTPUT
parameter
lblReturnValue.Text = .Parameters(« @ReturnValue »).Value.ToString C
ReturnValue
END WITH
IF intCount = 0 THEN
MsgBox(« Could not find order » & txtOrderIDToDelete.Text & » to delete. »)
ELSE
MsgBox(« Deleted order » & txtOrderIDToDelete.Text)
END IF
CATCH ex AS Exception
MsgBox(ex.ToString)
FINALLY
cn.Close()
END TRY
END SUB
Listing 4 : Supprimer la procédure DeleteOrderByID
ALTER PROCEDURE DeleteOrderByID
(@OrderIDToDelete int,
@RowsAffected int OUTPUT)
AS
DELETE Orders WHERE OrderID = @OrderIDToDelete
SET @RowsAffected = @@ROWCOUNT
IF @RowsAffected = 1
RETURN @RowsAffected
ELSE
RETURN 0
Le TOP 10 des meilleures pratiques, processus et solutions de sécurité pour mettre en œuvre une protection efficace des données et limiter au maximum les répercutions d’une violation de données.
