OVH Cloud OVH Cloud

Trie

2 réponses
Avatar
ABED HADDOU
Bonjour tous le monde
j'ai réussi à établir une connection à une base de données DBase à l'aide de
DAO
mon problème est que je n'arrive pas à trié mon recordset.j'ai essayé avec
Rst.Sort="code" ça n'a pas marché un message apparait disant que le
fournisseur actuel ne prend pas en charge l'interface nécéssaire pour le trie
ou le filtrage.
existe il une méthode permettant de trié mes enregistrement ?
voici une partie de mon code peut être vous pouvez m'aider et merci par
d'avance

Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _
Chemin & ";"
Set rsT = New ADODB.Recordset
rsT.Open laBase, Cn, adOpenKeyset, adLockOptimistic
rsT.Sort = "codec" c'est la ou se plante mon code

Abed_H

2 réponses

Avatar
MichDenis
| une connection à une base de données DBase à l'aide de DAO
| Set rsT = New ADODB.Recordset

A ) Évidemment, tu utilises ADO et non DAO

B ) Au lieu d'ouvrir une table, utilise une requête :
Voici un petit exemple simple ...

Dim Requete As string

Requete = "SELECT * FROM laBase ORDER BY LeChampDeLaTable"
LeChampDeLaTable = Nom du champ sur lequel tu voudrais avoir un tri croissant.


Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID'7;Dbq=" & _
Chemin & ";"
Set rsT = New ADODB.Recordset
rsT.Open Requete, Cn, adOpenKeyset, adLockOptimistic





"ABED HADDOU" a écrit dans le message de news:

Bonjour tous le monde
j'ai réussi à établir une connection à une base de données DBase à l'aide de
DAO
mon problème est que je n'arrive pas à trié mon recordset.j'ai essayé avec
Rst.Sort="code" ça n'a pas marché un message apparait disant que le
fournisseur actuel ne prend pas en charge l'interface nécéssaire pour le trie
ou le filtrage.
existe il une méthode permettant de trié mes enregistrement ?
voici une partie de mon code peut être vous pouvez m'aider et merci par
d'avance

Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID'7;Dbq=" & _
Chemin & ";"
Set rsT = New ADODB.Recordset
rsT.Open laBase, Cn, adOpenKeyset, adLockOptimistic
rsT.Sort = "codec" c'est la ou se plante mon code

Abed_H
Avatar
ABED HADDOU
c'est exactement ce que je voulais 1000 merci à toi MichDenis

bonne nuit

Abed_H




| une connection à une base de données DBase à l'aide de DAO
| Set rsT = New ADODB.Recordset

A ) Évidemment, tu utilises ADO et non DAO

B ) Au lieu d'ouvrir une table, utilise une requête :
Voici un petit exemple simple ...

Dim Requete As string

Requete = "SELECT * FROM laBase ORDER BY LeChampDeLaTable"
LeChampDeLaTable = Nom du champ sur lequel tu voudrais avoir un tri croissant.


Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID'7;Dbq=" & _
Chemin & ";"
Set rsT = New ADODB.Recordset
rsT.Open Requete, Cn, adOpenKeyset, adLockOptimistic





"ABED HADDOU" a écrit dans le message de news:

Bonjour tous le monde
j'ai réussi à établir une connection à une base de données DBase à l'aide de
DAO
mon problème est que je n'arrive pas à trié mon recordset.j'ai essayé avec
Rst.Sort="code" ça n'a pas marché un message apparait disant que le
fournisseur actuel ne prend pas en charge l'interface nécéssaire pour le trie
ou le filtrage.
existe il une méthode permettant de trié mes enregistrement ?
voici une partie de mon code peut être vous pouvez m'aider et merci par
d'avance

Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID'7;Dbq=" & _
Chemin & ";"
Set rsT = New ADODB.Recordset
rsT.Open laBase, Cn, adOpenKeyset, adLockOptimistic
rsT.Sort = "codec" c'est la ou se plante mon code

Abed_H