Problème de chargement de donnée dans une liste

Problème de chargement de donnée dans une liste - VB/VBA/VBS - Programmation

Marsh Posté le 29-01-2008 à 11:03:01    

Bonjour.
Je suis en train de développer une application pour gérer mes films en vb6.
Mon problème, c'est qu'il ne veut pas charger les données dans ma liste de film.J'ai mis la connexion et le lancement dans un module.
Pourriez vous m'aider s'il vous plait, je galère.Merci d'avance de vos réponses
Voilà mon code:  
 

Code :
  1. Sub main()
  2.    
  3. 'Déclaration d'un pointeur sur la base de données'
  4. Dim db As Database
  5. 'Décalartion d'un recordset pour la requête'
  6. Dim tb As Recordset
  7. 'chemin de connexion à une base de données'
  8. Dim chemin As String
  9. 'connexion à la base de donnée'
  10. chemin = "U:\PTI\VB - Gestion des films\film"
  11. 'déclaration ,chargement et execution de la requête'
  12. Set db = OpenDatabase(chemin)
  13. 'déclaration ,chargement et execution de la requête
  14. Dim tsql As String
  15. tsql = "SELECT  NomFilm from Film"
  16. 'met le résultat de la requête dans le recordset4
  17. Set tb = db.OpenRecordset(tsql)
  18. On Error Resume Next
  19. 'lecture du premier enregistrement du recordset'
  20. tb.MoveFirst
  21. 'Enregistrement dans la liste'
  22. While Not tb.EOF
  23.     If (tb.RecordCount = 0) Then
  24.       LstFilm = tb(0)
  25.     End If
  26.         'Passage au suivant'
  27.         tb.MoveNext
  28. Wend
  29. End Sub

Reply

Marsh Posté le 29-01-2008 à 11:03:01   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed