Requête SQL dans une macros Excel

Version imprimable

22/05/2014, 09h04
Lebijuu

Requête SQL dans une macros Excel
Bonjour
J’ai un petit soucis avec une requête SQL dans une macro Excel, j'essaye de récupérer une date dans Excel et qu'elle serve de condition pour la requête SQL. J'ai déjà essayé avec ça :
Code:

1 2 3 valeur = Cells(1, 6) M.DATE_DEBUT_MVT = '" & valeur & "'
Mais ça ne fonctionne pas ..
Merci de votre aide.
22/05/2014, 09h20
Invité

Bonjour,

tu parle de requête SQL mais tu ne précises pas le type de base de données.
Sql Access, Sql Serveur, Sql MySql,...?

Je ne sais pas trop quel type c'est, je vous envoie mon code en espérant que vous puissiez y voir plus clair :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
   Set rs = New ADODB.Recordset
 
 
 
    Server_Name = "X" 
    Database_Name = "XX"
    User_ID = "XXX" 
    Password = "XXXX" 
    SQLStr = "SELECT S.NO_SEJOUR..... WHERE M.DATE_DEBUT_MVT = '" & valeur & "' "
 
 
    Set Cn = New ADODB.Connection
    Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
 
 
    rs.Open SQLStr, Cn, adOpenStatic

Grosse communauté useless !!!

soluce :

Code:

1
2
3
4
 
Dim cell_value As Date    
cell_value = Sheets("Feuil1").Range("A35")
M.DATE_DEBUT_MVT = '" & cell_value & "'

cia

23/05/2014, 13h58
Invité
Citation:
Envoyé par Lebijuu

Grosse communauté useless !!!

soluce :

Code:

1 2 3 4 Dim cell_value As Date cell_value = Sheets("Feuil1").Range("A35") M.DATE_DEBUT_MVT = '" & cell_value & "'

cia
comme tu es coutumier du fait:fessee:

ceci dit dans ta requête je ne vois rien d'étrange comme je ne vois pas la jointure entre S et M