Discussion :

[Fabdunet13]

Bonjour,

Pouvez-vous m'aider.

j'ai une erreur de syntaxe quand j'essaie d'exécuter cette requête SQL.

Code :

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

  req = "SELECT TOP 30 RapportsProd.ref, RapportsProd.serial, RapportsProd.Date, RapportsProd.end FROM RapportsProd WHERE RapportsProd.end >= Now() And RapportsProd.ref=\"" & TB_MTM.text & "\" ORDER BY Rnd(RapportsProd.ID); "

ma requête fonctionne car si je la tappe en dur dans ACCESS ça fonctionne mais je n'arrive pas à l'adapter en VB.net

Pouvez-vous m'aider ?

[Fabdunet13]

[umfred]

utilise des requêtes paramétrées c'est bien plus sécurisé déjà

Code :

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

1
2
3
4
5
6
 req = "SELECT TOP 30 RapportsProd.ref, RapportsProd.serial, RapportsProd.Date, RapportsProd.end FROM RapportsProd WHERE RapportsProd.end >= Now() And RapportsProd.ref=? ORDER BY Rnd(RapportsProd.ID); "
command = new OleDbCommand(req,connection)
command.Parameters.AddWithValue("ref",TB_MTM.Text)
connection.Open()
Dim dr As OleDbDataReader = command.ExecuteReader()
...

[Thumb down]

Bonsoir,
je présume que c'est un truc comme ça que tu veux faire!

Code :

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

1
2
3
  req = $"SELECT TOP 30 RapportsProd.ref, RapportsProd.serial, RapportsProd.Date,
  RapportsProd.end FROM RapportsProd WHERE RapportsProd.end >= Now() 
  And RapportsProd.ref='{TB_MTM.text}' ORDER BY Rnd(RapportsProd.ID);"