Discussion :

[sidisadmir]

bonjour
je travaille avec visual studio 2010 .
mon application est reliée à une base de données access Mabase.mdb.
en vba je voudrais utiliser cette instruction:

Code :

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

1
2
3
4
5
6
 
dim appaccess as access.application
appaccess.opencurrentdatabase("monRepertoire\MaBase.mdb")
dim strsql as string
strsql="select * from MaTable where(((Matable.ID=?) and ((matable.année=?)"
appaccess.docmd.runsql(strsql,true)

mon problème c'est que je ne sais pas comment faire passer les paramètres utilisés à la commande RunSql.
si qlq un veut bien m'aider à résoudre ce problème
merçi

[marot_r]

Code :

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

strsql="select * from MaTable where(((Matable.ID=?) and ((matable.année=?)"

Autant que je sache, il faut mettre les valeurs voulues à la place de ? dans strSQL. RunSQL ne prend pas de paramètre.

A+

[sidisadmir]

bonjour
j'ai mis les valeurs voulues à la place de ? dans strSQL.
mais je reçois un message comme quoi il y'a une ambiguité dans les critères.

[marot_r]

As-tu Access sur ton poste ?

Si oui, le plus simple est de faire ta requête dans l'éditeur de requête puis de regader le code SQL qu'Access a créé. Après tu n'as plus qu'un copier/coller à faire.

A+

[sidisadmir]

bonjour
ma requette je l'ai crée à partir d'access et la voila :

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
 
Sub CreerUnetable
          dim appaccess as access.application
appaccess.opencurrentdatabase("monRepertoire\MaBase.mdb")
 
        Dim Strsql As String = "SELECT A.ChampA1, A.ChampA2, B.ChampB1," & _
  " A.ChampA3, A.ChampA4, A.ChampA5,  A.ChampA6," & _
  "  C.ChampC1, C.ChampC2, " & _
  " C.ChampC3, C.ChampC4, C.ChampC5, D.ChampD1, D.ChampD2, " & _
  "  E.ChampE1,  " & _
  " F.ChampF1, G.ChampG1, " & _
  " H.ChampH1, I.ChampI1   INTO Editnotes" & _
  " FROM (((((((C LEFT JOIN D ON C.ChampA6 = D.ChampA6) LEFT JOIN A" & _
  " ON (C.ChampA4 = A.ChampA4) AND (C.ChampA3 = A.ChampA3) " & _
  " AND (C.ChampA2 = A.ChampA2) AND (C.ChampA1 = A.ChampA1) " & _
  " AND (C.ChampA6 = A.ChampA6)) LEFT JOIN I " & _
  " ON A.ChampA4 = I.ChampA4) LEFT JOIN H ON A.ChampA3 = H.ChampA3)" & _
  " LEFT JOIN G ON A.CODEMATI = G.CODEMATI) LEFT JOIN J " & _
  " ON (A.ChampA7 = J.ChampA7) AND (A.ChampA4 = J.ChampA4) " & _
  " AND (A.ChampA3 = J.ChampA3)) LEFT JOIN (F LEFT JOIN E" & _
  " ON F.ChampF2 = E.ChampF2) ON A.ChampA2 = F.ChampA2)" & _
  " INNER JOIN B ON (C.ChampA1 = B.ChampA1) AND (C.ChampA2 = B.ChampA2)" & _
  " AND (C.ChampA3 = B.ChampA3) AND (C.ChampA4 = B.ChampA4) " & _
  " AND (C.ChampC8 = B.ChampC8) WHERE(((A.ChampA1) =?) and ((A.ChampA2) = ?) and ((A.ChampA3) = ?) " & _
  " AND ((A.ChampA4) =?) AND ((A.ChampA5) =? ) AND ((A.ChampA6) = ?))" & _
  " ORDER BY A.ChampA8, A.ChampA6, A.ChampA9;"
appaccess.docmd.Runsql

[marot_r]

OK, pas très parlant les noms de tables et de champs mais comme tu vois assez différent de ce que tu avais écrit.

J'ai supposé que tes paramètres sont des nombres entiers.

Si tes paramètres sont :

• des nombres autres que entiers, alors la syntaxe est la même, pas de délimiteurs
• des textes, alors il faut ajouter des doubles guillemets autours ("") dans Strsql
• des dates, alors il faut ajouter des dièses (#) autours dans la Strsql

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
Sub CreerUnetable
          dim appaccess as access.application
appaccess.opencurrentdatabase("monRepertoire\MaBase.mdb")
 
        dim paramChampA1 as long:paramChampA1 = ici une valeur pour le paramètre
        dim paramChampA2 as long:paramChampA2 = ici une valeur pour le paramètre
        dim paramChampA3 as long:paramChampA3 = ici une valeur pour le paramètre
        dim paramChampA4 as long:paramChampA4 = ici une valeur pour le paramètre
        dim paramChampA5 as long:paramChampA5 = ici une valeur pour le paramètre
        dim paramChampA6 as long:paramChampA6 = ici une valeur pour le paramètre
 
        Dim Strsql As String = "SELECT A.ChampA1, A.ChampA2, B.ChampB1," & _
  " A.ChampA3, A.ChampA4, A.ChampA5,  A.ChampA6," & _
  "  C.ChampC1, C.ChampC2, " & _
  " C.ChampC3, C.ChampC4, C.ChampC5, D.ChampD1, D.ChampD2, " & _
  "  E.ChampE1,  " & _
  " F.ChampF1, G.ChampG1, " & _
  " H.ChampH1, I.ChampI1   INTO Editnotes" & _
  " FROM (((((((C LEFT JOIN D ON C.ChampA6 = D.ChampA6) LEFT JOIN A" & _
  " ON (C.ChampA4 = A.ChampA4) AND (C.ChampA3 = A.ChampA3) " & _
  " AND (C.ChampA2 = A.ChampA2) AND (C.ChampA1 = A.ChampA1) " & _
  " AND (C.ChampA6 = A.ChampA6)) LEFT JOIN I " & _
  " ON A.ChampA4 = I.ChampA4) LEFT JOIN H ON A.ChampA3 = H.ChampA3)" & _
  " LEFT JOIN G ON A.CODEMATI = G.CODEMATI) LEFT JOIN J " & _
  " ON (A.ChampA7 = J.ChampA7) AND (A.ChampA4 = J.ChampA4) " & _
  " AND (A.ChampA3 = J.ChampA3)) LEFT JOIN (F LEFT JOIN E" & _
  " ON F.ChampF2 = E.ChampF2) ON A.ChampA2 = F.ChampA2)" & _
  " INNER JOIN B ON (C.ChampA1 = B.ChampA1) AND (C.ChampA2 = B.ChampA2)" & _
  " AND (C.ChampA3 = B.ChampA3) AND (C.ChampA4 = B.ChampA4) " & _
  " AND (C.ChampC8 = B.ChampC8) WHERE(((A.ChampA1) =" & paramChampA1 & ") and ((A.ChampA2) = " & paramChampA2 & ") and ((A.ChampA3) = " & paramChampA3 & ") " & _
  " AND ((A.ChampA4) =" & paramChampA4 & ") AND ((A.ChampA5) =" & paramChampA5 & " ) AND ((A.ChampA6) = " & paramChampA6 & "))" & _
  " ORDER BY A.ChampA8, A.ChampA6, A.ChampA9;"
appaccess.docmd.Runsql

[sidisadmir]

bonjour

des nombres autres que entiers, alors la syntaxe est la même, pas de délimiteurs
des textes, alors il faut ajouter des doubles guillemets autours ("") dans Strsql
des dates, alors il faut ajouter des dièses (#) autours dans la Strsql

Merçi à vous Cher Monsieur
mon problème vient effectivement des délimiteurs .
j'ai appliqué votre conseil et le problème s'évaporise.
merçi mille fois.