vb6 csv access nom changeant

Pas taper pas taper j'ai fait la recherche mais je trouve pas ce que je cherche:cry:

Deja

bonjour,

alors voila mon probleme
J'ai une db sous access dans laquelle je dois venir mettre des nouveaux enregistrement toutes les semaines.
j'ai un appareil qui m'envoie ces données sous un fichier csv sur un pc dans un dossier bien preci. ce fichier change de nom toutes les semaines et les valeurs contenu dedans sont celles de la semaines passer mais aussi celle de la semaine d'avant donc 15 jours d'enregistrements.

je cherche a faire un vb qui me permet de mettre ces valeurs dans la db mais de d'enregistrer les nouvelles valeurs et celles qui y sont de ne pas les mettre pour éviter les doubles.

possible ou pas?? et comment surtout :p

merci d'avance

Bonjour,

Il faut qu'au moment de l'injection du fichier tu vérifie si la valeur n'est pas existante dans ta base avant de l'insérer.

ça me parait tout a fait possible.
Tu as commencé a faire quelque chose ?

Après moultes recherche sur le net (google est mon ami) j'ai réussi a ca :

Code:

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
 
Sub save()
NomBd = "mabase.mdb"
Path = NomBd
Label1.AddItem ("Recherche de la base de données")
If Dir(Path) = "" Then
Label1.AddItem ("La base de données n'existe pas ")
Set db = DBEngine.CreateDatabase(NomBd, dbLangGeneral)
Label1.AddItem ("La base de données a été créée ")
End If
Label1.AddItem ("Base de données trouvée")
If (t = Dir("archive", vbDirectory)) = vbEmpty Then
        Label1.AddItem ("Le repertoire d'archive csv existe")
    Else
        Label1.AddItem ("Le repertoire d'archive csv n'existe pas")
        MkDir "archive"
        Label1.AddItem ("Le repertoire d'archive csv a été créé")
    End If
 
Path = "*.csv"
     NomCsv = Dir(Path)
        If NomCsv = "" Then
Label1.AddItem ("Pas de fichier cvs trouver")
End If
     While NomCsv <> ""
    Label1.AddItem ("Connexion à la base de données")
     Set db = DAO.Workspaces(0).OpenDatabase(App.Path + "\" + NomBd, False, False, _
        "MS Access;PWD=mdp#@#!e")
     Ltitre = ""
        Label1.AddItem ("Fichier trouver :" + NomCsv)
 
        Fice = App.Path + "\" + NomCsv
        Open Fice For Input As #1
        Label1.AddItem ("Ouverture du fichier" + NomCsv)
        Line Input #1, LignE
        TableW() = Split(LignE, ";")
        For i = 0 To UBound(TableW)
            Ltitre = Ltitre + Replace(TableW(i), Chr(34), "") + " TEXT"
            If i <> UBound(TableW) Then Ltitre = Ltitre + ","
        Next i
        resultat = False
 
        For Each tdLoop In db.TableDefs
            If tdLoop.Name = "archive" Then
            resultat = True
            End If
 
        Next tdLoop
        If resultat <> True Then
 
        db.Execute "CREATE TABLE archive (" & Ltitre & ");"
        End If
 
       j = 0
        Label1.AddItem ("ouverture de la table")
        Set rc = db.OpenRecordset("archive", dbOpenTable)
 
        Do While Not EOF(1)
            Line Input #1, LignE
            TableW() = Split(Replace(LignE, Chr(34), ""), ";")
 
             Set rc2 = db.OpenRecordset("SELECT * FROM archive WHERE VarName='" & TableW(0) & "' and TimeString='" & TableW(1) & "'", dbOpenDynaset)
                If rc2.BOF Or rc2.EOF Then
                rc.AddNew
                        j = j + 1
            For i = 0 To UBound(TableW)
                If i = 5 Then
                    Exit For
                End If
                rc.Fields(i).Value = TableW(i)
            Next i
             rc.Update
 
End If
            Loop
            Label1.AddItem ("Nombre d'enregistrement ajouté " & j)
            rc.Close
            Set rc = Nothing
 
            Close #1
         'End
         Label1.AddItem ("Déplacement du fichier " & NomCsv & " dans le dossier archive")
         FileCopy NomCsv, "archive\" + NomCsv
         Label1.AddItem ("Suppression du fichier " & NomCsv & " dans le dossier courant")
       SetAttr NomCsv, vbNormal
       Kill NomCsv
 
        NomCsv = Dir
        db.Close
            Set db = Nothing
      Wend
 
        Path = "suivi.txt"
     NomCsv = Dir(Path)
     For i = 0 To Label1.ListCount - 1
If listeaction = "" Then
listeaction = Label1.List(i)
Else
listeaction = listeaction & vbCrLf & Label1.List(i)
End If
Next i
 
 
f = FreeFile
    Open "suivi.txt" For Append As #f
        Print #f, Now
        Print #f, listeaction
 
    ' Fermeture du fichier
    Close #f
 
    'Unload Me
 
End Sub

je suppose que c'est loin d'etre propre :p mais ca marche
A présent je suis a la recheche de pouvoir executer cela tous les jour a 1h du matin sachant que j'execute ce script actuellement de cette facon:

Code:

1
2
3
4
5
6
7
Private Sub Command1_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
save
End Sub