Pbl requete ORDER BY et Datagrid...

Question

Je souhaiterai trié tout ma base de donnée en triant les nom par ordre croissant si l'utilisateur le demande dans un combobox.
Mon code est le suivant (y'as surement pleins d'erreur, je debute avec VB.) :

If Combo1.Text = "Nom" Then
Set db = OpenDatabase(App.Path & "\cd.mdb")
Set rs = db.OpenRecordset("Select * From cd ORDER BY Nom")

Rst.Close
Rst.CursorLocation = adUseClient
Rst.Open "cd", Cxn, , adLockOptimistic

Set DataGrid1.DataSource = Rst
End If

merci de votre aide! ;)

nhervagault · Answer

If Combo1.Text <> "" Then
Set db = OpenDatabase(App.Path & "\cd.mdb")
Set rs = db.OpenRecordset("Select * From cd ORDER BY" & combo1.text)
else
Set rs = db.OpenRecordset("Select * From cd )
end if
Set DataGrid1.DataSource = Rs
Rs.Close

peut etre que ca marche mieux?

J'ai pas testé j'ai pas vb sous la main

tomatokatchup007 · Answer

Marche pas. Erreur avec la syntaxe ORDER BY. Ca me met :
"erreur de syntaxe dans la clause order by"
je comprend pas pourquoi...

gaa179 · Answer

Utilise la propriéte sort du recordset pour trier.
Ex rs.sort="Nom".

tomatokatchup007 · Answer

SI j'insere cette fonction ca me met type incompatible pour la ligne "Set DataGrid1.DataSource = Rs"...

gaa179 · Answer

Voici une exemple qui fonctionne. 

Option Explicit
Dim MyCn As New ADODB.Connection
Dim MyRS As New ADODB.Recordset

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
'Tri sur la colonne sélectionnée
    MyRS.Sort = DataGrid1.Columns(ColIndex).DataField
End Sub

Private Sub Form_Load()
'Connection à la base de données
    MyCn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Al2chem;Mode=ReadWrite"

'Créeation du recordset
    MyRS.CursorLocation = adUseClient
    MyRS.Open "Select * From DefTags", MyCn, adOpenDynamic, adLockReadOnly

'Affecte le recordset au datagrid
    Set DataGrid1.DataSource = MyRS
End Sub

Pbl requete ORDER BY et Datagrid...

5 réponses

Discussions similaires