Discussion :

[drouault]

Bonjour,

Je souhaite lister les colonnes d'une table au format Dbase. pour cela je liste d'abord mes différentes tables dbf en pasant le chemin d'acces :

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
If Me.Combo_base.Text = "Fichier DBF" Then
    provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & File1.Path & ";Extended Properties=dBASE " & type_dbf
End If
 
connexion_externe.ConnectionString = provider
connexion_externe.Open
 
'On affiche ensuite la liste des tables de la base sur laquelle on s'est connecté
 
Set RS_Table = connexion_externe.OpenSchema(adSchemaTables)
 
While Not RS_Table.EOF
 
    Lst_table.AddItem (RS_Table.Fields(2))
    RS_Table.MoveNext
 
Wend

Ensuite l'utilisateur choisit la table dans la liste et je cherche à lister les différentes colonnes de ce fichier DBF. C'est la qu'il y'a un souci, impossible de lire les colonnes du fichier DBF, alors que cette même fonction marche trés bien sur une table Access. Si quelqu'un à une idée merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Set RS_Colonne = connexion_externe.OpenSchema(adSchemaColumns)
 
    While Not RS_Colonne.EOF
 
    If RS_Colonne.Fields(2) = Me.Lst_table.List(Me.Lst_table.ListIndex) Then
 
        Me.Lst_col.AddItem (RS_Colonne.Fields(3))
 
    End If
 
    RS_Colonne.MoveNext
 
    Wend

Il doit sans doute falloir que je passe le nom de la table DBF sur laquelle je peux lister les colonnes ?

Si quelqu'un à une idée merci d'avance.

[sovo]

J'ai recement mis une source du meme type. Bon je crois qu'on a pas le meme principe, mais l'idee reste la meme. essai de voir si avec ma methode ca peut donner le resultat voulu.

Tu trouveras ma source ici : http://developpez.net/forums/showthread.php?t=192460

[drouault]

Tu trouveras ma source ici : http://developpez.net/forums/showthread.php?t=192460

J'ai bien regarder ta source, j'arrive à faire la même chose avec Access à l'aide de ta méthode qui est la même que la mienne. Le probléme c'est quand je cherche à lister les colonnes de mon fichier DBF avec exactement la même ligne de commande que pour access, là ça plante ...

Et j'arrive pas à trouver de source qui fait ça ....

Merci de ton aide

A+

Pierre

[SilkyRoad]

bonjour

tu peux essayer

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
27
28
'Necessite d'activer la reference
'"Microsoft ActiveX Data Objects x.x Library"
'
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Chemin As String, Cible As String, laBase As String
Dim i As Integer
 
Chemin = "C:\Documents and Settings\michel\dossier"
laBase = "societes.dbf"
 
Set Cn = New ADODB.Connection
Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _
            Chemin & ";"
 
Cible = "SELECT * FROM " & laBase & ";"
 
Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
 
'Boucle pour recuperer le nom des colonnes
For i = 1 To Rs.Fields.Count
Debug.Print Rs.Fields(i - 1).Name
Next
 
Rs.Close
Cn.Close

michel