Résolu [VBA] probleme requete SQL

Solutions (6)
Tags :
  • table
  • Programmation
|
Bonjour, je suis bloqué sur une requete sql en VBA. Je ne vois pas mon erreur. Je veu afficher les fichiers qui on le statut 'Non converti' et le nom de fichier "liaison".

  1. requete = " SELECT * FROM fichiers, Liaisons WHERE Liaisons.nom_fic = fichiers.nom_fic AND fichiers.statut = 'Non converti' AND Liaisons.nom_fic = '" & liaison & "' "
  2. 'Déclaration du recordset
  3. Set table = base.OpenRecordset(requete)


Mais j'ai un soucis au fichiers.statut , meme quand je change dans ma BDD Access j'ai tout mes enregistrements qui s'affichent. Si je met à la place 'Converti' et que je met dans un enregistrements le statut 'converti'. Quand j'execute mon code j'ai une erreur, avec aucun enregistrements en cours. :s Quelqu'un pourrai t'il m'aider??

Merci d'avance.
Contenus similaires
Meilleure solution
partage
, Modérateur |
Salut,

Tu as déjà un exemple de commentaire une boucle sur tous les enregistrements, vu que tu fais une boucle sur ta 2ème requête...
  • Commenter cette solution |
Score
0
òh
òi
|
Meilleure réponse sélectionnée par jacouille35.
  • Commenter cette réponse |
Score
0
òh
òi
|
Bonjour, c'est moi qui avais mal créé ma requete désolé.

Mais j'aimerai savoir j'ai ceci :
  1. Private Sub remplit_listviewLiaisons()
  2.  
  3. 'liaison = a l'item selectionné
  4. liaison = Fichiers.ListFichiers.SelectedItem.SubItems(1)
  5.  
  6. 'vide le listview liaisons
  7. ListLiaisons.ListItems.Clear
  8. 'Déclaration des requète de selection
  9. requete = " SELECT liaisons.nom_liaison FROM fichiers,Liaisons WHERE Liaisons.nom_fic = fichiers.nom_fic AND Liaisons.nom_fic = '" & liaison & "' AND fichiers.statut = 'Non converti' "
  10. 'Déclaration du recordset
  11. Set table = base.OpenRecordset(requete)
  12. 'Déclaration des requète de selection
  13. requete = " SELECT statut FROM fichiers WHERE nom_fic = '" & table(0) & "' "
  14. 'Déclaration du recordset
  15. Set table = base.OpenRecordset(requete)
  16. 'Se placer sur le 1er enregistrement
  17. table.MoveFirst
  18.  
  19. If "Converti" = table(0) Or "Testé" = table(0) Then
  20. 'rien
  21. Else
  22. 'inialisation sur la ligne 1
  23. ligne = 1
  24. 'Boucle tant qu'on a pas lu tous les enregistrements
  25. While Not table.EOF
  26. 'Indication de l'élément de la 1ere colonne
  27. ListLiaisons.ListItems.Add , , table("type_liaison")
  28. 'Indication de l'élément de la 2ème colonne
  29. ListLiaisons.ListItems.item(ligne).SubItems(1) = table("nom_liaison")
  30. 'Indication de l'élément de la 3ème colonne
  31. ListLiaisons.ListItems.item(ligne).SubItems(2) = table("loc_liaison")
  32. 'passer à l'enregistrement suivant
  33. table.MoveNext
  34. 'indique que l'on passe à la ligne suivante
  35. ligne = ligne + 1
  36. Wend
  37.  
  38. End If
  39. 'On deselectionne tous les enregistrements
  40. ListLiaisons.SelectedItem.Selected = False
  41.  
  42. End Sub


Cela va me chercher mon nom_liaison puis dans ma deuxieme requete sont statut, qui est dans une autre table. Le probleme est que j'ai plusieur enregistrement. Et j'aimerai que pour chaque enregistrement qui à un statut "Non converti" il me l'ajoute dans mon listview. Comment faire une boucle sur tous les enregistrements trouvé dans ma requete??

Merci d'avance
  • Commenter cette réponse |
Score
0
òh
òi
, Modérateur |
En effet, access n'a pas l'air de connaitre la fonction lower... ça a l'air de s'appeler "LCase" plutôt
  • Commenter cette réponse |
Score
0
òh
òi
|
J'ai un message d'erreur qui dit que la fonction LOWER n'est pas définie dans l'expression ??
  • Commenter cette réponse |
Score
0
òh
òi
, Modérateur |
Salut,

Pas sûr qu'Access soit non sensible à la case.
Tu peux toujours mettre (par exemple) :
... AND lower(fichiers.statut) = 'non converti' ...
  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS