.Filter sur ADODB : Impossible de trouver l'objet dans la connexion [Résolu]

[kelvir]

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

[Sclarckone]

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).

[kelvir]

La requete fonctionne mais je n'arrive pas à l'appeler depuis excel

[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.

[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

[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

[kelvir]

J'ai déjà essayé mais visiblement ca ne fonctionne pas

[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

[Sclarckone]

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)

[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 ?

[Sclarckone]

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

[jfontaine]

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

ou

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

[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 !