Ouvrir un fichier .dbf avec VBS
Bonjour à tous!
Voila, j'ai comme mission de synchroniser une base de donnée (clients) au format .dbf à un logiciel de planning (planningPME) :?:?:?:aie:
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à....:oops:
- convertir le fichier .dbf en .xls avec le script VBS: cela est possible?
Voila, merci d'avance pour ceux qui pourraient m'aider:ccool:
Code:
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 |
Le fichier .dbf ne veut toujours pas s'ouvrir....
Bon j'en suis là pour l'instant mais j'ai toujours cette erreur 80004005
Citation:
"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:
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 |