Discussion :

[apnw7931]

Bonjour,

me voici avec un nouveau dilemme..

J'ai une requête sql (passtrough query) dans ma base de donnée.
J'aimerai y mettre un paramètre, mais je n'y arrive pas.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
Dim db              As DAO.Database
Dim qry             As DAO.QueryDef
Dim rs               As DAO.Recordset
Dim strSQL         As String
 
Set db = CurrentDb
Set qry = db.CreateQueryDef("")
 
strSQL = "SELECT * FROM PassThroughQuery"
strSQL = Replace(strSQL, "<PARAMETRE>", "123")
 
qry.sql = strSQL
 
Set rs = qry.OpenRecordset()
 
xlBook.Sheets("Sheet1).Range("A1").CopyFromRecordset rs

Le problème, c'est qu'il ne me remplace pas <PARAMETRE> dans ma requete par "123"

Du coup, je n'ai aucun résultat dans ma feuille EXCEL, puisqu'il lui manque un argument (123) (il n'a pas changer ma requete SQL).

Une aide ?

[Jean-Philippe André]

Salut,

un peu de lecture depuis la me semble opportune:
http://access.developpez.com/faq/?page=SQL#ReqParamVar

[LedZeppII]

Bonsoir,

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim db              As DAO.Database
Dim qry             As DAO.QueryDef
Dim rs              As DAO.Recordset
Dim strConnect      As String
Dim strSQL          As String
 
Set db = CurrentDb
 
' Récupère chaîne de connexion de la requête SQL Direct modèle
strConnect = db.QueryDefs("PassThroughQuery_Modele").Connect
' Récupère SQL de la requête SQL Direct modèle
strSQL = db.QueryDefs("PassThroughQuery_Modele").SQL
' Remplace <PARAMETRE> par une valeur
strSQL = Replace(strSQL, "<PARAMETRE>", "FR")
' Crée requête temporaire
Set qry = db.CreateQueryDef("", strSQL)
' Définit la chaîne de connexion de la requête temporaire
qry.Connect = strConnect
' Exécute la requête temporaire et renvoie le jeu de donnée
' dans un recordset DAO.
Set rs = qry.OpenRecordset()

PassThroughQuery_Modele est une requête SQL Direct (Pass through) modèle.
Elle doit avoir une connexion ODBC fonctionnelle.

A+

[apnw7931]

Merci LedZeppII, votre réponse semble plus correspondre à mon soucis que la solution proposée par jpcheck.

N'etant pas au bureau, j'essayerai demain.
Mais pour ne pas attendre jusqu'à demain, j'aimerai être sur de ne pas dire de bêtise.

J'ai une requête SQL (sans paramètre) que j'ai codé avec SQL Server 2005.

Code :

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

1
2
Select *
FROM table_A

Je décide de travailler avec VBA. Donc je crée et sauvegarde une requête SQL (passtrough querry), nommée PassThrougQueryTest.
Je décide ensuite modifier la requête SQL et d'y insérer une clause avec paramètre :

Code :

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

1
2
3
Select *
FROM table_A
WHERE field1 = <PARAMETRE>

si je souhaite faire appel a cette requête, je fais donc comme suit ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim db              As DAO.Database
Dim qry             As DAO.QueryDef
Dim rs              As DAO.Recordset
Dim strConnect      As String
Dim strSQL          As String
 
Set db = CurrentDb
 
strConnect = db.QueryDefs("PassThrougQueryTest").Connect
strSQL = db.QueryDefs("PassThrougQueryTest").SQL
strSQL = Replace(strSQL, "<PARAMETRE>", "FR")
Set qry = db.CreateQueryDef("", strSQL)
 
qry.Connect = strConnect
 
Set rs = qry.OpenRecordset()
 
xlBook.Sheets("Sheet1).Range("A1").CopyFromRecordset rs

QUID ? Est ce que la requête PassThrougQueryTest est conservée avec field1 = <PARAMETRE> ? Car je souhaite gardé la requête telle quelle, avec <PARAMETRE>

En tout cas,merci pour vos aides.
C'est tres aimable.

[LedZeppII]

Oui, c'est ça.
La requête PassThrougQueryTest reste inchangée.
Le code ne s'en sert que pour obtenir la chaîne de connexion ODBC, et le texte de l'instruction SQL SELECT.
La ligne

Code :

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

Set qry = db.CreateQueryDef("", strSQL)

crée une requête temporaire (premier argument pour le nom de la requête est une chaîne vide),
avec une instruction SQL dérivée de celle de PassThrougQueryTest, dans laquelle <PARAMETRE> a été remplacé par une valeur littérale.

Attention à la syntaxe des valeurs littérales utilisées en tant que critères de sélection.
Dans mon exemple la requête SQL Direct était

Code transact-sql :

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

1
2
SELECT * FROM Clients
WHERE Pays LIKE '%<PARAMETRE>%'

Les guillemets simples encadrant la valeur de type texte étaient déjà présents.

A+

[apnw7931]

Rebonjour,

Arrivé à cette ligne

Code :

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

Set qry = db.CreateQueryDef("", strSQL)

j'ai un message d'erreur

Code :

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

1
2
Run-time error '3075':
Syntax error (missing operator) in query expression ".

EDIT : J'ai trouvé. Il s'agit d'un problème de parenthèse dans mon FROM. Etrange..
Voici le code correct.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SELECT *
 
FROM (dbo.table1 as a
 
	LEFT JOIN dbo.table2 as b
		ON (a.field3 = b.aaa)
		AND (a.field1= b.bbb))
 
	LEFT JOIN dbo.table3 as c
		ON (a.field3 = c.ccc)
		AND (a.field1= c.ddd)

Merci pour vos aides.
Ca fonctionne nickel.