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 |
Partager