Syntaxe de requête dans un Recordset

[105rn2]

Bonjour,
Grâce aux excellent tutoriaux glanés sur ce site, j'aimerais utiliser les Recordset pour exécuter des requêtes d'ajout, ... en SQL
par contre, j'ai un pb de syntaxe sur lequel je bloque depuis un bon moment :

------ Ce code me retourne bien ce que j'attends :

Code :

1
2
3
4
5
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("SELECT PAY_ID, PAY_LIB FROM TE_PAYS_PAY WHERE PAY_ID=77", dbOpenDynaset)

----- Par contre celui ci bloque :

Code :

1
2
3
4
5
6
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim Monpays As Integer
Set oDb = CurrentDb
Monpays = 77
Set oRst = oDb.OpenRecordset("SELECT PAY_ID, PAY_LIB FROM TE_PAYS_PAY WHERE PAY_ID=Monpays", dbOpenDynaset)

Par avance merci et bonne fin de journée
Bertrand

[GAYOT]

Bonjour
De quel format est "Pays_Id" ?

[vodiem]

Salut GAYOT et bienvenu 105rn2,

outre qu'il faudrait plutot écrire: (ou doubler les guillemets à la place de chaque apostrophe)

Code SQL :

WHERE PAY_ID='Monpays'

il est fort probable que le type de PAY_ID ne correspond pas.
tu peux utiliser un DLookUp() éventuellement dans ce cas.

[105rn2]

Re bonjour,
PAY_ID est le N° auto qui sert de clé de la table TE_PAYS_PAY
Je voudrais trouver la syntaxe correcte pour faire s’exécuter des requêtes un peu plus compliquée (dupli de lignes,...) c'est pourquoi j'essaie de passer par un recordset (et pas dlookup)

Ayant maintenant un doute sur la compatibilité MonPays et PAY_ID, j'ai essayé

Code :

Set oRst = oDb.OpenRecordset("SELECT PAY_ID, PAY_LIB FROM TE_PAYS_PAY WHERE PAY_ID= max(PAY_ID)", dbOpenDynaset)

J'espérais ainsi trouver le dernier enregistrement, mais là aussi ça bloque

Je pense qu'effectivement il faut mettre des ' ou des "" ou des ( quelque part mais je n'ai pas trouvé la combinaison gagnante

Par avance merci de votre aide
Bertrand

[Philippe JOCHMANS]

Bonjour

MonPays étant une variable il faut le sortir de la chaîne SQL et le rajouter :

Code :

Set oRst = oDb.OpenRecordset("SELECT PAY_ID, PAY_LIB FROM TE_PAYS_PAY WHERE PAY_ID=" & Monpays & ";", dbOpenDynaset)

Philippe

[105rn2]

Re
Merci beaucoup, ça marche beaucoup mieux comme cela !
(mais cela ne s'invente pas vraiment :-)
Et au risque d'abuser, est ce qu'on peut faire des requêtes imbriquées ?

Comment écrirait t on ce code extrait de l'excellent tutorial de sqlpro ?

Code sql :

1
2
3
4
5
6
INSERT INTO   T_CLIENT (CLI_ID, 
                        TIT_CODE,       CLI_NOM, CLI_PRENOM)
        SELECT PRP_ID + (SELECT MAX(CLI_ID) 
                         FROM T_CLIENT),
                         PRP_CODE_TITRE, PRP_NOM, PRP_PRENOM
        FROM   T_PROSPECT

peux t on garder une présentation indentée, et comment traduire le retour à la ligne ?

Merci encore, ça m'ouvre beaucoup de possibilités !
Bonne soirée