base de donnée

Question

slt, je voudrai savoir, comment sous access je peut remplir une table a partir d'un fichier text.txt. il faudrais que je cr&#233;e une macro car le fichier .txt est sans cesse remis a jour, dc il faudrais que je cr&#233;e une macro qui a la demande de l'utilisateur met &#224; jours la table access.
 

En gros je voudrai avoir une macro qui remplis une table access depuis un fichier .txt

merci

XtremDuke · Answer

Access a un un assistant pour l'importation de données externes au format txt. Si ca peut t'aider....

inconnu2nulpar · Answer

ouai mais cette assistant le fait qu'une fois. Moi il me faut une macro qui le fasse a chaque fois que je clic sur un bouton, qq un sait comment on fait?

metalcoder · Answer

salut, voici une solution a ton probleme

ouvre un nouveau projet VB avec trois boutons sur la feuille et colle le code dans ta feuille.

ajoute ensuite la reference suivante a ton projet (menu projet/reference et choisis microsoft activex data objects 2.5 ou superieur si tu as .

ensuite il te faut un fichier texte que j'ai appeler essai.txt (le nom doit etre identique si tu veut que cela marche)
il te faut une base access vide avec une table que j'ai appeler Table1 et qui possede un champs que j'ai appeler donnée. le champs "donnée" est au format texte avec une longueur de 255.

le fichier access doit s'appeler essai.Mdb et tout comme le fichier texte il faut qu'il soit située dans le meme repertoire ou tu sauvegardera ce petit programme. 



'************CODE*************************
Public Ct As ADODB.Connection
Public rc As ADODB.Recordset

Private Sub Command1_Click()
Set rc = New ADODB.Recordset
rc.Open "Table1", Ct, adOpenKeyset, adModeReadWrite

Open App.Path & "\essai.txt" For Input As #1
While Not EOF(1)
 Line Input #1, a
 With rc
    .AddNew
    !Donnée = a
    .Update
 End With
Wend
Close #1

MsgBox "Mise a Jour OK"

err:
If err.Number = 53 Then
MsgBox "Fichier essai.txt introuvable"
Exit Sub
End If

End Sub

Private Sub Command2_Click()
Set rc = New ADODB.Recordset
rc.Open "Table1", Ct, adOpenKeyset, adModeReadWrite
While Not rc.EOF
    rc.Delete
    rc.MoveNext
Wend

MsgBox "Table1 Effacée"
End Sub

Private Sub Command3_Click()
rc.Close
End
End Sub

Private Sub Form_Load()
On Error GoTo err
Set Ct = New ADODB.Connection

Ct.Provider = "Microsoft.Jet.Oledb.4.0"
Ct.ConnectionString = App.Path & "\Essai.Mdb"
Ct.Open

err:
If err.Number = -2147467259 Then
MsgBox "fichier essai.mdb introuvable"
End
End If

End Sub

inconnu2nulpar · Answer

Merci bcp, mais est ce que tu peut me mettre des commentaire pour que je puisse modifier ton prog, car mon fichier text a plusieur champs, il y aura une cl&#233; primaire et a cot&#233; s&#233;par&#233; par une virgule ou un point virgule, une date, et dc je voudrais copier ces 2 champs ds ma table

metalcoder · Answer

Bon j'ai pas changé grand chose donc je te met juste le code qui a changé.

Public Ct As ADODB.Connection 'Declaration des variables pour se connecter en mode ADO
Public rc As ADODB.Recordset

Private Sub Command1_Click()
Set rc = New ADODB.Recordset 'Declaration d'une nouvelle connection ADO
rc.Open "Table1", Ct, adOpenKeyset, adModeReadWrite 'Ouverture de la table "Table1" de la base essai.Mdb

Open App.Path & "\essai.txt" For Input As #1 'Ouverture du fichier texte en lecture
While Not EOF(1) 'Tant que ce n'est pas la fin du fichier texte
 Input #1, a, b 'la valeur a contient la premiere valeur et B la deuxieme valeur du fichier texte
 With rc        'les valeurs du fichier texte doivent etre séparer par des ,
    .AddNew 'On ajoute un enregistrement dans la table1
    !Index = a 'Le champs Index prend la valeur de A
    !Heure = b 'Le champs Heure prend la valeur de B
    .Update
 End With
Wend
Close #1 'On ferme le fichier texte

MsgBox "Mise a Jour OK"

err:
'Si le fichier essai.txt n'est pas trouvé on affiche un message
If err.Number = 53 Then
MsgBox "Fichier essai.txt introuvable"
Exit Sub
End If

End Sub

Private Sub Command2_Click()
Set rc = New ADODB.Recordset 'Declaration d'une nouvelle connection ADO
rc.Open "Table1", Ct, adOpenKeyset, adModeWrite 'Ouverture de la table "Table1" en ecriture seulement
While Not rc.EOF 'On boucle tant que la fin n'est pas arrivée
    rc.Delete 'Effacement de l'enregistrement courant
    rc.MoveNext 'On passe a l'enregistrement suivant
Wend

MsgBox "Table1 Effacée"
End Sub

Private Sub Command3_Click()
rc.Close 'Fermeture de la connection ADO
End
End Sub

Private Sub Form_Load()
On Error GoTo err
Set Ct = New ADODB.Connection 'Declaration

Ct.Provider = "Microsoft.Jet.Oledb.4.0"
Ct.ConnectionString = App.Path & "\Essai.Mdb" 'Chemin ou se trouve la base access
Ct.Open

err:
If err.Number = -2147467259 Then
MsgBox "fichier essai.mdb introuvable"
End
End If

End Sub

inconnu2nulpar · Answer

ok merci bcp ! et au fait est ce que c'est possible de suprim&#233; les donn&#233;es que j'ai &#233;crite ds la table access du fichier text.txt? et aussi comment je peut tester ma table access pour que lorsqu'il y a des doublons, j'&#233;crase l'ancien et je mais la nouvelles donner ds ma table ?

inconnu2nulpar · Answer

Et aussi, ds ton programme losrque tu met "ajoute un champs ds la table " cela ajoute un champs sans suprimer ceux qui existe d&#233;ja ?

inconnu2nulpar · Answer

excuse moi d'&#233;crire plusieur msg , mais pourquoi tu utilise le bouton 2? pourquoi tu efface la table1?

je sait pas si c'est possible, mais je voudrais rajouter a la suite les champs qui se trouvent ds mon fichier text.txt.

 et aussi &#224; la place des virgule il faudrai que j'utlise qqch d'autre car l'assistant access ne veut pas prendre les virgyule comme s&#233;parateur car il exporte des date/heure, je sait pas si c'est importatnt ds ton programme &#231;a.

metalcoder · Answer

le bouton 2 sert juste a effacer toute la table1 si tu en a besoin. Je vais pas te faire le programme completement, je te donne juste une piste ;-))

le probleme c'est que tu va mettre ton fichier texte dans la table1 mais si tu recommence aussitot apres tu va ajouter a la suite, ce qui va faire plein de doublons dans ta table, c'est pour ca que j'avais mis le bouton 2.

mon programme tel qu'il est fait prend la virgule comme separateur

ex: 154,15/05/2006


 


tu va avoir le chiffre 154 dans le champs index de la table1


et 15/05/2006 dans le champs heure de la table1


 


essaye de le modifier, il y a que comme ca que tu va comprendre


Metalcoder

inconnu2nulpar · Answer

Merci pour ton aide. je sait tu vas pas me faire ts mon code d'ailleur &#231;a c'est juste une partie mais c essentiel...

Pour &#233;viter les doublon, je voudrais effac&#233; les donner que j'ai import&#233; ds ma table du fichier .txt mais je c'est pas si c'est possible en vba , tu en pense quoi?
Comme &#231;a je cr&#233;erai un boucle test et si l'index existe d&#233;ja ben j'&#233;crase l'encien ds ma base de donner et j'aurais pas de doublon. cela m'arengerai ennorm&#233;ment si je pouvais effacer les donner du fichier .txt si tu siat comment on fais merci d'avance

inconnu2nulpar · Answer

slt , ton code n emarche pas il me mes une erreur de compilation au niveau 

Set rc = New ADODB.Recordset 'Declaration d'une nouvelle connection ADO
rc.Open "Table1", Ct, adOpenKeyset, adModeReadWrite 'Ouverture de la table "Table1"

il me dit que l'op&#233;ration ne pas &#233;tre faite sur ce fichier... je ne sait pas pourquoi, pourtant j'ai mis la r&#233;f&#233;rence que tu m'as dit mais &#231;a ne marche pas.

si tu a une autre m&#233;thode pour ouvrir en &#233;criture une base ( juste &#231;a pas ts le code ) merci d'avance

inconnu2nulpar · Answer

slt comment on fait pour remplir des combo box sous vba access, parce que en vba excel je fait cobox1.additem "valeur" mais &#231;a ne marche pas sous access, quelqu'un sait comment on fait? merci

Base de donnée

12 réponses

Discussions similaires