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
Comment faire évoluer son patrimoine IBMi en le rendant Cloud compatible ? Comment capitaliser sur des bases saines pour un avenir serein ? Faites le point et partagez l'expertise Hardis Group et IBM aux côtés de Florence Devambez, DSI d'Albingia.
