Comment mettre à jour une table automatiquement?

Question

Utilisation de VB 6 et Access 2003

code

Dim db As Database, tbl As TableDef 
Set db = DBEngine.OpenDatabase(App.Path & "\txtdata.mdb") 
Set tbl = db.CreateTableDef("Temp") 
tbl.Connect = "Text;database=" & App.Path & "/ConvTemp/" 
tbl.SourceTableName = strOutput & ".txt" 
db.TableDefs.Append tbl 
db.Execute "Select Temp.* into table1 from Temp" 
db.TableDefs.Delete ("Temp") 
db.Close 
Set tbl = Nothing 
Set db = Nothing 
MsgBox "File Converted Successfully", vbInformation 

À partir du code ci-dessus je suis la conversion d'un fichier texte à la base de données mdb, le code ci-dessus fonctionne bien.

Récupère un fichier texte à partir du dossier ConvTemp. Dans ce dossier, chaque fichier texte de 2 ou 5 ou 10 minutes est créé avec des noms différents de l'autre logiciel.

Chaque minute je veux mettre à jour une table automatiquement, chaque fois que le fichier texte est nouvellement créé à partir du dossier ConvTemp.

Par exemple

ConvTemp Folder 

101.txt 

The text file should update in the table1, then 101.txt should delete in the convTemp Folder. 

After new file is appearing in ConvTemp Folder 

222.txt 

This text file also should update in the table1, then 222.txt should delete in the convTemp Folder 

So on…, 

fichier txt est apparu il mettra à jour dans le tableau 1, puis supprimez le fichier txt.

La mise à jour dans la table1, et la suppression du fichier texte devrait automatiquement faire quand j'exécute le programme.

Comment écrire un code pour mettre à jour automatiquement, supprimer le fichier texte?

Besoin d'aide sur le code VB6.

Answer 1

Il suffit de créer une minuterie à l'écran, de régler son intervalle sur 60000, et dans l'événement de la minuterie du minuteur, vérifiez s'il y a de nouveaux fichiers dans votre répertoire; et les traiter.