Discussion :

[jokenjo]

Bonjour
Je cherche a faire une requete avec comme parametre la valeur de ma cellule:
voici mon code

Code :

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

1
2
3
4
 
 
sql= "select* from my_table where id= 2 AND annee='(Feuil1.Range("B").valeur+1)'"
Set rec = db.OpenRecordset(sql, DAO.dbOpenSnapshot)

merci

[cafeine]

Hello,

regarde ce sujet :
http://www.developpez.net/forums/sho...d.php?t=417799

[jokenjo]

Hello,

regarde ce sujet :
http://www.developpez.net/forums/sho...d.php?t=417799

Hi cafeine
ces bien le lien , mais ca ne repond pas a ma question ,ou du moins je nai pas bien saisi la methode..
Je cherche a exporte les valeurs de ma table access qui repond a ces criteres..
merci

[cafeine]

Ok, mais tu es dans Access ou dans Excel ?

[jokenjo]

Ok, mais tu es dans Access ou dans Excel ?

Hi
je suis dans excel (vba)
merci

[jokenjo]

Hi
voici ce que jai trouve et cela marche

Code :

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

1
2
sql = "select* from my_table where id= 2  AND annee= " & Feuil1.Range("B5").Value & " + " & 1 & ""
Set rec = db.OpenRecordset(sql, DAO.dbOpenSnapshot)

merci

[Lynx92]

Bonjour,

Il faut utiliser l'objet Parameter c 'est plus puissant .

Exemple ci-dessous

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 Function SqlAnalytiqueUg() As String
Dim Chaine As String
    Chaine = ""
    Chaine = Chaine & "PARAMETERS VarUg Short, VarAn Short, VarMois Short;"
    Chaine = Chaine & "SELECT DISTINCTROW "
    Chaine = Chaine & "TITRE.IdTitre, "
    Chaine = Chaine & "TITRE.Lib AS LibTitre, "
    Chaine = Chaine & "ENV.IdEnv, ENV.Lib AS LibEnv, "
    Chaine = Chaine & "UR.IdUr, UR.Lib AS LibUr, "
    Chaine = Chaine & "Sum(DEPENSE.Montant) AS TotalMontant, "
    Chaine = Chaine & "Sum(DEPENSE.MontantPrec) AS TotalMontantPrec, "
    Chaine = Chaine & "Sum(CREDIT.Montant) AS TotalCredit "
    Chaine = Chaine & "FROM "
    Chaine = Chaine & "(TITRE INNER JOIN ENV ON TITRE.IdTitre = ENV.IdTitre) INNER JOIN (POLE INNER JOIN ((UG INNER JOIN ((UR INNER JOIN COMPTE ON UR.IdUr = COMPTE.IdUr) INNER JOIN CREDIT ON COMPTE.IdCpte = CREDIT.IdCpte) ON UG.IdUg = CREDIT.IdUg) INNER JOIN DEPENSE ON (UG.IdUg = DEPENSE.IdUg) AND (COMPTE.IdCpte = DEPENSE.IdCpte)) ON POLE.IdPole = UG.IdPole) ON ENV.IdEnv = UR.IdEnv "
    Chaine = Chaine & "WHERE "
    Chaine = Chaine & "UG.IdUg = [VarUg] "
    Chaine = Chaine & "And DEPENSE.An = [VarAn] "
    Chaine = Chaine & "And DEPENSE.Mois = [VarMois] "
    Chaine = Chaine & "GROUP BY "
    Chaine = Chaine & "TITRE.IdTitre, TITRE.Lib, ENV.IdEnv, ENV.Lib, UR.IdUr, UR.Lib;"
    SqlAnalytiqueUg = Chaine
 
End Function
 
Private Function RequeteMdb()
Dim AppMdb As New DAO.DBEngine
Dim MdbData As Database
Dim sDir As String, sChaineSql As String
Dim Qry As QueryDef
    sDir = ThisWorkbook.Path
    ' Requete Analytique Par Ug
    MdbData.CreateQueryDef "QryAnalytiqueUg", SqlAnalytiqueUg()
    MdbData.Close
 
End Function
 
Private Function ExecuteRequeteMdb()
 
Dim MdbData As Database, QryAnalyse As QueryDef, RsAnalyse As Recordset
 
    Set MdbData = AppMdb.OpenDatabase(sDir & "\data.mdb")
        Set QryAnalyse = MdbData.QueryDefs("QryAnalytiqueUg")
        QryAnalyse.Parameters("VarUg") = sUg ' ----> Cells(1,2) par exemple
        QryAnalyse.Parameters("VarAn") = CmbAn.Text
        iMois = CmbMois.ListIndex + 1
        QryAnalyse.Parameters("VarMois") = iMois
 
        Set RsAnalyse = QryAnalyse.OpenRecordset
 
 
End function

La requete est enregistrée et compilée dans la base c'est donc plus rapide.

Il faut le code en fonction de la requete

Bon courage