> Tech > Listings 1 & 2

Listings 1 & 2

Tech - Par iTPro - 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 gratuitement cette ressource

IBMi et Cloud : Table ronde Digitale

IBMi et Cloud : Table ronde Digitale

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.

Tech - Par iTPro - Publié le 24 juin 2010