Discussion :

[kelvir]

Bonjour ,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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