Discussion :

[Nigoki]

Bonjour,

Je dois réaliser une application sous Access afin de créer des états imprimables sur des tables dBase IV.

A l'aide de l'outils de liaison simple via Fichier > Données externes > Lier des tables, Access me dit que le format des tables attendu n'est pas celui attendu sur environ la moitié des tables qui me sont nécessaires.

J'ai entendu qu'en VBA avec l'objet ADODB on peut lier des tables de façon plus propre en evitant ce genre d'erreur... comment faire ?

[francishop]

Bonsoir et Bienvenue,

A l'aide de l'outils de liaison simple via Fichier > Données externes > Lier des tables, Access me dit que le format des tables attendu n'est pas celui attendu sur environ la moitié des tables qui me sont nécessaires.

Et ces tables récalcitrantes ont quel format?
En faisant une "deuxième passe" elles ne viennent toujours pas?

Cordialement.

[Nigoki]

Elles sont en .dbf comme les autres qui se lient sans problemes.

Deuxieme passe ? Hmm je connais pas cette option pour lier une table, je n'ai pas vu cette possibilité dans la fenetre de d'attachement.

Petite précision : avec le logiciel DBFVIEWER, j'arrive parfaitement a visualisé mes tables, meme les recalcitrantes sous access.

Merci pour le bienvenu

[Invité]

Bonjour

As-tu essayé d'importer tes tables récalcitrantes en sléectionnant d'autres version de DBase dans la liste déroulante en bas de la fenêtre d'import ?

Starec

[Nigoki]

Oui, j'ai essayé avec toutes les versions de DBase proposées, sans résultats

L'attachement des tables par ADODB n'est pas une solution à mon probleme ?

[Nigoki]

Bon, pour me répondre a moi meme, j'ai trouvé comment effectuer simplement la liaison via VBA.

Code :

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

DoCmd.TransferDatabase acLink, "dBase IV", "c:\CheminDesDbf", acTable, "Nom_table_dbf", "Nom_table_sous_access", False

ou bien par ADODB en recupérant un recordSet de la table, une sorte de liaison temporaire :

Code :

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

1
2
3
4
5
6
7
DriverDbase = "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ="
Chemin = "CheminDesDbf"
 
Set ConnDbf = CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM Nom_table_dbf"
 
ConnDbf.Open SQL, DriverDbase & Chemin

Cependant, meme via VBA j'ai toujours la meme erreur de format sur ces meme tables

[AlainTech]

Tant que tu ne nous montreras pas une de ces bases "à problème" on ne pourra qu'essayer de deviner et il y a peu de chances que tu obtiennes une réponse correcte.