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 :
- Sub main()
-
- 'Déclaration d'un pointeur sur la base de données'
- Dim db As Database
- 'Décalartion d'un recordset pour la requête'
- Dim tb As Recordset
- 'chemin de connexion à une base de données'
- Dim chemin As String
- 'connexion à la base de donnée'
- chemin = "U:\PTI\VB - Gestion des films\film"
- 'déclaration ,chargement et execution de la requête'
- Set db = OpenDatabase(chemin)
- 'déclaration ,chargement et execution de la requête
- Dim tsql As String
- tsql = "SELECT NomFilm from Film"
- 'met le résultat de la requête dans le recordset4
- Set tb = db.OpenRecordset(tsql)
- On Error Resume Next
- 'lecture du premier enregistrement du recordset'
- tb.MoveFirst
- 'Enregistrement dans la liste'
- While Not tb.EOF
- If (tb.RecordCount = 0) Then
- LstFilm = tb(0)
- End If
- 'Passage au suivant'
- tb.MoveNext
- Wend
- End Sub
|
