> Tech > Listings 3 & 4

Listings 3 & 4

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

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 =

Listings 3 & 4

« 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

Téléchargez cette ressource

État des lieux de la réponse à incident de cybersécurité

État des lieux de la réponse à incident de cybersécurité

Les experts de Palo Alto Networks, Unit 42 et Forrester Research livrent dans ce webinaire exclusif leurs éclairages et stratégies en matière de réponses aux incidents. Bénéficiez d'un panorama complet du paysage actuel de la réponse aux incidents et de sa relation avec la continuité de l'activité, des défis auxquels font face les entreprises et des tendances majeures qui modèlent ce domaine. Un état des lieux précieux pour les décideurs et professionnels IT.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010