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
Passez à la cybersécurité proactive, transformez la collecte et l’analyse des logs en un bouclier dynamique contre les cybermenaces. Découvrez comment mettre en place une approche SIEM modulaire, évolutive et accessible, pour anticiper, détecter et réagir efficacement aux attaques.
Continuer avec Exchange Server : quelles conséquences ?
Raccourcis Réseau et Navigateur : le kit de Diagnostic des Professionnels IT
Raccourcis PowerShell et Windows Terminal pour les Professionnels IT
Commandes Windows 11 : le Guide des Outils accessibles avec Win + R
Sécurité : une approche dans la durée avant tout
