> Tech > Listings 1 & 2

Listings 1 & 2

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

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",

Listings 1 & 2

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

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

A lire aussi sur le site

Revue Smart DSI

La Revue du Décideur IT