Discussion :

[kevinss]

Bonjour à tous,
voila j ai un petit souci avec un petit souci avec un pauvre bou de code...

je veux extarire deux champs de base "RACK("TF_SINGLE")" & "WEB("TF_SINGLE")" et effectuer un pourcentage avec ces deux valeurs...

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
40
41
42
43
<%
 
Dim RACK
Dim RACK_numRows
Set RACK = Server.CreateObject("ADODB.Recordset")
RACK.ActiveConnection = Conn
WEB.Source = "Select * from dbo.table"
RACK.CursorType = 0
RACK.CursorLocation = 2
RACK.LockType = 1
RACK.Open()
 
RACK_numRows = 0
%>
 
 
<%
 
Dim WEB
Dim WEB_numRows
Set WEB = Server.CreateObject("ADODB.Recordset")
WEB.ActiveConnection = Conn
WEB.Source = "Select * from dbo.table"
WEB.CursorType = 0
WEB.CursorLocation = 2
WEB.LockType = 1
WEB.Open()
 
WEB_numRows = 0
%>
<% 
Dim rack_tf
rack_tf = RACK("TF_SINGLE")
 
Dim web_tf
web_tf = WEB("TF_SINGLE")
 
Dim pourcent_temp
pourcent_temp = 100
 
Dim pourcent
pourcent = (web_tf * pourcent_temp) / rack_tf
%>

mais Voila ce qui s affiche ds mon explorateur

Code :

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

1
2
3
4
5
Erreur d'exécution Microsoft VBScript error '800a000d'
 
Type incompatible
 
/fr/test_calcul.asp, line 55

Je pense que le probleme vien du type de donnee de mes variables (qui sont extraites en numeric de ma base de donnees)...

Merci d'avance

KéViN

[pc75]

Bonjour,

Sauf erreur de ma part, les variables ne sont pas typées en VbScript. Regarde du côté des fonction de conversion (cint(), cdbl(), ...)

[franculo_caoulene]

Salut,

Je pense plutôt qu'une valeur retournée doit être à null ou bien un problème de décimale utilisant un point au lieu d'une virgule ou inversement.
Que donnent des reponse.write de tes valeurs?

[kevinss]

Le response.write retournai bien les valeurs le probleme se situai juste au niveau du calcul mais le pblm est résolu ! Merci

avec ca ca passe :

Code :

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

1
2
web_tf = Cstr(WEB("TF_SINGLE")) 
rack_tf = Cstr(RACK("TF_SINGLE"))