Discussion :

[soso78]

Salut,

Voilà, j'essaye de trier les champs que j'importe depuis une base par tri numérique en ADO.

Il y a bien une fonction qui semble générer ça mais ça ne marche pas.

Voici le code :

Code :

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

1
2
3
4
5
6
7
 
Dim rstListeTable As ADODB.Recordset
 
  Set rstListeTable = New ADODB.Recordset
  Set rstListeTable = MaConn.OpenSchema(adSchemaColumns, Array(Empty, Empty, strNomTable, Empty))
 
  rstListeTable.Sort = "ORDINAL_POSITION"

Lorsque le curseur arrive sur le .sort, j'ai le message suivant :

Erreur d'exécution 3251

Le fournisseur actuel ne prends pas en charge l'interface nécessaire pour le tri ou le filtrage

Comment faire pour qu'il le prenne en charge ?

Merci par avance.

[Vld44]

salut,

Tu te connectes à quel type de base de données ? (marque)

[soso78]

Salut,

Access. C'est un .mdb.

A+

[Delbeke]

Je ne maitrise pas bien ado, mais sous dao ça pourrait donner çà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub DumpFields(MaBase As String, MaTable As String)
  Dim Fld As Field
  Dim TbDef As TableDef
  Dim Db As Database
  Set Db = OpenDatabase(MaBase)
  Set TbDef = Db.TableDefs(MaTable)
  For Each Fld In TbDef.Fields
    Debug.Print Fld.Name; "/"; Fld.OrdinalPosition
  Next
  Db.Close
End Sub

Ps: ne pas oublier d'ajouter une référence à microsoft dao au projet

[soso78]

Salut,

Ca me donne effectivement le n° de chaque champ, mais pas le tri. En fait, actuellement, j'ai un tri des champs par ordre alphabetique.

[soso78]

Salut,

Je me réponds, ça peut être utile aux autres.

En fait, la solution est ici :

http://support.microsoft.com/kb/299484/

Il m'en a fallu du temps pour trouver ;-). Mais ça marche.

A+