Ouverture DBF avec ADO

Version imprimable

Bonjour,

J'utilise un programme de gestion de production donc les données sont au format DBF. J'ai vu qu'il était possible d'exploiter ces données avec Excel via la méthode ADO.
(cf : Sujet1 et Sujet2)

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub CommandButton1_Click() Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Dim Chemin As String, Cible As String, laBase As String Chemin = "D:\gp\STOCK" laBase = "GPLIGVE.DBF" Set Cn = New ADODB.Connection Cn.Open _ "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _ Chemin & ";" Cible = "SELECT LV_COMM FROM " & laBase & " ;" Set Rs = New Recordset Rs.Open Cible, Cn Msgbox Rs.Fields(1).Value Rs.Close Cn.Close End Sub
J'aimerais dans un premier temps, pouvoir tester cette méthode en affichant le premier résultat dans une boite de dialogue. (requête très simple sans critère)

Avec le code actuel j’obtiens le message d'erreur suivant : "La table externe n'est pas dans le format attendu"
L'erreur se produit sur la ligne Rs.Open.

Svp, pourriez-vous m'aider ? :)

Merci d'avance et bonne journée.

Bonjour,
fais ce test là!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Property Get TableToutes(Connexion As Object)
Dim T() As String, i As Integer
TableToutes = False
With Connexion.OpenSchema(20)
    While Not .EOF
        ReDim Preserve T(i)
        T(i) = !TABLE_NAME
        i = i + 1
        .MoveNext
    Wend
    .Close
    TableToutes = T
End With
End Property
Sub test()
Dim Cn As Object, T() As String
Set Cn = CreateObject("Adodb.connection")
Cn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=D:\gp\STOCK;"
 T = TableToutes(Cn)
For i = 0 To UBound(T)
    Debug.Print "[" & T(i) & "]"
Next
End Sub

Affiche la fenêtre d'exécution raccourci clavier [CTRL] + [G]

27/02/2019, 14h02
atk_49
Bonjour dysorthographie,

Merci pour ta réponse.

J'ai fais l'essai et la fenêtre d’exécution me sort la liste des fichiers DBF présent dans le répertoire, sous ce format :
Code:

1 2 3 4 5 6 [GPLIGVE] [GPLINVEN] [GPLIREGL] [GPLISFAB] [GPLOCALI] [GPLOCATI]
J'avoue ne pas trop savoir quoi en penser... :mrgreen:
27/02/2019, 14h17
Invité
en fait ton répertoire est ta base de données.

les extension .DBF ne sont pas utiles!
Code:

1 2 3 sql ="Select * from [GPLIGVE] inner join [GPLINVEN] on [GPLINVEN].id=[GPLIGVE].id" set Requete=cn.execute(sql)
(

Super merci pour les explications !

Si j'ai bien compris, voila ce que je dois comprendre :
Base de données = D:\gp\STOCK
Table = [GPLIGVE]
Champ = [GPLIGVE].LV_COMM

J'ai donc modifié mon code, j'obtiens toujours la même erreur, je dois surement faire une erreur dans la syntaxe de ma requête.

Pour tester, je souhaite faire apparaître dans une boite de dialogue, la valeur du champ LV_CLIE, quand LV_COMM = 1618.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton1_Click() Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Set Cn = New ADODB.Connection Cn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=D:\gp\STOCK;" Set Rs = New Recordset Rs.Open "Select [GPLIGVE].LV_COMM,[GPLIGVE].LV_CLIE from [GPLIGVE] WHERE [GPLIGVE].LV_COMM = '1618'", Cn 'Le résultat devrait être 001544 Msgbox Rs.Fields(1).Value Rs.Close Cn.Close End Sub

27/02/2019, 15h17
Invité

si LV_COMM est un champ numérique pas de ='texte'

Code:

Rs.Open "Select [GPLIGVE].LV_COMM,[GPLIGVE].LV_CLIE from [GPLIGVE] WHERE [GPLIGVE].LV_COMM = 1618", Cn
27/02/2019, 15h24
atk_49

Ok merci, malheureusement j'ai toujours la même erreur : "La table externe n'est pas dans le format attendu"
27/02/2019, 16h19
atk_49

Je pense m'être trompé de pilote, en effet celui que j'ai choisi est prévu pour des bases de données DBF au format dBASE, or celle que j'ai est une DBF mais au format Visual FoxPro...
Ça explique le message d'erreur... :aie:

D'après ce sujet, le driver pour les bases foxpro est :

Code:

Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=chemin\nombd.dbc;Exclusive=No;

Visiblement la base doit être en DBC, or la mienne est en DBF...

Bref, je vais faire des essais, on verra bien !
27/02/2019, 17h31
Invité

C'est pas évident pour moi de t'aider plus car dbf c'est vieux pour moi et si c'était le standard de la SGBD ce n'est plus commun !

On en trouve plus par hasard !
28/02/2019, 08h21
atk_49

Oui c'est clair que ça date !

J'ai finalement laissé tombé, un collègue plus expérimenté que moi sur ce sujet m'a expliqué que la méthode que je cherche à utiliser apporte aussi un problème de "verrouillage" des fichiers lorsqu'ils sont exploités par excel.
Selon lui, il faut utiliser un DSN Windows pour éviter ce problème.

Il a déjà mis en place ce principe en PHP, et ça fonctionne, je vais donc suivre ces conseils et rester sur la méthode actuelle.

Merci pour ton aide.
31/07/2020, 17h16
atk_49
Je remonte ce vieux sujet pour apporter la solution à la syntaxe de connexion aux bases des données DBF 4 via ADO. (pour les rares personnes que ça pourrait intéresser)

Prérequis : Microsoft OLE DB Provider for Visual FoxPro 9.0
Code:

1 2 cnx.ConnectionString = "Provider=vfpoledb;Data Source=C:\Directory\;Extended Properties=dBASE IV;" 'C:\Directory\ étant le répertoire contenant les fichiers DBF cnx.Open