Comment exporter une base de données Acces en VB6 sur un poste ne possèdant pas

Question

Bonjour tout le monde,




Dans mon programme j'ai fais une fonction d'exportation et lorsque je
l'installe sur un poste qui ne poss&#232;de pas access, elle ne fonctionne pas.




Apr&#232;s analyse, j'ai trouv&#233; que &#231;a bloquait sur la fonction OpenCurrentDatabase  dans le code suivant:




Public Sub exporter()

  Dim chemin As String

  Dim cheminExport As String

  Dim nom As String

  Dim catalogBdd As ADOX.Catalog

  Dim tblList As ADOX.Table

  Dim ouvert As Boolean

  Dim vide As Boolean

  Dim exportation As Boolean

  Dim db As Access.Application

  

  'Initialisations

  exportation = False

  Set db = New Application

  Set catalogBdd = New ADOX.Catalog

  

  'Si la base de donn&#233;e est ferm&#233;e on l'ouvre

  If cnxBdd.State = adStateOpen Then

    ouvert = True

  Else

    If ouvrirBdd Then

      ouvert = True

    Else

      ouvert = False

    End If

  End If

    

  If ouvert Then

    'R&#233;cuperation du chemin et du nom de la base

    chemin = lireChemin

    nom = Mid(chemin, 1, Len(chemin) - 4)

    'Ouverture pour l'exportation

    db.OpenCurrentDatabase (chemin)

    'Ouverture de la boite de dialogue pour choisir le chemin d'ou seront stock&#233;es

    'les tables export&#233;es

    cheminExport = SelectFolder("S&#233;lectionnez un r&#233;pertoire de
destination pour exporter la base de donn&#233;es :", frmPrincipal.hwnd)

    If cheminExport <> "" Then

      'On liste le nom de toutes les tables dans la base de donn&#233;es

      'afin de voir si le nom pass&#233; en param&#232;tre ne correspond pas &#224; une table d&#233;j&#224; existante

      catalogBdd.ActiveConnection =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & chemin &
";Jet OLEDB:Database Password=;"

      For Each tblList In catalogBdd.Tables

        If tblList.type = "TABLE" Then

          exportation = True

          'Si le port com est ouvert, on le ferme

          PortSerie.fermerCom frmPrincipal.MSComm

          frmPrincipal.Toolbar1.Buttons("btnEnregistrer").Enabled = False

          'Exportation de la base

          db.Visible = False

          DoCmd.TransferText acExportDelim, , tblList.Name, _
         
IIf(Right(cheminExport, 1) = "", cheminExport & tblList.Name &
".csv", _

          cheminExport & "" & tblList.Name & ".csv"), True

        End If

      Next

      Set catalogBdd = Nothing

      db.CloseCurrentDatabase

      Set db = Nothing

      frmPrincipal.Toolbar1.Buttons("btnEnregistrer").Enabled = True

      If exportation Then

        MsgBox "Exportation de la
base termin&#233;e.", vbOKOnly + vbInformation, "Logiciel Environnement"

      Else

        MsgBox "La base de donn&#233;es
est vide.", vbOKOnly + vbInformation, "Logiciel Environnement"

      End If

    Else

      CloseCurrentDatabase

    End If

  End If

End Sub




Existe-t-il une autre m&#233;thode afin que je puisse exporter les ma base au format csv? Si oui comment?





Merci d'avance &#224; tous ceux qui pourront m'aider ;)

BruNews · Answer

Fais ton fichier &#224; exporter en local, ensuite CopyFile et delete le local.

ciao...
BruNews, MVP VC++

lefoimpeur · Answer

Merci bien!

Mais qu'entends-tu par "exporter en local"?

Je ne comprend pas ta solution, pourrais-tu me donner des d&#233;tails stp?



En tout un grand merci car si cela fonctionne, &#231;a me soulagerais ;)

BruNews · Answer

A te relire je me demande si j'ai bien compris ta question...

Ce code tourne dans Access (je vois DoCmd), il est donc clair qu'il ne tournera pas hors d'Access. Donc tu le mets en marche sur ton poste qui a Access et tu fais ta copie de base sur le m&#234;me pc, ensuite en 2 coups d'API tu l'envoies sur un autre pc.

ciao...
BruNews, MVP VC++

lefoimpeur · Answer

B&#233; nan, j'ai d&#233;velopp&#233; mon appli en VB6....

Zut, moi qui me faisait une joie d'avoir enfin une soluce!

BruNews · Answer

Mais &#231;a reste du code Access, qu'il soit fait par automation comme ici ou direct dans Access, &#231;a reste du Access, il est donc hors de question de pouvoir trouver une solution. Ecris de l'ADO et &#231;a passera.

ciao...
BruNews, MVP VC++

lefoimpeur · Answer

B&#233; jvx bien faire de l'ado, jen ai fai pr le reste, ms comment tu fais pour exporter?

Si tu me dis comment faire l&#224; chu preneur!

Comment exporter une base de données Acces en VB6 sur un poste ne possèdant pas

6 réponses

Discussions similaires