Problème d'ajout vb6

Problème d'ajout vb6 - VB/VBA/VBS - Programmation

Marsh Posté le 23-04-2008 à 18:01:19    

Bonjour a tous.
Je suis en train de faire une application qui gère mes films.
En ce moment je suis en train de pencher sur l'ajout d'un film, mais il se trouve que j'ai un petit problème.
Algorithmiquement, c'est bon mais je ne vois ou est le problème.Le compilateur me fait Aucun enregistrement en cours et ne veut pas insérer le nouveau film dans la base de donnée. Voici mon code :
 

Code :
  1. Private Sub ajouter_fiche_Click()
  3. Dim maBase As Database
  4. Dim monRecordset As Recordset
  5. Dim cancel As Boolean
  7. 'Connexion à la base de donnée'
  8. Set maBase = OpenDatabase("F:\richaud\Documents and Settings\Richaud Julien\Mes documents\Cours informatique\PTI\VB - Gestion des films\film.mdb" )
  10. 'Va chercher le nom du film'
  11. Set monRecordset = maBase.OpenRecordset( _
  12. "SELECT NomFilm,TitreOriginal,DateSortie,Realisateur,Synopsis,Duree,Image,LibNat,LibelleGenre,NomActeur FROM Film,Acteur,Joue,Nationalite,Genre WHERE NomFilm='" & titre_film.Text & "' AND  Film.NumFilm=Joue.NumFilm AND Joue.NumActeur=Acteur.NumActeur AND Film.CodeGenre=Genre.CodeGenre AND Film.CodeNat=Nationalite.CodeNat  ", dbOpenSnapshot)
  13.  
  14. 'Vérification du champs titre'
  15. If StrComp(titre_film, "", vbTextCompare) = 0 Then
  16.      MsgBox "Le titre du film doit-être renseigné", vbOKOnly + vbExclamation, "Erreur"
  17.      GoTo Fin
  18. End If
  21. 'Vérification du champ genre'
  22. If StrComp(Genre_film, "", vbTextCompare) = 0 Then
  23.     MsgBox "Le genre doit être renseigné", vbOKOnly + vbExclamation, "Erreur"
  24.     GoTo Fin
  25. End If
  27. 'Vérification du champ Nationalité'
  28. If StrComp(Nationnalité_film, "", vbTextCompare) = 0 Then
  29.     MsgBox "La nationalité doit être renseignée", vbOKOnly + vbExclamation, "Erreur"
  30.     GoTo Fin
  31. End If
  33. 'Vérification du champ Réalisateur'
  34. If StrComp(Réalisateur_film, "", vbTextCompare) = 0 Then
  35.     MsgBox "Le réalisateur doit être renseigné", vbOKOnly + vbExclamation, "Erreur"
  36.     GoTo Fin
  37. End If
  39. 'Vérification de la date'
  40. If StrComp(date, "", vbTextCompare) = 0 Then
  41.     MsgBox "La date doit être renseignée", vbOKOnly + vbExclamation, "Erreur"
  42.     GoTo Fin
  43. End If
  45. 'Vérification si le champs date est numérique'
  46. If Not IsNumeric(date) Then
  47.     'Annule la validation de contrôle'
  48.     cancel = True
  49.     MsgBox "Veuillez entrer un nombre !"
  50.     GoTo Fin
  51. End If
  53. 'Vérification de la durée'
  54. If StrComp(Durée_film, "", vbTextCompare) = 0 Then
  55.     MsgBox "La durée doit être renseignée", vbOKOnly + vbExclamation, "Erreur"
  56.     GoTo Fin
  57. End If
  59. 'Vérification du commentaire'
  60. If StrComp(commentaire, "", vbTextCompare) = 0 Then
  61.     MsgBox "Le commentaire doit être renseigné", vbOKOnly + vbExclamation, "Erreur"
  62.     GoTo Fin
  63. End If
  65. 'Vérifier si le film existe déjà'
  66. If monRecordset.RecordCount > 0 Then
  67.     If titre_film.Text = monRecordset!NomFilm Then
  68.         rep = MsgBox("Le film " & titre_film.Text & " existe déjà" )
  69.     End If
  70. Else
  71.     'Mise à jour de la base de donnée'
  72.     maBase.Execute ("INSERT into Film (NomFilm,TitreOriginal,DateSortie,Realisateur,Synopsis,Duree,Image) VALUES ('" & titre_film.Text & "','" & Titre_Original.Text & "','" & date & "','" & Réalisateur_film.Text & "','" & commentaire.Text & "','" & Durée_film.Text & "','" & chemin_fichier_affiche.Text & "')" )
  73.     MsgBox "Le film a été enregistré", vbOKOnly + vbInformation, "Confirmation d'ajout"
  74.    
  75.     monRecordset.MoveLast
  76.     monRecordset.MoveFirst
  77.    
  78. End If
  80. 'Raz des champs'
  81. titre_film.Text = ""
  82. Titre_Original.Text = ""
  83. Genre_film.Text = ""
  84. Nationnalité_film.Text = ""
  85. Réalisateur_film.Text = ""
  86. date.Text = ""
  87. Durée_film.Text = ""
  88. LstAjActeur.Clear
  89. chemin_fichier_affiche.Text = ""
  90. commentaire.Text = ""
  92. 'Fermeture du recordset'
  93. monRecordset.Close
  95. Fin:
  96. End Sub


 
Merci d'avance de vos réponses.

Reply

Marsh Posté le 23-04-2008 à 18:01:19   

Reply

Marsh Posté le 24-04-2008 à 11:03:57    

Sur quelle ligne de code se déclenche l'erreur « aucun enregistrement en cours » ?

Reply

Marsh Posté le 24-04-2008 à 19:03:33    

Sur la ligne du movelast

Reply

Marsh Posté le 25-04-2008 à 14:44:06    

Deux choses à tester :
« If monRecordset Is Nothing » après l'ouverture du recordset par .OpenRecordset  
et
« If Not monRecordset.BOF Then » pour t'assurer que des enregistrements existent dans le recordset et que le pointeur d'enregistrement peut s'y déplacer.
 
tiré de la doc en ligne

Lorsque vous ouvrez un objet Recordset, le premier enregistrement est l'enregistrement actuel et la propriété BOF a la valeur False. Si l'objet Recordset ne contient aucun enregistrement, la propriété BOF a la valeur True, et il n'y a pas d'enregistrement actuel.


Reply

Sujets relatifs:

Leave a Replay

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