Discussion :

[Jean-micael]

Bonjour à tous!

Voila, j'ai comme mission de synchroniser une base de donnée (clients) au format .dbf à un logiciel de planning (planningPME)

Cette opération ce fait par une exécution d'un script .VBS au lancement du logiciel.

J'ai déjà réussi à effectuer une synchronisation à un fichier .xls avec le script suivant, mais j'aimerai maintenant le faire pour un fichier .dbf

Je vois deux solutions:

- tenter de lire directement le fichier .dbs :échec pour moi jusque là....
- convertir le fichier .dbf en .xls avec le script VBS: cela est possible?


Voila, merci d'avance pour ceux qui pourraient m'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
---------------------------------------------------------------
'Connection to PlanningPME
'Register PlanningPME.dll before -> c:\windows\system32\regsvr32 
 
PlanningPME.dll
Set ppme = CreateObject("PlanningPME.Application")
ppme.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Rose\Desktop\test_import.pp"
ppme.Connect
 
'Connection to Excel
 
Set Connection = CreateObject("ADODB.Connection")
'VB
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\clients.dbf; Extended Properties=" & Chr(34) & "Excel 8.0;HDR=Yes;IMEX=1" & Chr(34)"
 
'pour le fichier dbf j'ai essayé sans succès avec ça: Extended Properties=dBASE IV
 
Set rs = CreateObject("ADODB.Recordset")
Set search = CreateObject("ADODB.Recordset")
rs.Open "select * from [defa0006$]", Connection
 
'boucle pour importer les donnees
While rs.EOF = False
    ..........................
rs.MoveNext
Wend

[Jean-micael]

Bon j'en suis là pour l'instant mais j'ai toujours cette erreur 80004005

"n'est pas un chemin d'accès valide. Assurez-vous que le nom du chemin d'accès est correct et qu'une connexion est établie avec le serveur sur lequel réside le fichier"

Voici mon code actuel:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'Connection to PlanningPME
'Register PlanningPME.dll before -> c:\windows\system32\regsvr32 
 
PlanningPME.dll
Set ppme = CreateObject("PlanningPME.Application")
ppme.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Rose\Desktop\test_import.pp"
ppme.Connect
 
'Connection to Excel
 
Set Connection = CreateObject("ADODB.Connection")
'VB
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\CLIENTS.dbf;Extended Properties=dBase III;"'     ---->>>ça bug ICI
 
 
Set rs = CreateObject("ADODB.Recordset")
Set search = CreateObject("ADODB.Recordset")
rs.Open "select * from [defa0006$]", Connection
 
'boucle pour importer les donnees
While rs.EOF = False
    ..........................
rs.MoveNext
Wend

[PPME_Arnaud]

Bonjour,

Je pense que votre problème se situe en effet ici :
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\CLIENTS.dbf;Extended Properties=dBase III;"

Sur le site http://www.connectionstrings.com/dbf-foxpro il semble qu'il ne faille pas préciser le chemin vers le fichier DBF mais directement vers le répertoire qui contient les fichiers

Cordialement
Arnaud CHARRE
PlanningPME

[Jean-micael]

Merci beaucoup Arnaud, ça marche maintenant
enfin presque.....

Si je puis me permettre, cette fois ça bloque pour la sélection :
rs.Open "select * from [defa0006$]", Connection

ça me dit: Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet 'defa0006$'............

[SfJ5Rpw8]

et c'est quoi defa0006$ ...? le nom d'une table de ta base de donnée?

[Jean-micael]

Oui, alors il s'agissait en fait du nom de la feuille du fichier .xls lorsque je faisait la synchronisation avec un fichier EXCEL

Pour la faire avec le fichier .dbf, ma ligne de code actuelle est
rs.Open "select * from [clients]", Connection

avec client le nom de ma base de donnée (j'ai à peut près tout essayé, clients.dbf / clients$/.....)

L'erreur est la suivante: La table externe n'est pas dans le format attendu.

Pourtant j'ouvre bien avec Properties=dBase III

Avez vous une idée?