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
Ce guide facilitera l’adoption d’une Threat Intelligence - renseignement sur les cybermenaces, cyberintelligence - adaptée au "contexte", il fournit des indicateurs de performance clés (KPI) pour progresser d' une posture défensive vers une approche centrée sur l’anticipation stratégique
Moderniser le développement logiciel : de la fragmentation à l’intégration
Analyse Patch Tuesday Mars 2026
Une nouvelle ère de la modernisation du mainframe
Communes, entreprises ? Non, face au RGAA 5, l’IA seule ne rendra pas vos sites accessibles
DevX Summit EMEA : les développeurs au cœur de la révolution de l’IA
