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
| 'Préparation des variables pour Update"
NumUnit9 = "0755"
Dim Test
Dim Test2
//'Test = 125.222
CoupleVis1 = 12.5
CoupleVis2 = 13
CoupleVis3 = 12
CoupleVis4 = 15
AngVis1 = 3500
AngVis2 = 3800
AngVis3 = 3200
AngVis4 = 3400
'Update des variables'
strRequest = "Update[DATA_TRACA].[dbo].[Tracabilite] Set Couple_Vis_1 = '" _
& CoupleVis1 & "', Couple_Vis_2 = '" & CoupleVis2 & "', Couple_Vis_3 = '" & CoupleVis3 & "', Couple_Vis_4 = '" _
& CoupleVis4 & "', Angle_Vis_1 = '" & AngVis1 & "', Angle_Vis_2 = '" & AngVis2 & "', Angle_Vis_3 = '" & AngVis3 & "', Angle_Vis_4 = '"_
& AngVis4 & "' Where Num_Unit= '"& NumUnit9 &"' "
obj.Execute strRequest
End Function |
Partager