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