Probleme requete sqlRésolu

Question

Bonjour j ai un petit probleme en fait j ai une erreur qui me dit type incompatible 
 voici mon code

  Dim DataBaseFile As String
  Dim RstQuery As Recordset
  Dim strsql As String
  'Chemin de la base de donn&#233;es
  DataBaseFile = App.Path & "\gestion.mdb"
  'On attribue une r&#233;f&#233;rence &#224; la variable DB
  Set Db = OpenDatabase(DataBaseFile)
  


 ' Requ&#234;te SQL: on s&#233;lectionne le film, le genre, l'ann&#233;e, ...
  ' du film s&#233;lectionn&#233; dans ListFilms
  strsql = "SELECT 'Titre du film', Ann&#233;e, R&#233;sum&#233;, Genre, Distributeur FROM dvd"  strsql strsql & " WHERE 'Titre du film' '" & ListFilms.Text & "'"
  Set RstQuery = Db.OpenRecordset(strsql)
 ' If Not (RstQuery.BOF And RstQuery.EOF) Then
    Do While Not RstQuery.EOF
      'On affiche les donn&#233;es s&#233;lectionn&#233;es dans les diff&#233;rents labels
      RESTitre.Caption = RstQuery.Fields("Titre du film").Value
      RESAnn&#233;e.Caption = RstQuery.Fields("Ann&#233;e").Value
      RESGenre.Caption = RstQuery.Fields("Genre").Value
      RESDistri.Caption = RstQuery.Fields("Distributeur").Value
      RESResume.Caption = RstQuery.Fields("R&#233;sum&#233;").Value
      RstQuery.MoveNext
    Loop
  'End If

Mon erreur se produit a la ligne en rose, aidez moi s il vous plait je suis perdu et plant&#233; complet 

merci d'avance

cs_ITALIA · Accepted Answer

strsql = "SELECT [Titre du film], Ann&#233;e, R&#233;sum&#233;, Genre, Distributeur FROM dvd" strsql strsql & " WHERE [Titre du film] '" & ListFilms.Text & "'"

It@li@

econs · Answer

De quel type est la variable DB ?

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

pointdalattitude · Answer

c est un database ===>   Public Db As Database

pointdalattitude · Answer

En fait j'ai r&#233;solu mon pb par contre j'ai un nouveau 

Private Sub cmdInformations_Click()


  


 ' Requ&#234;te SQL: on s&#233;lectionne le jeu, le type, l'ann&#233;e, la console le meilleur score
  ' du jeu s&#233;lectionn&#233; dans ListeJeux
  strsql = "SELECT 'Titre du film', Ann&#233;e, R&#233;sum&#233;, Genre, Distributeur FROM dvd"  strsql strsql & " WHERE 'Titre du film' '" & ListFilms.Text & "'"
  Set RstQuery = Db.OpenRecordset(strsql)
  If Not (RstQuery.BOF And RstQuery.EOF) Then
    Do While Not RstQuery.EOF
      'On affiche les donn&#233;es s&#233;lectionn&#233;es dans les diff&#233;rents labels
      RESTitre.Caption = RstQuery.Fields("Titre du film").Value
      RESAnn&#233;e.Caption = RstQuery.Fields("Ann&#233;e").Value
      RESGenre.Caption = RstQuery.Fields("Genre").Value
      RESDistri.Caption = RstQuery.Fields("Distributeur").Value
      RESResume.Caption = RstQuery.Fields("R&#233;sum&#233;").Value
      RstQuery.MoveNext
    Loop
  End If
End Sub

dans ma requete la je saute le if et je rentre jamais dedans donc c un probleme pour moi !! 

merci de m aider

cs_ITALIA · Answer

Explications : Un Nom de Table Composé doit être comprise entre Cotes.. Un petit conseil evite de mettre des Accents dans tes noms de Table ~~Résumé~~ ---> Resume It@li@

pointdalattitude · Answer

Merci bien de m avoir aider dsl mais je t avais d&#233;ja remercier mais le serveur avait planter alors merci encore c cool 
et merci pour le conseil

Probleme requete sql

6 réponses

Discussions similaires