recordset qui veut pas se trier

Question

bonjour,

je suis d&#233;butant en VB.

J'ai un recordset que j'ai cr&#233;&#233; de mes mains (ce n'est pas le produit d'une requ&#234;te).

Je veux le trier.



Dim headers As Variant

Dim rs As New ADODB.Recordset



rs.Source = "x"

rs.CursorType = adOpenStatic

rs.CursorLocation = adUseClient



headers = Array("produit", "date de l'ordre", "sens", "nb Parts", "date VL", "VL", "devise")



rs.Fields.Append headers(0), adVariant

rs.Fields.Append headers(1), adVariant

rs.Fields.Append headers(2), adVariant

rs.Fields.Append headers(3), adVariant

rs.Fields.Append headers(4), adVariant

rs.Fields.Append headers(5), adVariant

rs.Fields.Append headers(6), adVariant



rs.Open

rs.AddNew headers, Array("sino plouarnec 2005", "15/10/2005", "R", "512", "16/10/2005", "524.21", "EUR")

rs.AddNew headers, Array("Clic glandouille part G (rien foutu)", "13/10/2005", "R", "1058", "16/10/2005", "11.75", "YEN")

rs.AddNew headers, Array("Clic glandouille part G (rien foutu)", "12/10/2005", "S", "129", "15/10/2005", "10.55", "YEN")

rs.AddNew headers, Array("bahamas Honesty 2012", "8/10/2005", "S", "147", "9/10/2005", "44699", "ZLT")



rs.Sort = "produit ASC"



mais &#224; l'&#233;x&#233;cution, j'ai toujours une erreur sur rs.sort, visual studio me dit :

erreur d'&#233;x&#233;cution '-2147217824 (80040e60)'

Impossible d'ouvrir l'ordre



Auriez- vous une id&#233;e d'ou cela peut venir et comment corriger le probl&#232;me ?



Merci pour votre aide.

blaz von Paris · Answer

bon j'ai trouv&#233;.

Vb ne sait pas trier les variant.

il faut remplacer :

 rs.Fields.Append headers(0), adVariant



par 



 rs.Fields.Append headers(0), adVarChar , 255

Recordset qui veut pas se trier

1 réponse

Discussions similaires