Filtrage d'un recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Filtrage d'un recordset

Z_cool

HFR profile rating:⭐⭐⭐⭐

Salut.

J ai recuperer le script d'un collegue que je dois adapter pour une nouvelle utilisation, Mon problème, c est que je dois filtrer ce que le programme a stoqué precedement dans un recordset, c'est du genre :

Code :

Sub CreateRecSet()
Set ISAAccounts = CreateObject("ADODB.Recordset" )
With ISAAccounts
.Fields.Append "Domain", adVarChar, "255"
.Fields.Append "Account", adVarChar, "255"
.Fields.Append "MemberOf", adVarChar, "255"
.Fields.Append "Description", adVarChar, "255"
.Fields.Append "Name", adVarChar, "150"
'.Fields.Append "Class", adVarChar, "20"
.Fields.Append "Mail", adVarChar, "150"
.Fields.Append "Group", adVarChar, "150"
'All other fields
On Error Resume Next
Dim TmpArray, TmpCount ' as Integer
TmpArray = Split(AccountAttributes, ";" )
For TmpCount = LBound(TmpArray) To UBound(TmpArray)
.Fields.Append TmpArray(TmpCount), adVariant
If DebugMode = TRUE Then Call Message("Additional Attribute: '" & TmpArray(TmpCount) & "'" )
Next
.Open
End With
End Sub 'CreateRecSet()

ensuite, il y a pas mal de Add.

et moi, je voudrais par exemple recuperer touts ceux qui ont, par exemple *700* dans "description"

J ai bien eu l'idée d'appliquer une requête SQL sur mon recordset,... mais je bute sur : "SELECT * from ???? where Description LIKE %700%"

Je met quoi a la place des "???"

Merci

Message édité par Z_cool le 16-05-2007 à 08:36:47

---------------
#mais-chut

Publicité

madmartigan

Desperate Houseman

A priori à la place des ??? tu dois mettre le nom de la table où se trouvent les infos

Il me semble :ange:

jpcheck

Pioupiou

c'est pour ca que perso je prefere balancer une request sql et faire un db.execute...
dans ton cas, essaie de mettre "& ISAAccounts.Name & " à la place des ???

Z_cool

HFR profile rating:⭐⭐⭐⭐

Le probleme c est qu en fait, ca provient pas d une base de données.

Mais je viens de decouvrir :
http://www.devguru.com/technologie [...] ilter.html
ISAAccounts.Filter " Description ='toto' " marche bien

Mais quand j essaye avec un LIKE ... ca marche pas ... je continue les recherches

Message cité 1 fois
Message édité par Z_cool le 16-05-2007 à 10:35:48

Z_cool

HFR profile rating:⭐⭐⭐⭐

Z_cool a écrit :

Le probleme c est qu en fait, ca provient pas d une base de données.

Mais je viens de decouvrir :
http://www.devguru.com/technologie [...] ilter.html
ISAAccounts.Filter " Description ='toto' " marche bien

Mais quand j essaye avec un LIKE ... ca marche pas ... je continue les recherches

Ok, je suis trop con, Si ca marche bien avec le Like,...

Z_cool

HFR profile rating:⭐⭐⭐⭐

Bon, ba il y a quand meme des choses que j arrive pas a faire, notement :

Code :

Set WiskiFile = fso.CreateTextFile(".\Wiski.txt", True)
Set objRS = objConn.Execute("select COUNT(*) AS NBR,Description from "& UsersFileDestination & " GROUP BY Description")
YearsMonth = "00" + Year(Date) & Month(Date)
If Len (Month(Date) <2) Then
YearsMonth = Year(Date) & "0" & Month(Date)
Else
YearsMonth = Year(Date) & Month(Date)
End If
ComptR =0
NbrUser = 0
With objRS
While Not (.EOF Or .BOF)
If Len(.Fields("Description" )) = 6 Then
ComptR=ComptR+1
NbrUser = NbrUser + .Fields("NBR" ).Value
WiskiFile.WriteLine YearsMonth & ";A821;420142;" & .Fields("Description" ).Value & ";132118;" & .Fields("NBR" ).Value & ",00000;"
Else
End if
.MoveNext
Wend
.Close
End With
wscript.echo ComptR &" differents Cost Centers have been identified on "& NbrUser&" Users."

donc si vous avez des idee ....

jpcheck

Pioupiou

tu peux expliciter ton pb ? que n'arrives-tu pas à fire ? ton code plante ? quelle erreur ca te donne ?

Z_cool

HFR profile rating:⭐⭐⭐⭐

C est ce que j etais en train de me dire ... vaut mieux que j explique ce dont j ai besoin, ... parce que le code comme ca,brut, c est un peut indigeste.

en fait, la, maintenant j ai un recordset
ISAAccounts qui est du genre

Domain - Account - MemberOf - Description - Name
FR toto2 Groupe1 7254 Toto tartampion
FR milou Groupe2 1235 Milou Chien
FR Emile Groupe8 7254 Emile le tueur
GR Plutot Groupe8 1235 Plutot le Chien
FR Bill Groupe3 7254 Bill Kill
IL Stin Groupe2 6599 Stin Stun

Et j ai besoin, qu il me dise :
7254 il y a 3 personnes
1235 il y a 2 personnes
6599 1 personne

Z_cool

HFR profile rating:⭐⭐⭐⭐

c est en gros, ce que me faisait :

"select COUNT(*) AS NBR,Description from "... " GROUP BY Description"

Z_cool

HFR profile rating:⭐⭐⭐⭐

a defaut, si j arrive a trouver comment me retourner la liste des "description", apres, je peux placer des filtre et compter le nombre que j'en ai dans chaque

Message cité 1 fois

Publicité

jpcheck

Pioupiou

"select COUNT(DISTINCT blabla) AS NBR,Description from "... " GROUP BY Description"
un truc dans le style ?

Message cité 1 fois

Z_cool

HFR profile rating:⭐⭐⭐⭐

jpcheck a écrit :

"select COUNT(DISTINCT blabla) AS NBR,Description from "... " GROUP BY Description"
un truc dans le style ?

certe, mais dans a mesure ou c est un recordset simple que j ai et qu il n est rattaché a aucun Database engine, je peux pas utiliser de SQL ....

Message édité par Z_cool le 16-05-2007 à 16:08:50

Z_cool

HFR profile rating:⭐⭐⭐⭐

Z_cool a écrit :

a defaut, si j arrive a trouver comment me retourner la liste des "description", apres, je peux placer des filtre et compter le nombre que j'en ai dans chaque

Non ? pas de solution deja prevu a cet effet avec un record set ?

a part le faire soit meme ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Filtrage d'un recordset

Sujets relatifs
[ASP] probleme recordset ingorés	[ASP-ACCESS] Faire une comparaison entre 2 recordset
formulaire php pour filtrage sql	Insertion d'un recordset entier dans une table
[SQL] Filtrage spécial quel moyen utilisé ?	[Résolu] Erreur dans l'ouverture d'un recordset
filtrage de n-uplet à partir d'un minimum	[VBA][Access] Faire une requête jointure sur un recordset et une table
[Résolu[VBA][Access] Remplissage d'1 liste déroulante avec 1 Recordset	aide sure les recordset dans ACCESS
Plus de sujets relatifs à : Filtrage d'un recordset

Page générée en 0.072 secondes