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

[Message édité par ThierryAIM]
[Pas de Urgent, Au secours, ... ni dans les titres ni dans les messages]
[Lire ou relire les règles du forum]

[pc75]

Bonjour,

Petite précision :

Tu veux importer des données de tables Dbase dans des tables Access ou une liaison pourrait onvenir ?

[nikko_54]

Merci de répondre pc 75.

En fait dans mon code VB6 je suis censé rapatrier par RS232 ces tables au format dbf sur un serveur. ( ca c'est fait). Ensuite je dois mettre à jours une base de données Access 97 existante sur le serveur en me servant des tables rapatriées précédemment. Pour ce j'ai décider de créer un BD "intermédiaire" avec ADO (DAO) dans mon code VB6 et j'aimerai lui importer les tables dbf à chaque fois que j'effectue une mise à jours. Dans cette condition je disposerai alors de deux BD et il me resterai que les requetes de mise à jours à faire entre celles-ci. Ce que je veux précisemment c'est pouvoir manipuler mes tables dans VB6 (soit en les important dans une BD, soit en faisant je sais pas quoi...)

J'espère avoir été assez clair...
MERCI

[pc75]

Re,

Ce que je veux précisemment c'est pouvoir manipuler mes tables dans VB6 (soit en les important dans une BD, soit en faisant je sais pas quoi...)

Et bien dans ce cas, pourquoi tu ne manipules pas directement tes DBF dans VB6 ?

[nikko_54]

Parceque je ne savais pas que l'on pouvait le faire...

Comment fais tu?
Tu te connecte dessus avec ADO comme si c'était une base de données Access??

MERCI

[pc75]

Re,

Oui, de la même manière :

Code :

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

1
2
3
4
5
6
7
8
 
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

[nikko_54]

MERCI pour ton aide efficace! pc75