Discussion :

[Ovr19]

Bonjour à tous
je me tourne vers vous pour m'aider à résoudre mon problème qui est le suivant:

1- je récupère des fichiers CSV d'alarmes automate dans un répertoire
2- j'importe les CSV un par un dans une table temporaire [tba_TmpAl]
3- une requête sélection [qry_TmpAl] m'enlève les lignes inutiles (lignes vides, titres, etc), donc il me reste les champs qui m’intéressent:
[F1] = date
[F2] = heure déclenchement alarme
[F3] = texte d'alarme
[F4] = heure alarme acquittée
[F5] = heure alarme retombée
[F6] = variable d'alarme (nom dans l'automate)
Expr1: Format([tba_TmpAl]![F1] & " " & [tba_TmpAl]![F2];"mm/jj/aaaa\ hh:nn:ss")

donc le but de la manip est d'importer le résultat de la requête sélection dans la table définitive [tba_Alarme] qui comprend les champs suivant:
[numAlarme]
[DateAlarme]
[HeureAlarme]
[MessageAlarme]
[HeureAcqAlarme]
[HeureRetombeAlarme]
[NomVariableAlarme]

le hic c'est qu'on retrouve des alarmes identiques avec les même dates et heures dans différents fichiers CSV

mon idée est de filtrer sur les dates et heures en faisant un Format ("mm/dd/yyyy hh:nn:ss") mais je ne sais pas comment ajouter les alarmes sans faire de doublons

j'ai commencé un bout de code, mais sur la condition "Where" je sèche

Code :

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

1
2
3
4
5
6
7
8
9
 
        SQL = "INSERT INTO tba_Alarme ( DateAl, HeureActifAl, MessageAl, HeureAcqAl, HeureRetombeAl, NomVariableAl ) " _
        & "SELECT qry_TmpAl.F1, qry_TmpAl.F2, qry_TmpAl.F3, qry_TmpAl.F4, qry_TmpAl.F5, qry_TmpAl.F6 " _
        & "FROM qry_TmpAl " _
        & "WHERE (((qry_TmpAl.Expr1) ??????????? ));"
 
        DoCmd.SetWarnings False
        DoCmd.RunSQL SQL
        DoCmd.SetWarnings True

merci d'avance pour votre aide

[micniv]

bonjour

Le hic c'est qu'on retrouve des alarmes identiques avec les même dates et heures dans différents fichiers CSV

Alors un simple DISTINCT après le SELECT t'enlèveras les doublons

Code :

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

1
2
3
SQL = "INSERT INTO tba_Alarme ( DateAl, HeureActifAl, MessageAl, HeureAcqAl, HeureRetombeAl, NomVariableAl ) " _
        & "SELECT DISTINCT qry_TmpAl.F1, qry_TmpAl.F2, qry_TmpAl.F3, qry_TmpAl.F4, qry_TmpAl.F5, qry_TmpAl.F6 " _
        & "FROM qry_TmpAl "

NB : C'est aussi possible avec un GROUP BY

Bonne suite

[Ovr19]

Merci pour ta réponse rapide, mais cela m'a quand même ajouté des doublons

par contre j'ai trouvé une soluce un peu usine à gaz qui consiste à créer une requête de non-correspondance sur les champs date et heure puis d'ajouter le résultat à ma table, et là terminer les doublons

encore merci et @+