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
  6. 'Décalartion d'un recordset pour la requête'
  7. Dim tb As Recordset
  9. 'chemin de connexion à une base de données'
  10. Dim chemin As String
  12. 'connexion à la base de donnée'
  13. chemin = "U:\PTI\VB - Gestion des films\film"
  15. 'déclaration ,chargement et execution de la requête'
  16. Set db = OpenDatabase(chemin)
  18. 'déclaration ,chargement et execution de la requête
  19. Dim tsql As String
  20. tsql = "SELECT  NomFilm from Film"
  22. 'met le résultat de la requête dans le recordset4
  23. Set tb = db.OpenRecordset(tsql)
  24. On Error Resume Next
  26. 'lecture du premier enregistrement du recordset'
  27. tb.MoveFirst
  29. 'Enregistrement dans la liste'
  30. While Not tb.EOF
  31.     If (tb.RecordCount = 0) Then
  32.       LstFilm = tb(0)
  33.     End If
  34.         'Passage au suivant'
  35.         tb.MoveNext
  36. Wend
  38. 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