Discussion :

[DexX39800]

Bonjour,

J'ai besoin de votre aide...

Le programme marche. La requête pour créer une table en commentaire fonctionne.

J'aimerais maintenant exécuter mon SELECT mais sa me met une erreur :

Erreur de compilation
Erreur de syntaxe

Et sa surligne cette ligne :

Code :

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

     .Open "select designation" _&

Peut-on m'aider s'il vous plait ?

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
Private Sub MacroDesignation()
 
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim fld As ADODB.Field
  Dim sql As String
  Dim valcel As String
  valcel = Excel.Range("Feuil1!A2").Value
 
  'connect to MySQL server using MySQL ODBC 3.51 Driver
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=192.168.253.128;" & " DATABASE=bddintranetpol;" & "UID=user_odbc;PWD=mdpusrodbc; OPTION=3"
  conn.Open
 
'conn.Execute "CREATE TABLE TestAdrien(ID int not null primary key, Nom varchar(20)," _& "Texte text, Date date, Temps time)"
Set rs = New ADODB.Recordset
 
'conn.Execute "SELECT Designation FROM produits_test WHERE code_produit = 1"
 
'Feuil1.Range("B2").CopyFromRecordset rs, 200
 
With rs
     .ActiveConnection = conn
     .Open "select designation" _&
               "from produits_test" _&
               "where code_produit=' & valcel'"
     Feuil1.Range("A2").CopyFromRecordset rs
 
    .Close
End With
 
conn.Close
Set rs = Nothing
Set conn = Nothing
 
End Sub

Merci.

Cordialement,
DexX

[tedo01]

Bonjour,
Je vois trois problèmes :

1. La concaténation n'est pas correcte : le _ est un caractère de continuation et doit être à la fin de la ligne, le & avant ou au début de la suivante :

   Code :

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

   1
   2
       .Open "select designation" & _
                   "from produits_test" (etc)

   ou bien
   

   Code :

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

   1
   2
       .Open "select designation" _
                  & "from produits_test" (etc)

2. L'intégration de la variable est mal faite, il faut fermer la chaîne de caractères, mettre la variable, puis rouvrir la chaîne pour insérer la dernière quote :

   Code :

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

   "where code_produit='" & valcel & "'"

3. Il faudrait prévoir des espaces entre les portions de chaîne concaténées, pour le moment la requête SQL est :

   Code :

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

   "select designationfrom produits_testwhere code_produit=' & valcel'"

[DexX39800]

Bonjour,

J'ai mis comme cela :

Code :

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

.Open "select designation" _& "from produits_test" _& "where code_produit='" & valcel & "'"

Sa me met toujours l'erreur de syntaxe :$.

Voilà, comme ceci donc :

Code :

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

1
2
3
     .Open "select designation" _
     & "from produits_test" _
     & "where code_produit='" & valcel & "'"

Sa me met une erreur du style :

You have an error in your SQL syntax; check.....etc

[tedo01]

Re-bonjour,
Il manque toujours les espaces ! Avec ta syntaxe tu essaie d'exécuter ça :

Code :

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

 "select designationfrom produits_testwhere code_produit='" & valcel & "'"

Il faut coder

Code :

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

1
2
3
 .Open "select designation " _
     & "from produits_test " _
     & "where code_produit='" & valcel & "'"

[DexX39800]

D'accord merci !

Sa marche parfaitement...

Par contre, j'aimerais que cette macro s'active automatiquement dès qu'on tape le numéro dans la cellule A2..Et non que une fois que j'ai tapé le nombre je sois obligé d'exécuter la macro manuellement.

Est-ce possible ??

Merci de votre aide ..

[DexX39800]

J'ai rajouté cela en cherchant un peu :

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Avec le code de ma macro dedans...J'aimerais maintenant que mes cellules aillent de A1 à A100...

J'ai donc mis :

Code :

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

valcel = Feuil1.Range("A2:A100").Value

Mais sa me met une erreur :

Incompatibilité de tpye

Merci de votre aide..

Cordialement,
DexX

Si je met une " , " à la place de " : " sa marche mais que pour la cellule A1.

Si je met un numéro dans une autre cellule, sur la même ligne mais dans la colonne B, sa me met rien du tout ...