[SQL-VBA] Variable en parametre de requete SQL

Bonsoir,
Question déjà posée (http://access.developpez.com/faq/?page=SQL#ReqParamVar) mais je ne vous cacherais pas que je n'ai pas compris ce code.:oops:
Est-on forcément obligé de passer par Querydef pour utiliser une variable en tant que paramètre WHERE dans une requête SQL ??
Si la réponse est non, comment la définir dans la reqête?
exemple:

Code:

---

1 2 3 4

Dim rst as DAO.Recordset Dim MaVariable as string   Set rst = CurrentDb.OpenRecordset("SELECT * FROM MaTable WHERE Colonne= MaVariable)

---

Merci de vos futures explications.

Salut,
avant tout il faudrait savoir ce que tu comptes faire exactement.


Attention à la formulation des chaines qui sont interprétées comme des expressions SQL. Elle obéissent à une syntaxe rigoureuse.

en attendant, de quel type est MaVariable?

@+
ps: l'objet QueryDef

Alors en fait dans mon cas précis , il est vrai que MaVariable (que j'ai défini en String) est en réalité une date mais pour exposer de facon plus générale j'avais choisi de demander avec une string....mais bon partons sur une date alors...:lol:

Mon but ici est simple:
Je rentre une date à la main que je recupere dans une variable (MaVariable)
Et je veux ouvrir l'enregistrement qui y correspond dans la table (MaTable) et dans la Colonne (Colonne).

Maintenant, j'ai été voir le (tres bon) lien que tu m'as donné:
Dis moi si je me trompe, mais ca devrait donné quelquechose du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim Db As DAO.Database Dim MaVariable as Date Dim Qdf As DAO.QueryDef Dim Rst As DAO.Recordset Dim SQL as string   MaVariable = Forms![MonFormumlaire]![datetextbox].Value Set Db = CurrentDb SQL = "SELECT * FROM MaTable" Db.CreateQueryDef "Requete1", SQL Set Qdf = Db.QueryDefs("Requete1") Qdf.Parameters("Colonne").Value = "#MaVariable#" Set Rst = Qdf.OpenRecordset   db.close qdf.close rst.close set db = nothing set qdf = nothing set rst = nothing

---

bonjour, je te propose ceci :

Code:

---

Qdf.Parameters("Colonne").Value = "#" & MaVariable & "#"

---

alors j'ai essayé ce que tu m'as dit jpcheck, mais hélas j'ai une erreur qui me dit:
Erreur d'exécution '3265':
Elément non trouve dans cette collection.

Alors je me suis dit, peut-etre une erreur dans la valeur affecté dans ma variable et donc il ne trouve pas la valuer dans ma table, mais non car je fais un

Code:

---

msgbox MaVariable

---

et le résultat renvoyé est bon.
Mais n'y a t-il pas une histoire de date US avec jour et mois inversé ?

bon ben à ce moment là tu intègres directement dans ta requête SQL le

Code:

---

..."WHERE MaDate = #" & MaVariable &"#"

---

J'ai donc supprimé la ligne:

Code:

---

Qdf.Parameters("Colonne").Value = "#MaVariable#"

---

et j'ai edité ma requete et rajouté :

Code:

---

WHERE MaDate = "#" & MaVariable & "#"

---

mais maintenant il me dit que j'ai trop peu de parametres a la ligne:

Code:

---

Set Rst = Qdf.OpenRecordset

---

alors que si j'ouvre une méthode OpenRecordset avec un objet QueryDef tous les parametres qui suivent sont (normalement) facultatifs... c'est à n'y rien comprendre...

Bonjour à Zawawi et bien sûr à Faw et jpcheck ;)

Je vais donner un petit coup de pouce supplémentaire (le genre d'infos hyper rabachée sur le forum :mouarf:).

Dans le cas d'une requête SQL prise en charge par Jet, une valeur littérale de date doit respecter un certain format :
(1) le caractère # pour encadrer la date
(2) respecter l'ordre mois/jour/année (l'emploi de la fonction Format est recommandé).

Ce qui nous donne:

Code:

---

SQL = "SELECT * FROM MaTable WHERE Colonne = #" & Format(MaVariable, "dd/mm/yyyy") & "#"

---

Citation:

---

Envoyé par Zawawi

Code:

---

WHERE MaDate = "#" & MaVariable & "#"

---

mais maintenant il me dit que j'ai trop peu de parametres a la ligne:

Code:

---

Set Rst = Qdf.OpenRecordset

---

---

Eh bien oui, tu t'ais trompé en recopiant tel quel l'exemple de jpcheck.
Il fallait conserver le nom de champ Colonne (et non pas MaDate).

Bon courage.
_

Hello,

JBO a parfaitement répondu, mais pour info il y a un tuto pour ça :
http://cafeine.developpez.com/access...el/debugprint/

Bonsoir JBO,
Bien vu pour MaDate, mais le probleme c'est que ca je l'avais vu aussi et je l'avais aussi modifié dans mon code en le remplacant par Colonne,
d'où l'erreur suivante que je recevais trop peu de parametres a la ligne:

Code:

---

Set Rst = Qdf.OpenRecordset

---

merci quand même