Discussion :

[sergio_bzh]

Bonjour,
En parcourant les forums j'ai réussi à trouver ce que je cherchais : faire en VB6 un export Access avec un fichier de spécification d'export grâce à la commande DoCmd.transferText.

J'ai même réussi à trouver que ce fichier s'appelait apparemment Schema.ini (?)

Le problème est que je ne sais pas où est localisé ce fichier. J'en ai besoin car l'appli VB6 est installé sur un paquet de poste client. Et ce fichier de specs a été créé à la mano mais où est-il donc ???? Il faudrait que je le rècupère pour l'installer chez tous les autres clients.

J'ai pourtant fait une recherche schema.ini sur tout le disque dur.

gracias.

[NOODLE02]

A mon avis, c'est à partir d'Access que tu veux exporter des données et le fichier Schema.ini est le fichier dans lequel tu veux exporter des données. Alors c'est normal que tu ne le trouves pas puisque c'est toi qui va le créer.

Maintenant, si tu veux importer des données dans Access, alors là, il faut que le fichier d'entrée existe.

Pourrais-tu être expliciter un peu plus ce que tu veux faire ?

[sergio_bzh]

je mets un peu de temps à répondre, c'était le WE !

Merci pour la réponse. Voilà plus de précisions :

Je suis sur une appli VB6 qui travaille avec une base Access locale.
Dans l'appli VB6, je voudrais donc faire un export de certaines tables grâce à DoCmd.TransferText. Ensuite je vais récupérer le fichier d'export pour l'envoyer par FTP.

Sur mon poste, je fais donc la manip d'export en "interactif" à l'aide du fichier de specs d'export que je construis à ce moment-là. En résultat j'ai donc bien un fichier d'export *.txt.
Ensuite j'installe mon appli VB6 chez des dizaines de clients. Je ne vais pas faire la manip à la mano chez chaque client pour construire un fichier de specs d'export !
Je cherche donc à installer le fichier Schema.ini chez tous les clients qui ont l'appli VB6 afin de faire l'export.

Merci.

[mout1234]

Bonjour,

Les spécifications d'export ne sont pas stockées dans un fichier externe mais dans des tables cachées de la base Access (MSysIMEXSpecs + MSysIMEXColumns).

Sauf erreur de ma part, il faut simplement que le format d'export utilisé dans ta commande TransferText soit stocké dans la base Access en cours.

Deouis VB6, je suppose que tu as créé un objet Access.Application et ouvert la base. Donc cela devrait marcher, non?

Je viens de faire le petit test suivant sous VB6, ca marche

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim oAccess As Access.Application
Set oAccess = New Access.Application
oAccess.OpenCurrentDatabase "d:\mes documents\baseTests.mdb"
 
 
oAccess.DoCmd.TransferText acExportDelim, "MonFormatExport", "MaTable", "c:\test.txt"
oAccess.CloseCurrentDatabase
oAccess.Quit
Set oAccess = Nothing

[sergio_bzh]

Bonjour,

je crois que j'ai un peu de mal à me faire comprendre (normal, je n'ai jamais été très clair dans mes explications !) :
Quand je vais livrer mon appli VB6 à un autre utilisateur (la base access n'est pas livrée avec), "MonFormatExport" ne va pas être livré avec, et pour cause !

Mais maintenant que je sais où sont stockés les specs d'export, je vais y arriver

Merci pour l'info.

Sergio