Listing 1 : Utiliser la méthode ExecuteScalar pour exécuter une requête
PRIVATE SUB btnInsert_Click(ByVal sender AS System.Object, ByVal e AS
System.EventArgs) Handles btnInsert.Click
Dim intOrderID AS Integer
TRY
cn.Open()
cmd = New SqlCommand("InsertOrder", cn)
WITH cmd
.CommandType = CommandType.StoredProcedure
WITH .Parameters C Build parameters collection and set
parameter values.
.add("@CustomerID",
SqlDbType.NVarChar, 5).Value = « HUNGC »
.add(« @EmployeeID », SqlDbType.Int).Value = 5
.add(« @OrderDate », SqlDbType.DateTime).Value = Now
.add(« @RequiredDate », SqlDbType.DateTime).Value =
DateAdd(DateInterval.Day, 5, Now)
.add(« @ShippedDate », SqlDbType.DateTime).Value = DateAdd(DateInterval.Day,
1, Now)
.add(« @ShipVia », SqlDbType.Int).Value = 1 C Shippers
.add(« @Freight », SqlDbType.Money).Value = 6.5
.add(« @ShipName », SqlDbType.NVarChar, 40).Value = « Fred Vaughn »
.add(« @ShipAddress », SqlDbType.NVarChar, 60).Value = « 11223 113th St. »
.add(« @ShipCity », SqlDbType.NVarChar, 15).Value = « Redmond »
.add(« @ShipRegion », SqlDbType.NVarChar, 15).Value = « WA »
.add(« @ShipPostalCode », SqlDbType.NVarChar, 15).Value = « 98052 »
.add(« @ShipCountry », SqlDbType.NVarChar, 15).Value = « USA »
END WITH
END WITH
C Stored procedure returns new Order ID.
intOrderID = CInt(cmd.ExecuteScalar)
txtOrderIDToDelete.Text = intOrderID.ToString
CATCH ex AS Exception
MsgBox(ex.ToString) C Report errors to developer.
FINALLY
cn.Close() C In any case, close the connection.
END TRY
END SUB
Listing 2 : Procédure stockée qui ajoute une ligne et renvoie un objet
scalaire
ALTER PROCEDURE InsertOrder ( @CustomerID Nchar(5), @EmployeeID int, @OrderDate datetime, @RequiredDate datetime, @ShippedDate datetime, @ShipVia int, @Freight money, @ShipName nvarchar(40), @ShipAddress nvarchar(60), @ShipCity nvarchar(15), @ShipRegion nvarchar(15), @ShipPostalCode nvarchar(10), @ShipCountry nvarchar(15) ) AS INSERT INTO Orders (CustomerID, EmployeeID, OrderDate, RequiredDate, ShippedDate, ShipVia, Freight, ShipName, ShipAddress, ShipCity, ShipRegion, ShipPostalCode, ShipCountry) VALUES (@CustomerID, @EmployeeID, @OrderDate, @RequiredDate, @ShippedDate, @ShipVia, @Freight, @ShipName, @ShipAddress, @ShipCity, @ShipRegion, @ShipPostalCode, @ShipCountry) SELECT SCOPE_IDENTITY() /* To return the new OrderID */ RETURN
Face aux failles de résilience des tenants M365 (configurations, privilèges, sauvegarde). Découvrez 5 piliers pour durcir, segmenter et surveiller vos environnements afin de limiter l’impact des attaques. Prioriser vos chantiers cyber et améliorer la résilience de vos tenants Microsoft 365.
Couchbase lance AI Data Plane pour industrialiser l’IA agentique
Windows 11 : Microsoft généralise le point-in-time restore pour accélérer la remise en service des PC
Computex 2026 : 5 signaux forts à retenir
La chaîne d’approvisionnement, point de rupture récurent du SI
Microsoft Build 2026 : contre-offensive des modèles maison face à OpenAI et Anthropic
