Discussion :

[nikko_54]

Bonjours à tous,

Je suis actuellement en période de projet pour mon BTS IRIS et j'ai un petit problème....

Voilà, je désir mettre à jours une BD Access (97) par l'intermédiaire de VB 6 et pour ceci je dois rapatrier des tables au format .dbf (Dbase III) depuis un petit terminal portable (PSION Workabout).

Donc, je dispose actuellement de fichiers .dbf (tables) que je dois importer dans une base de données préalablement ouverte dans VB 6.

Là est mon problème. Je n'arrive pas à importer ces fichiers .dbf depuis visual basic.
SVP aider moi..... MERCI PAR AVANCE

[podz]

Salut

Code :

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

DoCmd.TransferDatabase acImport, "dBase III", "U:\reptest\stat", acTable, "stat", "T_Stat", False

où U:\reptest\stat est le repertoire qui contient le fichier stat.dbf et T_Stat est le nom de ta table.
J'espere que c'etait ça que tu voulais
Podz

[nikko_54]

Merci podz,

Oui je pense que c'est ça. Mai J'utilise ADO (DAO) pour me connecter à ma base de données et je n'ai pas de DoCmd.TransferDatabase ....
Comment l'obtient tu??

Précision:
En fait je dois mettre à jours une BD Access 97 existante sur un serveur.
Pour ce je dois rapatrier des tables en dBase III provenant d'un terminal portable par RS232 sur le serveur. Ensuite je dois me servir des infos contenu dans ces tables pour mettre à jours la BD du serveur. J'ai terminer toute la partie communication et il me reste la partie mise à jours. Actuellement je dispose dans mon code VB6 d'une connection avec la BD serveur mais je n'arrive pas à "ouvrir", "importer" ces tables (que g placé ds un repertoir TEMP du serveur.). Si j'arrive il me restera que les requete de mise à jours à faire et c'est good.

MERCI de m'aider podz

[marot_r]

La réponse fournie plus haut supose que tu es en VBA et non VB6. Access viens avec un bon paquet de filtre d'importation par contre pour VB6 je ne suis pas sur que cela existe.

Je vois plusieurs option :

- tu fais du dev dans Access et tu oublie VB6 pour cette partie, ce qui n'est vraiment pas difficile. Tu vas pouvoir bénéficier de tout le confort de l'environnement de travail de Access. (Visualisation des tables, filtres d'import, form liés, ...)

- tu trouves un driver ODBC compatible avec DB3, si cela existe toujours, et tu te tapes la prog au travers de VB6.

- tu attaque le fichier DBF en mode binaire. Les fichiers DBF ont une entête de description (sur les 32 premiers octets il me semble) et après les données sont en format fixe. Chaque enr à toujours la même longueur.

A+

[nikko_54]

Merci du conseil marot_r, mais j'ai résolu le problème autrement.

Explication:

VB6 permet d'ouvrir ,par l'intermediare de AODB, les tables dBase III comme si l'on se connectait à une BD Access:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
DriverDbase="DRIVER={Microsoft dBase Driver (*.dbf)};DBQ="           
Chemin = "\\RepertoireDesDBF"                                        
 
   Set ConnDbf = CreateObject("ADODB.RecordSet")                     
   MySql = ""                                                        
   MySql = MySql & "SELECT * FROM MaTable "                          
   ConnDbf.Open MySql, DriverDbase & Chemin

Ensuite l'objet recordset ConnDbf permet de manipuler à souhait la table, ceci est très simple mais je ne le savais pas ...
Merci quand même @+