Discussion :

[Fiona08]

Salut à tous,

le compileur indique une faute au niveau de la boucle if(voir code ligne 30). Je ne comprend plus comment faire. Quelqu'un a-t-il une idee?

Merci d'avance pour votre aide

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
44
Sub connect_to_my_DB()
 
    Dim oCon, oRs
    Dim strCon, result
    Dim nonServeur
 
 
    nonServeur = "\\MonServeur"
 
 
    strCon = "DRIVER={Microsoft ODBC for Oracle}; SERVER="& myDb &";User Id="& myUser &";Password=" & monMotdePasse &";"
 
    Set oCon    = WScript.CreateObject("ADODB.Connection")
    Set oRs     = WScript.CreateObject("ADODB.Recordset") 'Select
 
 
    oCon.Open strCon
 
 
    Set oRs = oCon.Execute("SELECT count(*) FROM  MaTable " & _ 
                          "WHERE nomclient = 'TotalG' " & _   
                          "AND cast(temps as date) > (sysdate - 60) " )
 
 
 
    oRS.movefirst 
 
    result = oRs.Fields(0).Value
 
    if result = 0 then ' Faute à ce niveau
        envoieMail ' Appel de la fonction   envoieMail
    else 
        protokoll logfile, "**result:  " & result 
    End if
 
 
 
oCon.Close             
Set oRs = Nothing
Set oCon = Nothing
 
 
 
End sub

[omen999]

bonjour,
cela signifie que l'objet Field du recordset d'index 0 (la 1ère colonne) a un type incompatible avec le type variant numérique
si tu insères ligne 27 ceci :

Code :

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

msgbox oRs.Fields(0).type

tu récupèreras le type du champ qui est une constante DataTypeEnum dont tu trouveras la liste dans la doc ADO

[Fiona08]

Salut omen999,

j'ai ajouté ce que tu m'a dit et j'ai obtenu 139.

Je ne comprend pas pourtant à la ligne 33 le resultat est corect, il presente count(*) = 6, resultat que j'obtient aussi en testan directement sur la base de donné.

Merci
fiona

[Fiona08]

Salut,

pouvez vous me dire comment faire pour sauvegarder le resultat du count(*) dans une variable?

Merci d'avance
Fiona

[ProgElecT]

Salut

Peut être result = Cint(oRs.Fields(0).Value)

[Fiona08]

Salut,

j'ai toujours la faute "erreur de syntaxe" à la ligne 31 . je ne sais plus quoi faire.

merci pour votre aide
Fiona

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
Sub connect_to_my_DB()
 
    Dim oCon, oRs
    Dim strCon, result
    Dim nonServeur 
 
    nonServeur = "\\MonServeur"
 
 
    strCon = "DRIVER={Microsoft ODBC for Oracle}; SERVER="& myDb &";User Id="& myUser &";Password=" & monMotdePasse &";"
 
    Set oCon    = WScript.CreateObject("ADODB.Connection")
    Set oRs     = WScript.CreateObject("ADODB.Recordset") 'Select
 
 
    oCon.Open strCon
 
 
    Set oRs = oCon.Execute("SELECT count(*) FROM  MaTable " & _ 
                          "WHERE nomclient = 'TotalG' " & _   
                          "AND cast(temps as date) > (sysdate - 60) " )
 
    oRS.movefirst 
 
    'msgbox oRs.Fields(0).type
    'msgbox  CInt(oRs.Fields(0).Value)
 
    'result = oRs.Fields(0).Value
    countResult = CInt(oRs.Fields(0).Value)
 
    if result = 0 then envoieMail else protokoll logfile, "**result:  " & result  'Faute à ce niveau 
 
oCon.Close             
Set oRs = Nothing
Set oCon = Nothing 
 
End sub

[ProgElecT]

(Re)Salut
Si tu reprends le code de ton premier message, remplaces la ligne 28 par result = CInt(oRs.Fields(0).Value), dans un premier temps ne fais pas le If .... End If sur une seule ligne, cela permetra de savoir si c'est la condition ou l'action envoieMail else protokoll logfile, "**result: " & result qui pose problème.
Quand tu mes plusieurs fois du code, conserves les mêmes noms de variables, car cela devient vite difficile à s'y retrouver.

[Fiona08]

Salut ProgElecT,

merci pour ton aide. Fonctionne bien.

Bye
Fiona

(Re)Salut
Si tu reprends le code de ton premier message, remplaces la ligne 28 par result = CInt(oRs.Fields(0).Value), dans un premier temps ne fais pas le If .... End If sur une seule ligne, cela permetra de savoir si c'est la condition ou l'action envoieMail else protokoll logfile, "**result: " & result qui pose problème.
Quand tu mes plusieurs fois du code, conserves les mêmes noms de variables, car cela devient vite difficile à s'y retrouver.