1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
...
-- Jinitialise mes parameter --
Dim TraCode As String
Dim Param_TraNom As New SqlParameter("@TraNom", "") : cmd.Parameters.Add(Param_TraNom)
Dim Param_TraCode As New SqlParameter("@TraCode", "") : cmd.Parameters.Add(Param_TraCode)
Dim Param_FamCode As New SqlParameter("@FamCode", "") : cmd.Parameters.Add(Param_FamCode)
Dim Param_CTUQuantite As New SqlParameter("@CTUQuantite", DBNull.Value) : cmd.Parameters.Add(Param_CTUQuantite)
Dim Param_CTUTaux As New SqlParameter("@CTUTaux", DBNull.Value) : cmd.Parameters.Add(Param_CTUTaux)
Dim Param_CTUMontant As New SqlParameter("@CTUMontant", DBNull.Value) : cmd.Parameters.Add(Param_CTUMontant)
Dim Param_TravauxNo As New SqlParameter("@TravauxNo", "") : cmd.Parameters.Add(Param_TravauxNo)
-- Je boucle dans mes rows --
For i As Integer = 0 To Grid_NatTravaux.Rows.Count - 1
Dim TraNom As Label = TryCast(Grid_NatTravaux.Rows(i).Cells(0).FindControl("lbl_TraNom"), Label)
...
Dim FamCode As HiddenField = TryCast(Grid_NatTravaux.Rows(i).Cells(0).FindControl("Htxt_FamCode"), HiddenField)
Dim TravauxNo As HiddenField = TryCast(Grid_NatTravaux.Rows(i).Cells(0).FindControl("Htxt_TravauxNo"), HiddenField)
Dim CTUQuantite As TextBox = TryCast(Grid_NatTravaux.Rows(i).Cells(1).FindControl("txt_CTUQuantite"), TextBox)
Dim CTUTaux As TextBox = TryCast(Grid_NatTravaux.Rows(i).Cells(3).FindControl("txt_CTUTaux"), TextBox)
Dim CTUMontant As TextBox = TryCast(Grid_NatTravaux.Rows(i).Cells(4).FindControl("txt_Montant"), TextBox)
cmd.CommandType = CommandType.Text
cmd.CommandText = "... Ma requete est ici ..."
cmd.Connection = conn
Param_TraCode.SqlValue = TraCode
Param_FamCode.SqlValue = FamCode.Value
Param_TravauxNo.SqlValue = TravauxNo.Value
Param_CTUQuantite.SqlValue = CTUQuantite.Text
Param_CTUTaux.SqlValue = CTUTaux.Text
Param_CTUMontant.SqlValue = CTUMontant.Text
.... |
Partager