Discussion :

[Superzest 76]

Bonjour,
Alors voila une nouvel question pour la suite de mon petit programme (Topic précédant ICI)
Donc mon problème ici est que je cherche a comparer des date stocker sur une base de donné .CVS a la date actuelle
alors voila mon code pour le moment

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
'----Verification de la citerne
Dim ImaCITERNE
Dim fso, fichier, T,recherche
Dim ContenuFichier, TblLgn, TblCol
Dim CarteG,ADR,code,destinataire,IDs,etancheite
     '---Ouverture du fichier.csv
     Set fso = CreateObject("Scripting.FileSystemObject")
    Set fichier = fso.opentextfile("C:\Users\PRODERGIE\Documents\InTouch Machine Edition v8.1 Projects\Vitogaz\Donné.csv", 1)
    ContenuFichier = fichier.ReadAll
    fichier.Close
    Set fichier = Nothing
    '---Lecture et recherche de l'imat
    recherche = $GetTagValue("imatriculation_citerne",1)
    TblLgn = Split(ContenuFichier,vbNewline)
    For T = 0 To UBound(TblLgn) - 1
        TblCol = Split(TblLgn(T), ";", -1, vbTextCompare) 
        If TblCol(0) = recherche Then
            carteG = TblCol(1)
            ADR = TblCol(2)
            epreuve = Tblecole(3)
            etencheite = Tblecol(4)
            Ids = Tblecol(5)
        End If
    Next
'---Verification de la citerne
 
If  Ids<> "2" Then
'--- Comparaison de la date  pour la CarteG ADR epreuve et etencheite si ID =2
Else
    MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
End If

Voila le fichier contenant les infos

Donné.txt


Merci d'avance

[ProgElecT]

Salut
C'est quoi $GetTagValue ?
Dans ton fichier on ne voit pas de imatriculation_citerne, objet de ta recherche non.
Pour la question, comparer des dates:

Code :

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

1
2
3
4
' ................
			Ids = Cdate(Tblecol(5)) ' forcer le typage en date
' .....................			
If Ids <> date Then

date retourne la date du jours en cours.

[Superzest 76]

Salut merci encore pour ton aide ! Les $gettagvalue font office de fonction READ pour un tag de mon projet
je développe en fait une sorte d’appli pour gérer les entrées et les sorties de du personnel .

[ProgElecT]

Salut

Ok pour $GetTagValue.
Pour If Ids <> date Then, c'est bon?

Si oui, il faut penser au bouton

[Superzest 76]

Oui c'est bon merci beaucoup ^^
Peut etre a plus tard dans un futur topic

[Superzest 76]

Oups je viens de me rendre compte que le prgrame me renvois l'erreur suivante :
Visualisation: Erreur Runtime => screen/gros-vrac.scc : ID Objet = 7 : Type incompatible: 'CDate' (-2146828275).
j'ai modifier mon .CSV pour que les date sois du type MM/DD/AAAA mais rien a faire
Merci d'avence