Requête SQL Direct et paramètre variable

Bonjour,

J'utilise une bdd access pour accéder à une source oracle. pour celà j'ai créé une connexion et utilise une requête de type "SQL Direct". jusque là pas de problème, la requête s'exécute et me renvoi bien les valeurs. cependant, les paramètres sont inscrits "en dur" et je les voudrais en variable sélectionnables à partir d'un formulaire.

J'ai bien trouvé l'option parameters "mon paramètre" format, mais visiblement le silo sur lequel je travail ne comprend pas cette syntaxe.

J'ai essayé en vba, mais je dois avoué que bien qu'ayant lu le tutoriel "connexion odbc" je n'arrive pas à mes fins.

Pour info, j'utilise le pilote "Oracle in HoraHome92" et le paramètre qui m'interesse est une date au format "aaaa-mm-dd"

Si quelqu'un à une solution, je l'en remercie d'avance :?

Bonjour,

Suite des évènements :j'ai trouvé des exemples de code pour des connexions dsn sql serveur, pour mysql, fait plein de tests à l'aide des tutoriels "définition et manipulation de données avec DAO" et "connexion ODBC" mais sans succés :(

Pourriez-vous me fournir un bout de code vba permettant de se connecter à une source ODBC et de lancer une requête SQL (via access) ?

Merci d'avance

Bonsoir,

Je ne pense pas qu'une requête SQL-Direct puisse être paramétrable comme une requête Access standard.

Mais on peut manipler le code SQL en VBA.

Exemple :
J'ai un formulaire avec une zone de texte txtPays et un bouton CmdOuvrirRequeteSQLdirect.
Je tape le début d'un nom de pays dans la zone de texte, puis en cliquant sur le bouton, je vais modifier le code de la requête pour y intégrer mon paramètre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub CmdOuvrirRequeteSQLdirect_Click() Dim db As DAO.Database, qdef As DAO.QueryDef Dim strNomRequete As String, strSQL As String   ' Nom de l'objet requête Access SQL-Direct strNomRequete = "sqlsvrClients" ' Code SQL de la requête SQL-Direct strSQL = "SELECT * FROM Clients" & vbCrLf ' On intègre le paramètre (ici zone de texte txtPays) strSQL = strSQL & "WHERE Pays LIKE '" & Me.txtPays & "%'"   ' On ferme la requête si elle est déjà ouverte en ' mode feuille de données DoCmd.Close acQuery, strNomRequete ' On référence la base de données en cours Set db = CurrentDb ' on référence un objet QueryDef sur la requête SQL-Direct Set qdef = db.QueryDefs(strNomRequete) ' on modifie le code SQL de la requête SQL-Direct qdef.SQL = strSQL Set qdef = Nothing Set db = Nothing ' on ouvre la requête DoCmd.OpenQuery strNomRequete   End Sub

---

A+

Merci beaucoup LedZep !

Ta méthode fonctionne à merveille !

Merci encore :yaisse2: