je suis egalement en train de mettre au point une gestion de videotheque sous vb; normalement on pourra faire pas mal de chose( fiche complete du film avec resume acteur realisateur compositeur, jaquette du film et si je trouve la solution video du film)
si on pourrais me dire comment faire pour la video se serais simpa et je mettrai le prog en ligne pour test
je pense qu'il s'agit de la même erreur que pour les emprunts.
Il faut je pense mettre dans la requête SQL un ORDER BY nom_film dans le sub suivant:
mnu_dvd_Click()
ce qui donne:
'-- Requete SQL pour DVD
requete "SELECT * FROM Film WHERE format_film'Dvd' ORDER BY nom_film"
c'est tres bien mais admettons que les films soivent stockés sur CD, le prgm reste le meme, sinon le fonction pour lister tous les films d'un repertoire est intéressante
Pour Quintus 38 :
J'ai ajouté une fonction permettant de lister TOUT les films d'un répertoire et de les enregistrer directement dans la base de donnée.
Dans ce cas, le nom du film correspond au nom de fichier.
Liste tout le répertoire choisit ainsi que tous les sous repertoire ;)
j'espere avoir répondu à ta demande !
Pour Algo69
Je viens de réinstaller VB (que je n'utilise plus bcp !!) et j'ai regarder la source de plus prêt.
Tu as bcp de bug encore dans mon programme.
pour ton erreur, j'ai ajouter un "ORDER BY nom_film dans la requête SQL du bloc Private Sub mnulistE_Click()
Depuis ca marche (je ne sais pas trop pourquoi ??
Ensuite, il faut aussi ajouter une condition IF dans le block
Private sub List_Click() :
'-- Vérifie qu'il existe une entrée
If Rs.BOF True And Rs.EOF False Then
..............
lbl_annee.Caption = Rs!annee
End If
chk_pret.Visible = True
et
' affich les valeurs
If Rs.BOF True And Rs.EOF False Then
lbl_date = Rs!date_pret
txt_nom = Rs!pret_film
End If
Voila, sinon, il reste d'autres bug que je regarderai quand j'aurai 2 3 minute. LA source qui est en DL sur vbfrance corrige ces 2 bug ;)
Pour Quintus: Oui, c'est clair que c long et très chiant, mais tu n'es pas obligé de remplir toutes les cases.
Le mieux serait peut être de pouvoir lancer une recherche sur un répertoire, de prendre le nom des fichiers AVI et de les ajouter directement dans la base en les considérant comme les noms de film.
Ensuite à chacun de rajouter les info qu'il veux.. A voir donc ;)
je ne critique pas ton prgm, mais lorsque l'on a plus de 200 divx (attention je ne dis pas que c'est mon cas) à entrer dans la liste et à saisir tous les paramètres (langue, qualité, ...) c'est tres long et tres ch**** à faire
ton interface est assez jolie et encor j'en suis sur que tu pourrai mieu faire bref ton code a l'iar assez complet par contre pense au débogage , a chaque clique g ne erreur ca ce resoud mia bon ca soule
J'ai corriger la faute d'orthographe, et je veux bien 1 ou 2 exemples de "design" sous vb !
Pour la fonction de prêt, je ne me suis pas inspiré de celle de xtag, mais elle doit être semblable.
C juste un chps texte qui s'active ou non, et un bouton "enregistrer" pour mettre la base à jour.
Elle est toute simple.
En plus t'as mis une capture et ça c excellent, donc bonne prog pour la quite et si tu veux des exemples de jolies design, répond moi et je te file 1 ou 2 de mes sources ;)
C'est vrai que là, Urgo, deux fois dans la même journée, c'est un peu fort...
Une question, tu ne te serais pas inspiré de Xtag pour la fonction de prêt ?
Bien Urgo ! On voit les messages constuctifs ! C mon premier programme en VB, je l'ai mis en niveau 1 et c pas pour rien ....
Je ne me considere pas comme un pro, si tu cherche du design regarde autre chose au lieu de critiquer comme ça !
si on pourrais me dire comment faire pour la video se serais simpa et je mettrai le prog en ligne pour test
c un projet de fin d annee en universite
Il faut je pense mettre dans la requête SQL un ORDER BY nom_film dans le sub suivant:
mnu_dvd_Click()
ce qui donne:
'-- Requete SQL pour DVD
requete "SELECT * FROM Film WHERE format_film'Dvd' ORDER BY nom_film"
" peux tu m'eclairer cela STP ?