.Filter sur ADODB : Impossible de trouver l'objet dans la connexion

Version imprimable

Bonjour ,

J'ai un problème sur un recordset avec ADODB
Code:

1 2 3 4 5 6 7 With rs .ActiveConnection = con .Open " SELECT [Composant] FROM nomenclature WHERE Article = '" & Sheets("ListeArticle").Cells(i, 2) & "' " .Filter = "[composantnomenclature.nomenclature]='AS*'" End With
.Open va chercher toutes les occurences de la colonne Composant de la table nomenclature ou l'Article respecte une valeur dans une cellule

.Filter filtre toutes les occurences et ne selectionne que celles ou la colonne composantnomenclature commence par AS.

Problème : Impossible de trouver l'objet dans la collection correspondant au nom ou à la réference demandée.

Des idées ?

[EDIT] J'ai également tenté de créer une requete access incluant ce filtre , mais .Open n'arrive pas à lire les données . Je n'ai pas de message d'erreur , mais les données correspondantes ne sont pas affichées...

Merci

21/09/2011, 13h44
Sclarckone

Citation:

Envoyé par kelvir

[EDIT] J'ai également tenté de créer une requete access incluant ce filtre , mais .Open n'arrive pas à lire les données . Je n'ai pas de message d'erreur , mais les données correspondantes ne sont pas affichées

Effectivement, je pense qu'il est préférable d'inclure le dernier critère dans la recherche plutôt que d'appliquer un filtre sur le résultat. Car dans ce dernier cas, ton recordset contiendra aussi les résultats que tu ne veux pas.

Ta bdd est une base Access? Est-ce que la requête fonctionne sous Access?

Petite remarque d'ailleurs, Access n'utilise pas des apostrophes mais des guillements pour délimiter les chaines des carcactère. Et pour accéder à des bdd Access, DAO est plus adapté que ADO (qui est plus générique).
21/09/2011, 13h49
kelvir

La requete fonctionne mais je n'arrive pas à l'appeler depuis excel
21/09/2011, 14h02
Sclarckone

As-tu essayé en enlevant les apostrophes?

Sur quelle ligne cela plante-t-il?

Poste le reste de ton code également que l'on puisse voir comment tu as défini 'con', ce que vaut 'i'...En dernier recours je peux probablement te proposer une solution avec DAO (que je connais beaucoup mieux qu'ADO que je n'utilise jamais) mais il doit bien y avoir 2-3 personnes sur ce forum calées en ADO et qui pourront t'aider mieux que moi.
21/09/2011, 14h15
kelvir
ca bloque au niveau du .filter
J'ai essayé toutes les syntaxes possibles
Code:

1 2 con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "data source=X:\SAP.mdb;" con.Open
21/09/2011, 14h20
Godzestla

Bonjour,

question peut-être idiote, mais pourquoi .Filter en plus d'une clause Where ?

La Clause Where sert à filtrer par définition.

------Edit---

Sinon, un peu d'inspiration dans la faq
21/09/2011, 14h30
kelvir

J'ai déjà essayé mais visiblement ca ne fonctionne pas 8-)
21/09/2011, 16h04
kelvir

Auriez vous des idées pour filtrer selon ces deux critères :

Code:

Article = '" & Sheets("ListeArticle").Cells(i, 2) & Composant nomenclature commencant par AS

Si tu te sens de passer à la bibliothèque DAO, tu peux essayer ça (à adapter à ton code existant):

Code:

1
2
3
4
5
6
7
Dim myDB As DAO.Database, rstQuery As DAO.Recordset, strSQL As String
 
Set myDB = DBEngine.OpenDatabase(chemin_de_la_bdd)
 
strSQL = "SELECT [Composant] FROM nomenclature WHERE Article =""" & Sheets("ListeArticle").Cells(i, 2) & """ AND nom_du_champ_filtré LIKE ""AS*"""
 
Set rstQuery = myDB.OpenRecordset(strSQL, dbOpenDynaset)

21/09/2011, 17h13
kelvir

Bah j'ai déjà le reste en ADO , donc ...
J'ai tenté d'adapter le code en ADO , pas de message d'erreur , mais rien ne s'affiche....

Mais la grande question :

J'ai crée deux requetes dans Access , la première filtre sur une chaine de caractère et l'autre sur "AS*" .

ADO arrive à appeler la requete avec la chaine de caractère , mais pas celle avec "AS*" ... (Pas de message d'erreur , mais rien ne s'affiche )

Est ce normal ?
21/09/2011, 17h33
Sclarckone

Citation:

Envoyé par kelvir

ADO arrive à appeler la requete avec la chaine de caractère , mais pas celle avec "AS*" ... (Pas de message d'erreur , mais rien ne s'affiche )

Si rien ne s'affiche, ne serait-ce pas parce que la requête ne retourne aucun enregistrement?

Avec DAO, pour tester si le recordset ne contient aucun enregistrement, il faut faire comme ça (ça doit être très similaire avec ADO):

Code:

If rst.BOF And rst.EOF

Bonjour,

As essayé comme cela

Code:

1
2
3
4
5
With rs
    .ActiveConnection = con
    .Open " SELECT [Composant] FROM nomenclature WHERE Article = '" & Sheets("ListeArticle").Cells(i, 2) & "' and [composantnomenclature.nomenclature] like 'AS*'"
 
End With

Code:

1
2
3
4
5
With rs
    .ActiveConnection = con
    .Open " SELECT [Composant] FROM nomenclature WHERE Article = '" & Sheets("ListeArticle").Cells(i, 2) & "' and Left([composantnomenclature.nomenclature],2) = 'AS'"
 
End With

22/09/2011, 08h00
kelvir

Ca fonctionne avec une legère modif'

Code:

rs.Open " SELECT [Composant] FROM nomenclature WHERE Article = '" & Sheets("ListeArticle").Cells(i, 2) & "' and Left(composantnomenclature,2) = 'AS'"

Merci à tous !