Importer CSV dans une table AccessRésolu

Question

Bonjour &#224; tous. J'ai une base de donn&#233;e Access dans laquelle j'ai une table avec des clients et les transactions qui leurs sont associ&#233;es selon une date de l'ann&#233;e.

Par exemple

NoClient
Transactions
Date

J'aimerais construire un programme en VB6 de maniere &#224; pouvoir importer les nouvelles transactions dans la table &#224; mesure que je les recois...

Voici un exemple du fichier source de donn&#233;e:

num&#233;ro du client|Transaction|Date&#173;
3031123365|44|2/1/2006 12:00:00 AM

puisque mon fichier m'arrive quotidiennement et qu'il contient environ 2000 lignes j'aimerais pouvoir ajouter les lignes du fichier CSV &#224; ma base de donn&#233;es.

La question est donc: Comment faire pour "Appender" &#224; la table Access les lignes provenant du fichier CSV directement sans passer par Excel...(de maniere &#224; pouvoir automatiser totalement le processus)? AIDEZ MOI SVP!!!

cs_jperre · Accepted Answer

Pour importer un fichier csv (ou un autre type de fichier texte), on dispose des fonctions de lecture et écriture de fichier dans VB et VBA (ce sont les mêmes). Pour le cas présent, je suppose que le trait vertical est le séparateur de champs et que les données ne sont pas entourées de doubles cotes.

Sub ImportCSV(sFileCSV As String, sTable As String)
    Dim lFileCSV As Long, sLine As String, rsTable As Recordset
    Dim sField As String, n As Integer, m As Long
    lFileCSV=FreeFile
    Open sFileCSV For Input As #lFileCSV
    Set rsTable=CurrenDB.OpenRecordset(sTable, dbOpenTable)
    Do
      Line Input #lFileCSV, sLine
      rsTable.AddNew
      For n=1 To Len(sLine)
          If Mid(sLine, n, 1)<>"|" Then
             sField=sField & Mid(sLine, n, 1)
          Else
             rsTable(m)=sField
             sField=""
             m=m+1
          End If
          If n=Len(sLine) Then
             rsTable(m)=sField
             sField=""
             m=0
          End If
      Next n
      rsTable.Update
    Loop Until EOF(lFileCSV)
    Close #lFileCSV
    rsTable.Close
End Sub

pokeswell · Answer

Merci beaucoup pour ce code!
Dans mon cas, ce code se retrouve &#224; l'int&#233;rieur d'une tr&#232;s simple application VB6 et non directement dans ACCESS 2003....

Donc, comment dois-je faire pour sp&#233;cifier les param&#232;tres de  la fonction suivante:
Sub ImportCSV(sFileCSV As String, sTable As String)

d'ouvrir la table "tblTransactions" de la base de donn&#233;es "c:\baseDtest.mdb" pour y ajouter les entr&#233;es? C'est-&#224;-dire que je ne pige pas comment sp&#233;cifier dans le code, comment sp&#233;cifier la table exacte qui doit &#234;tre ouverte dans une base de donn&#233;e particuli&#232;re?

Merci encore!
Pokeswell

cs_jperre · Answer

Dans VB6, il faut venir dans le menu Projet, puis References et ajouter la référence à Microsoft DAO 3.51 (Access 97) ou DA0 3.6(Access 2000) qui fait partie de VB6 (DAO 3.6 est dans le service Pack 6 de VB6). Ensuite, les objets de DAO sont accessibles. Il s'agit des Objets :
- Microsoft Jet = DBEngine
- Espace de travail = WorkSpace
- Base de données = Database
- Connexion = Connection
- Structure de table = TableDef
- Requête = QueryDef
- Relation entre tables = Relation
- Champ = Field
- Index = Index
- Feuille de reponse = Recordset
A l'exception de DBEngine, tous ces objets peuvent être utilisés dans des collections d'objets.

Dans ce cas précis, il faudrait :

Sub ImportCSV(sFileCSV As String, sTable As String)
     Dim dbTrait As DAO.Database, rsTable As DAO.Recordset
     Dim lFileCSV As Long, sLine As String
     Dim sField As String, n As Integer, m As Long
     lFileCSV=FreeFile
     Open sFileCSV For Input As #lFileCSV
     Set dbTrait=DBEngine(0).OpenDatabase("c:\baseDtest.mdb")
     Set rsTable=dbTrait.OpenRecordset(sTable,dbOpenTable)
     lFileCSV=FreeFile
     Open sFileCSV For Input As #lFileCSV
     Do
       Line Input #lFileCSV, sLine
       rsTable.AddNew
       For n=1 To Len(sLine)
           If Mid(sLine, n, 1)<>"|" Then
              sField=sField & Mid(sLine, n, 1)
           Else
              If m=1 Then
                 rsTable(m)=Val(sField)
              Else
                 rsTable(m)=sField
              End If
              sField=""
              m=m+1
           End If
           If n=Len(sLine) Then
              rsTable(m)=CDate(sField)
              sField=""
              m=0
           End If
      Next n
      rsTable.Update
    Loop Until EOF(lFileCSV)
    Close #lFileCSV
    rsTable.Close
    dbTrait.Close
End Sub
Voilà, tout est détaillé, j'ai même ajouté une mise en forme des données pour alimenter le deuxième champ au format numérique et le troisième au format date.

pokeswell · Answer

Merci jperre! Ca fonctionne bien maintenant.

Par contre j'ai du adapter cette ligne la:
Set dbTrait=DBEngine(0).OpenDatabase("c:\baseDtest.mdb")

Par celle la:
Set dbTrait = dao.OpenDatabase("c:\baseDtest.mdb")

pokeswell · Answer

Puisque dans ma base de donn&#233;es, la table en question ne comprend pas de cl&#233; unique, comme un num&#233;ro unique... comment puis-je faire pour savoir si une ligne de mon fichier csv a  d&#233;ja &#233;t&#233; ajout&#233; &#224; la table?

Merci

Importer CSV dans une table Access

5 réponses

Discussions similaires