pb d'execution de requete

**hebh** · 25/10/2010, 15h02

Bonjour,

j'ai fait une requete qui fonctionne bien mais j'ai voulu l'utiliser dans une autre requete et là ca fonctionne plus. Ci-dessous 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
19
20
 
 
Dim rq As String
Dim rq1 As String
 
rq = "SELECT DISTINCT clients.[ID PCET], clients.[Fréquence transmission], ((Left([Date de transmission],8))) AS [date transmission] FROM clients INNER JOIN ftp ON clients.[ID PCET] = ftp.[ID PCET]"
rq = rq & "Where Left([Date de transmission], 8) >" & var1
rq = rq & "and Left([Date de transmission], 8) < " & var2
 
 
 
rq1 = "TRANSFORM Count(rq.[Fréquence transmission]) AS [CompteDeFréquence transmission]"
rq1 = rq1 & "SELECT rq.[ID PCET], rq.[Fréquence transmission] AS [Total de Fréquence transmission]"
rq1 = rq1 & " From rq"
rq1 = rq1 & "GROUP BY rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "ORDER BY rq.[Fréquence transmission]"
rq1 = rq1 & "PIVOT rq.[date transmission]"
 
 
reqcroix.Open rq1, cnx, 1, 1

Merci d'avance

**OhMonBato** · 25/10/2010, 15h36

Bonjour,

utilises les outils de débogage de VB, mets un point d'arret (F9) sur ta ligne "rq = "SELECT DISTINCT clients.[ID PCET], clients.[Fréquence transmission], ((Left([Date de transmission],8))) AS [date transmission] FROM clients INNER JOIN ftp ON clients.[ID PCET] = ftp.[ID PCET]"
et quand le programme s'arrête dessus, fais une progression pas à pas (F8) et regarde ce que vaut ta variable 'rq'.

**hebh** · 25/10/2010, 16h08

Je pense que l'erreur est dans la 2éme requete car si je mets ce code ca fonctionne bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Dim rq As String
 
 
rq = "SELECT DISTINCT clients.[ID PCET], clients.[Fréquence transmission], ((Left([Date de transmission],8))) AS [date transmission] FROM clients INNER JOIN ftp ON clients.[ID PCET] = ftp.[ID PCET]"
rq = rq & "Where Left([Date de transmission], 8) >" & var1
rq = rq & "and Left([Date de transmission], 8) < " & var2
 
 
reqcroix.Open rq, cnx, 1, 1

**OhMonBato** · 25/10/2010, 16h34

J'avoue que j'ignorais qu'on pouvait mettre un "Left" dans une requête mais effectivement, c'est autorisé. Par contre on a vraiment le droit d'écrire : rq.[Fréquence transmission] ?
Même si c'est autorisé, je pense qu'il vaudrait mieux mettre quelquechose du style :
rq1 = "TRANSFORM Count(" & rq.[Fréquence transmission] & ") ..

**hebh** · 26/10/2010, 10h52

j'ai essayé la solution mais ca marche toujours pas

il affiche : Ce pilote ODBC ne prend pas en charge les propriétés demandés

Code :

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

1
2
3
 
 
reqcroix.Open rq1, cnx, 1, 1

Est ce que je dois changé les paramètres d'ouverture du recordset???

**OhMonBato** · 26/10/2010, 10h58

Tant qu'à faire, peux tu nous montrer le code de ta requête maintenant que tu l'as modifié. Je ne suis pas spécialiste du tout en SQL mais peut être que d'autres pourrront t'aider. Si tu ne montres pas le code, ce sera plus difficile.

**hebh** · 26/10/2010, 11h04

Voici le code il affiche toujours le même message d'erreur sur l'ouverture de recordset

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 rq As String
Dim ts As String
Set reqcroix = New ADODB.Recordset
 
 
 
rq = "SELECT DISTINCT clients.[ID PCET], clients.[Fréquence transmission], ((Left([Date de transmission],8))) AS [date transmission] FROM clients INNER JOIN ftp ON clients.[ID PCET] = ftp.[ID PCET]"
rq = rq & "Where Left([Date de transmission], 8) >" & var1
rq = rq & "and Left([Date de transmission], 8) < " & var2
 
 
rq1 = "TRANSFORM Count(rq.[Fréquence transmission]) AS [CompteDeFréquence transmission]"
rq1 = rq1 & "SELECT rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "From rq"
rq1 = rq1 & "GROUP BY rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "ORDER BY rq.[Fréquence transmission]"
rq1 = rq1 & "PIVOT rq.[date transmission];"
 
reqcroix.Open ts, cnx, 1, 1

**OhMonBato** · 26/10/2010, 11h09

Je ne vois aucune modification dans le code, en dehors de ce mélange entre ts et rq1. As tu essayé ce que je te suggérais hier ?
Personnellement je ferais un essai avec une requête plus simple pour commencer, juste histoire de vérifier la syntaxe.

**hebh** · 26/10/2010, 11h13

oui j'ai déjà essayé avec votre méthode mais l'erreur est devenu sur le code car il comprend pas les '&'.

vous penser quoi sur l'ouverture du recodset?

**OhMonBato** · 26/10/2010, 11h25

Je ne pense rien, c'est définitivement pas mon truc

Il y a certainement une erreur de syntaxe dans ta requête rq1 mais c'est hors de mes compétences.

**hebh** · 26/10/2010, 11h28

la requête fonctionne sur access alors je pense pas que l'erreur est là.
en tout cas merci.

**OhMonBato** · 26/10/2010, 11h39

La requête fonctionne sur Access car Access reconnait le nom des requêtes précédemment crées. Ici 'rq' n'est rien d'autre qu'une variable de type String, ça m'étonnerait donc fortement qu'elle soit reconnue telle que ta requête rq1 est écrite, mais je peux bien sûr me tromper.

**hebh** · 26/10/2010, 11h52

alors la question comment utiliser deux requêtes sql sous vb??????

**iclic** · 26/10/2010, 14h22

Bonjour,

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
 
Dim rq As String
Dim ts As String
Set reqcroix = New ADODB.Recordset
 
 
 
rq = "SELECT DISTINCT clients.[ID PCET], clients.[Fréquence transmission], ((Left([Date de transmission],8))) AS [date transmission] FROM clients INNER JOIN ftp ON clients.[ID PCET] = ftp.[ID PCET]"
rq = rq & "Where Left([Date de transmission], 8) >" & var1
rq = rq & "and Left([Date de transmission], 8) < " & var2
 
 
rq1 = "TRANSFORM Count(rq.[Fréquence transmission]) AS [CompteDeFréquence transmission]"
rq1 = rq1 & "SELECT rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "From rq"
rq1 = rq1 & "GROUP BY rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "ORDER BY rq.[Fréquence transmission]"
rq1 = rq1 & "PIVOT rq.[date transmission];"
 
reqcroix.Open ts, cnx, 1, 1

Dans ton code ,je ne vois aucune valeur pour ts
donc tu ouvres un recordset avec comme requête une valeur nulle puisque le string ts="" ???
Où alors le code que tu nous donnes est incomplet.

**hebh** · 26/10/2010, 14h28

je suis désole c'était une faute de frappe ej veux afficher la dernière requête

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 rq As String
Dim ts As String
Set reqcroix = New ADODB.Recordset
 
 
 
rq = "SELECT DISTINCT clients.[ID PCET], clients.[Fréquence transmission], ((Left([Date de transmission],8))) AS [date transmission] FROM clients INNER JOIN ftp ON clients.[ID PCET] = ftp.[ID PCET]"
rq = rq & "Where Left([Date de transmission], 8) >" & var1
rq = rq & "and Left([Date de transmission], 8) < " & var2
 
 
rq1 = "TRANSFORM Count(rq.[Fréquence transmission]) AS [CompteDeFréquence transmission]"
rq1 = rq1 & "SELECT rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "From rq"
rq1 = rq1 & "GROUP BY rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "ORDER BY rq.[Fréquence transmission]"
rq1 = rq1 & "PIVOT rq.[date transmission];"
 
reqcroix.Open rq1 , cnx, 1, 1

**iclic** · 26/10/2010, 14h42

Ensuite et de plus ton code n'est pas logique

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
 
Dim rq As String
Dim ts As String
Set reqcroix = New ADODB.Recordset
 
 
 
rq = "SELECT DISTINCT clients.[ID PCET], clients.[Fréquence transmission], ((Left([Date de transmission],8))) AS [date transmission] FROM clients INNER JOIN ftp ON clients.[ID PCET] = ftp.[ID PCET]"
rq = rq & "Where Left([Date de transmission], 8) >" & var1
rq = rq & "and Left([Date de transmission], 8) < " & var2
 
 
rq1 = "TRANSFORM Count(rq.[Fréquence transmission]) AS [CompteDeFréquence transmission]"
rq1 = rq1 & "SELECT rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "From rq"
rq1 = rq1 & "GROUP BY rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "ORDER BY rq.[Fréquence transmission]"
rq1 = rq1 & "PIVOT rq.[date transmission];"
 
reqcroix.Open ts, cnx, 1, 1

Code :

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

1
2
3
 
rq1 = rq1 & "SELECT rq.[ID PCET], rq.[Fréquence transmission]"
rq1 = rq1 & "From rq"

rq est une variable chaîne de caractères: dans " SELEc rq ...etc" rq sera reconnu comme étant les lettres rq et non comme la variable chaîne de caractères d'où déjà mot inconnu pour SQL

**iclic** · 26/10/2010, 14h50

Code :

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

1
2
 
rq1 = "TRANSFORM Count(rq.[Fréquence transmission]) AS [CompteDeFréquence transmission]"

donc tu dois déjà transformer ta requête dans le genre

Code :

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

1
2
 
rq1 = "TRANSFORM Count(" & rq  & "client.[Fréquence transmission]) ... etc

et de même avec les autres rq et tu vrras déjà plus clair

A+

**hebh** · 26/10/2010, 14h53

vous avez raison car rq est déclaré string mais moi je veux l'utiliser comme requête et là c'est le problème

**iclic** · 26/10/2010, 15h02

Code :

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

1
2
3
4
5
6
7
 
rq1 = "TRANSFORM Count(" & rq & "clients.[Fréquence transmission]) AS [CompteDeFréquence transmission]"
rq1 = rq1 & "SELECT " & rq & "clients.[ID PCET]," &  rq & "clients.[Fréquence transmission]"
rq1 = rq1 & "From " & rq 
rq1 = rq1 & "GROUP BY " & rq  & "clients.[ID PCET]," &  rq & ".[Fréquence transmission]"
rq1 = rq1 & "ORDER BY " & rq & ".[Fréquence transmission]"
rq1 = rq1 & "PIVOT " & rq & "clients.[date transmission];"

transformer ta requête comme ceci et ...à vérifier

**hebh** · 26/10/2010, 15h17

merci iclic mais j'ai toujours le même problème

j'ai même change la deuxième requête par une simple et ca marche pas voici ce que j'ai mis:

Code :

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

1
2
 
rq1 = "SELECT distinct" & rq & "clients.[ID PCET] From" & rq

pb d'execution de requete

VB 6 et antérieur

Discussions similaires

Partager

Partager