[prog] Trier une table par ordre alphabétique

Mon, 07 Mar 2005 03:42:38 -0800 

Bonjour :-)

Dans le Livre Programmation Open office,  l'exemple  d�crit page 543
permet d'ajouter un enregistrement dans la table produit.dbf
la table se pr�sente comme cela:  ID_PRODUIT ,  LIBELLE ,   PRIX
Quel code ou instruction SQL pourrai-je faire pour ensuite trier la
table par ordra alphab�tique sur la colonne LIBELLE
Il y a un exemple de tri sur un set row p554, mais je n'ai pas su l"adapter.

Jean-Luc

Ci joint le code de l'exemple

   Sub InsererDonneesParSQL()
   dim maRequete As Object, resuQuery As Object
   dim LeLibelle As String, LePrix As Double, instrSQL As String
   dim nbLignesEcrites As Long, indexP As Long, x As Long

   'Demande des renseignements � l'utilisateur
   if nouvelArticle(LeLibelle, LePrix) then
     ConnecterSource
     'chercher la valeur maximale de ID_PRODUIT
     maRequete = maConnexion.createStatement()
     resuQuery = maRequete.executeQuery( _
                           "select ID_PRODUIT from produits")
     indexP = 1
     while  resuQuery.next
       x = resuQuery.Columns.getByName("ID_PRODUIT").Int
       if x >= indexP then indexP = x +1
     wend

     'construction de la requ�te d'insertion
     instrSQL = "order by produits "
     'ajout du nouvel enregistrement
     nbLignesEcrites = maRequete.executeUpdate(instrSQL)
     'MsgBox("Instruction SQL :" & chr(13) & instrSQL & chr(13) & _
            '"Nombre de lignes �crites : " & nbLignesEcrites)
     DeconnecterSource
   end if
   End Sub



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à