Syntaxe SQL avec méthode ADO

Version imprimable

11/04/2008, 10h26
Elremmiz

Syntaxe SQL avec méthode ADO

Bonjour le forum,

Petite question rapide mais je n'arrive pas à voir comment faire :)

Je lis des données dans un classeur fermé, mais la syntaxe de ma requête n'est pas bonne. Un SELECT * FROM [" & NomFeuille & "$] marche très bien, mais je dois rajouter un WHERE, avec la valeur d'une variable :

Code:

texte_SQL = "SELECT * FROM [" & NomFeuille & "$] WHERE" & Range("B4:B100").Text = "& D"

Je pense que le problème vient de la variable D que j'ai mal intégré à la requête.

Merci d'avance !
11/04/2008, 10h38
Abed_H

Bonjour
si la variable D est string

Code:

Sql = "SELECT * FROM [" & NomFeuille & "$] WHERE Range("B4:B100").Text = '"& D & "'"

Abed_H :king:
11/04/2008, 10h45
Elremmiz

Merci de ta réponse ! J'ai mis ta requête à la place de la mienne, mais il me marque erreur de syntaxe :(

il faut que je mette automatiquement

Code:

WHERE" & Range("B4:B100").Text

Les dquote et le et commercial sont obligatoires. j'ai laissé la suite, mais ça me met la même erreur à l'exécution, à ce niveau là :

Code:

Set Rst = Cn.Execute(texte_SQL)

--> Instruction SQL Non Valide...

Vive les requêtes :)
11/04/2008, 11h05
cafeine

Hello,

mais que renvoie : Range("B4:B100").Text ?

si le champ B4:B100 a un nom exemple Code tu indique ce nom.

Code:

Sql = "SELECT * FROM [" & NomFeuille & "$] WHERE Code = '"& D & "'"

voici un exemple

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
Sub SelectionDonnées()	
  Dim Cn As ADODB.Connection	
  Dim Rst As ADODB.Recordset	
        Dim Feuille As String, strSQL As String	
        Dim Code As String	
        Feuille = "Feuil3"	
 
    Code = "D1403"	
    fichDest = ThisWorkbook.FullName	
 
    Set Cn = New ADODB.Connection	
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _	
               "Data Source=" & fichDest & ";" & _	
               "Extended Properties=""Excel 8.0;HDR=YES;IMEX=2;"""	
 
 strSQL = "Select * from [" & Feuille & "$] WHERE Codec = '" & Code & "' "	
 
        Set Rst = New ADODB.Recordset	
        Set Rst = Cn.Execute(strSQL)	
 
 Range("A15").CopyFromRecordset Rst	
 Cn.Close	
 Set Cn = Nothing	
End Sub

Bonne journée

Abed_H :king:

11/04/2008, 11h15
Elremmiz

Alors Range("B4:B100") contient donc des cellules contenant des chaînes.
Par exemple les jours de la semaine. Dans ma variable D je mets "Mardi".
En clair ma requête serait de prendre tout ce qui figure sur la feuille, uniquement pour ce qui concerne le Mardi ^^

La variable "Code" est donc ma variable "D".
11/04/2008, 11h25
Jean-Pierre49

bonjour

il me semble Que Where ne compare que deux valeurs uniques
La tu teste x valeurs à une autre unique

il faudrait à mon sens faire une sous requête ou boucler sur ta plage
avec un test sur ta valeur recherchée
et effectuer ta requête a chaque fois que le test est vrai

Jean-Pierre
11/04/2008, 11h29
Elremmiz

Bien sûr je suis bête !

Merci Jean Pierre :)

Je vous tiens au courant dans la journée.
11/04/2008, 17h18
AlainTech

Quel que soit le résultat de tes recherches, je vois, malgré tout, des fautes de syntaxe dans la requête.

Code:

... NomFeuille & "$] WHERE" & Range("B4:B100").Text ...

Il manque un espace:

Code:

... NomFeuille & "$] WHERE " & Range("B4:B100").Text ...

et

Code:

... "$] WHERE" & Range("B4:B100").Text = "& D"

Les guillemets et le & sont mal placés:

Code:

... "$] WHERE" & Range("B4:B100").Text & " = " & D

Eventuellement ajouter les single quotes comme conseillé plus haut.

Pour voir la "tête" que peut avoir une requête avec paramètres calculés, il est toujours bon d'en faire un debug.print.