Discussion :

[Danheim]

Salut à tous,

Je suis nouveau sur le forum et j'aurai besoin de votre aide !

Je cherche à envoyé le contenu d'une variable dans un tableau SQL. Je ne rencontre aucun problème avec celles de type INT ou STRING mais dès qu'il s'agit d'un DOUBLE ou Float ça ne marche plus.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour la variable CoupleVis1 ça ne marche pas, mais pour la variable CoupleVis2 pas de problème.

D'avance merci pour vos réponses !

[ProgElecT]

Salut

Il faudrait vérifier le type de tes champs de la BDs que tu veux remplir avec des Double ou Float
Attention, SQL attend une virgule comme séparateur décimal non pas un point.

Motif de l'édit:

Attention, SQL attend une virgule comme séparateur décimal non pas un point.

C'est l'inverse
SQL attend une point comme séparateur décimal non pas un virgule.

[Danheim]

Je cherche à remplir une colonne en Float ou numeric(p,s).
Concernant le point je n'ai pas le choix car sinon Vbscript me renvoie une erreur.
Ce qui me paraît très bizarre c'est que pour que ça marche je dois inscrire les valeurs entre guillemet comme ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CoupleVis1 = "230.35"

[ProgElecT]

C'est curieux, as tu essayé d'entrer un int dans cette même colonne ? ou même un string, rien que pour voir.
As tu peux vérifier le type des champs de la BD, apparemment comme tu entour la valeur à leur donner avec des ", ils doivent être de type string.
Ou alors la rédaction de ta requête est mal formulée, essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
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

[Danheim]

Salut,

Alors quand j'envoie un Int ou String ça fonctionne. Par contre dès que je met une virgule (un point en Vbs), ça ne marche plus.
J'ai essayé de modifier mon script comme tu me l'as conseillé et ça marche si je laisse le contenu de ma variable entre guillemet sinon ça me renvoie l'erreur suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
SCRIPT3604: [Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near '4'.
SQLconn.html (249,1)

Quand je clique sur le défaut ça me renvoie à la ligne 38 et le "near 4" correspond au 4 de 320.4
Voici mon script en l'état actuel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
'''UPDATE INTERMEDIAIRE'''
Function Update_Traca_STxx7
 
'Préparation des variables pour Update"
Dim NumUnit9
Dim CoupleVis1
Dim CoupleVis2 
Dim CoupleVis3
Dim CoupleVis4
Dim AngVis1
Dim AngVis2
Dim AngVis3
Dim AngVis4
NumUnit9 = "0756"
Dim Test 
Dim Test2
//'Test = 125.222
 
CoupleVis1 = 320.4
Msgbox VarType(CoupleVis1)
CoupleVis2 = 16
CoupleVis3 = 12
CoupleVis4 = 13
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

[ProgElecT]

Salut

A voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
dim NumUnit9
 
Function StrNum(lgn,data)
        numeric=CStr(data)
        LngEntier = len(Cint(data))
        result = String((lgn-LngEntier), "0") & numeric
        'si data est un chiffre à décimal, result à pour séparateur une virgule
        'et si la BDs attend un point, déremer la ligne qui suit
        'result = replace(result,",",".") 'remplace la virgule par un point
        StrNum = result
End Function
 
NumUnit9  = 12
NumUnit9  =  StrNum(4,NumUnit9) 'ajoute 2 zéro à gauche du chiffre
msgbox NumUnit9
 
NumUnit9  = 123
NumUnit9  =  StrNum(4,NumUnit9) 'ajoute 1 zéro à gauche du chiffre
msgbox NumUnit9
 
 
NumUnit9  = 1.23
NumUnit9  =  StrNum(7,NumUnit9) 'ajoute 6 zéro à gauche du chiffre
msgbox NumUnit9