Salam tout le monde ,
JE suis en train de réaliser une petite application en VB6 /Access, concernant la gestion d'un club cinématographique ,
Voilà le code de la fonction :
Set db = OpenDatabase("D:\projet VB\projet VB\db1.mdb")
Dim idFilm As Integer
idFilm = idflist.List(idflist.ListIndex)
Set rs db.OpenRecordset("select * from Film WHERE id-film " & idFilm & " ")
rs.MoveFirst
Do While Not rs.EOF
rs.Delete
rs.MoveNext
Loop
Voilà la partie du Code qui pose le problème :
Set rs db.OpenRecordset("select * from Film WHERE id-film " & idFilm & " ")
la table Film à comme clé primaire : id-film , son type est : AutoNumber
j ai essayé de mettre les quotes '' mais ca marche pas puisque les quotes sont utilisées pour les chaines de caractère
Aidez moi s'il vous plait les amis pour résoudre ce problème .
Merci bien