Bonjour,

Je ne vois pas ce que j'ai qui manque a la ligne "status = rsEventText.FindFirst["EventText"]" du code ci-dessous, je recois une erreur "Expected End of statement"

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Dim IDNumber
Dim RecordLine
Dim requete, requeteInAndOut
Dim status
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objFile = objFSO.CreateTextFile("D:\ExportCIS\ExportCISFile.txt")
Set objFile = objFSO.CreateTextFile("E:\ExportCIS\ExportCISFile.txt")
 
requete = "SELECT RptIndividuals.FirstName, RptIndividuals.LastName, RptIndividuals.IndividualNdx,  "
requete = requete & "RptIndividuals.Custom01, IdWorksView.CardText FROM IdWorksView "
requete = requete & "INNER JOIN RptIndividuals ON IdWorksView.IndividualId = RptIndividuals.IndividualNdx "
requete = requete & "ORDER BY RptIndividuals.IndividualNdx;"
 
set cn=CreateObject("ADODB.Connection")
set rs=CreateObject("ADODB.Recordset")
set rsEventText=CreateObject("ADODB.Recordset")
 
cn.Open "Provider=SQLOLEDB.1;Data Source=10.199.80.10;Initial Catalog=InetDb;User ID=sa;Password=*******"
 
set rs = cn.Execute (requete)
 
do while rs.EOF = False
	RecordLine = rs("FirstName") & ";"
	RecordLine = RecordLine & rs("LastName") & ";"
	RecordLine = RecordLine & rs("IndividualNdx") & ";"
	RecordLine = RecordLine & rs("Custom01") & ";"
	RecordLine = RecordLine & rs("CardText")& ";"
 
        IDNumber= rs("IndividualNdx")
 
        requeteInAndOut = "SELECT RptEvents.EventTypeNdx, RptEvents.DateTime, RptEvents.DeviceName, " &_
        "RptEventTypes.EventText, RptEvents.IndividualNdx FROM RptEventTypes " &_
        "INNER JOIN RptEvents ON RptEventTypes.EventTypeId = RptEvents.EventTypeNdx " &_
        "WHERE (((RptEvents.IndividualNdx)='" & IDNumber & "')) order BY RptEvents.DateTime desc"
        'msgbox requeteInAndOut, vbok, "test"
        set rsEventText = cn.Execute (requeteInAndOut)	
'        msgbox rsEventText("EventText") & " " & rs("FirstName"), vbok, "test"
 
        If IsNull(rsEventText) then
	       msgbox "rsEventText est null",vbok,"Erreur"
        End if
 
        rsEventText.MoveFirst
        If rsEventText("EventText").Value = "Reader Entry" Then	
                status =  "1"
                msgbox status,vbok,"test"
        Else if status = "Reader Exit" Then
                status =  "0"
                msgbox status,vbok,"test"
	End if
        End if
 
	RecordLine = RecordLine & tmp
	objFile.WriteLine(Cstr(RecordLine))
 
    rs.MoveNext
loop
 
objFile.Close
Merci