requête sql vb

Version imprimable

requête sql vb

Bonjour, encore moi je crois que je vais prendre un abonnement si ça continue :lol:

Non plus précisément, je n'arrive pas à trouver pourquoi la jointure de ma table n'est pas bonne du moins pourquoi elle ne retourne pas de résultat.

Voilà, j'ai :
-une table film (films_num, films_titre) => clef primaire films_num
-une table emprunteur (emp_num, emp_nom, emp_prenom) => clef primaire emp_num
-une table attribuer (att_emprunteur, att_titrefilm) => clef primaire att_emprunteur ET att_titrefilm

Dans ma form sous vb, je voudrais rechercher les emprunteurs qui ont empruntés un ou plusieurs films (savoir si le film est déjà emprunté par qqu'un ou pas en gros). Par exemple, si martin a emprunté le film angel-a quand je fais rechercher dans ma listbox(qui contient tous les films de la bdd) le film angel-a et cliques dessus, elle doit me ressortir le nom martin.

Pour cela, j'ai fais cette requête :
Code:

1 2 3 sql = "SELECT FILMS_TITRE,EMP_NOM, EMP_PRENOM FROM FILMS, EMPRUNTEUR " sql = sql & " WHERE EMP_NUM = (SELECT ATT_EMPRUNTEUR FROM ATTRIBUER)" sql = sql & " AND FILMS_TITRE =(SELECT ATT_TITREFILM FROM ATTRIBUER)"
Mais, y'a un hic. Lorsque je lance l'application, j'obtiens un message d'erreur disant ceci : Cette sous-requête peut retourner au plus un enregistrement

j'ai essayé de changer les = par in mais rien

J'ai donc modifié la requête en écrivant ceci :

Code:

SELECT FILMS_TITRE, EMP_NOM, EMP_PRENOM FROM FILMS, EMPRUNTEUR INNER JOIN ATTRIBUER ON EMP_NUM = ATT_EMPRUNTEUR AND FILMS_TITRE = ATT_TITREFILM

mais rien, le message dis que la jointure ne peut pas être supportées.

Ensuite, j'ai fais ceci

Code:

sql = "SELECT FILMS_TITRE, EMP_NOM FROM FILMS, EMPRUNTEUR union select ATT_EMPRUNTEUR, att_titrefilm from attribuer where att_emprunteur = emp_num and att_titrefilm = films_titre"

mais à nouveau message erreur: Il me dis 2 paramètres attendu. Ici, je comprends car quand un film est sélectionné dans la lstbox il doit me renvoyer le nom et le prénom de l'emprunteur.

J'ai cherché sur le site dans sql et lu les articles traitant sur les jointures mais là je sais plus laquelle utiliser. Je pensais que la première était la bonne car je l'avais utilisé sur un projet où figurait ce genre de jointure avec une table attribuer possédant également deux clefs primaires.
Merci de prendre le tps de me répondre et de m'aider à nouveau

Bonjour,

J'aurai une question sur ta table attribuer.

attribuer.att_emprunteur donne un lien avec emprunteur.emp_num
et
attribuer.att_titrefilm donne un lien avec films.films_num (pas films.films_titre qui est une chaîne de caractère longue.)
Dans ce cas le nom "attribuer.att_titrefilm" n'est pas judicieux.

La clé primaire de ta table attribuer est constitué des clés primaires des 2 autres tables (films et emprunteur) ?
C'est ça ?

Ceci est important pour les performances.

Si tes tables sont ainsi voila ce que j'aurai écrit
Code:

1 2 3 4 5 6 7 8 9 Dim vartitre As String vartitre = "angel-a" sql = "SELECT FILMS_TITRE,EMP_NOM, EMP_PRENOM " sql = sql & " FROM FILMS, EMPRUNTEUR , attribuer " 'les tables concernées sql = sql & " WHERE films_num=att_titrefilm " ' lien entre films et attribuer sql = sql & " AND emp_num=att_emprunteur " ' lien entre attribuer et emprunteur sql = sql & " AND films_titre = '" & vartitre & "'" ' la selection de recherche MsgBox sql
Doit normalement te donner le nom de "Martin" s'il l'a emprunté.

Note : Je n'ai pas les tables pour tester.
A+, Hervé.

1 pièce(s) jointe(s)

Pièce jointe 38776
re, voilà comment est construite ma table attribuer

Pour att_emprunteur le lien est :
SELECT EMPRUNTEUR.Emp_Num, EMPRUNTEUR.Emp_Nom, EMPRUNTEUR.Emp_Prenom FROM EMPRUNTEUR;

Pour att_titrefilm le lien est :

SELECT FILMS.FILMS_TITRE FROM FILMS;

Oui, ma table attribuer posséde les 2 clefs primaires des tables films et emprunteur.

J'ai alors changé la construction de ma table attribuer pour att_titrefilm en mettant films.films_num à la place de films.films_titre.

Ensuite j'ai copié, la requête dans vb et voici le message d'erreur que j'ai obtenu:

Code:

incohérence de type dans une expression

Lorsque je fais débogage je suis renvoyée sur la ligne rst_rechercheDVD.Open sql, cnx c'est-à-dire au moment au mon curseur s'ouvre pour parcourir la bdd

Voici, le code complet de ma page :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
 
Private Sub Cmd_annuler_click()
    'début
    Txt_NumFilm = ""
    Lst_AffichagePersonne.Clear
End Sub
 
Private Sub Cmd_Fermer_Click()
Unload Me
End Sub
 
Private Sub Cmd_Imprimer_Click()
    'début
    Frm_RechercherDvd.PrintForm
End Sub
 
Private Sub Form_Load()
    'debut
    Connec
    'remplir la liste des films dans la lst_recherchefilms
    sql = "SELECT FILMS_TITRE FROM FILMS"
    rst_rechercheDVD.Open sql, cnx
    If Not rst_rechercheDVD.EOF Then
        Do
            Lst_recherchefilm.AddItem rst_rechercheDVD.Fields("FILMS_TITRE")
            rst_rechercheDVD.MoveNext
        Loop Until rst_rechercheDVD.EOF
    End If
    rst_rechercheDVD.Close
 
End Sub
 
Private Sub Lst_recherchefilm_Click()
 
'    sql = "SELECT FILMS_TITRE,EMP_NOM, EMP_PRENOM FROM FILMS, EMPRUNTEUR "
'    sql = sql & " WHERE EMP_NUM = (SELECT ATT_EMPRUNTEUR FROM ATTRIBUER)"
'    sql = sql & " AND FILMS_TITRE =(SELECT ATT_TITREFILM FROM ATTRIBUER)"
 
sql = "SELECT FILMS_TITRE,EMP_NOM, EMP_PRENOM "
  sql = sql & " FROM FILMS, EMPRUNTEUR , attribuer " 'les tables concernées
  sql = sql & " WHERE films_num = att_titrefilm " ' lien entre films et attribuer
  sql = sql & " AND emp_num = att_emprunteur " ' lien entre attribuer et emprunteu
 
'Debug.Print sql ' affiche le résultat dans la fenêtre "Exécution" de l'EDI
 
    MsgBox sql ' boite de dialogue appli
 
    rst_rechercheDVD.Open sql, cnx
    If rst_rechercheDVD.Fields("FILMS_TITRE") = Lst_recherchefilm Then
    Do
        ligne = ligne + 1
        rst_rechercheDVD.MoveNext ' je passe à la ligne suivante
    Loop Until rst_rechercheDVD.EOF 'j'arrete kan il est vide
    rst_rechercheDVD.MoveFirst 'curseur doit revenir à la première ligne
    End If
    Lst_AffichagePersonne.AddItem (rst_rechercheDVD("EMP_NOM") & " " & rst_rechercheDVD("EMP_PRENOM"))
 
    rst_rechercheDVD.Close
End Sub

Pour la construction des tables voir fichier joint

merci

Je remarque l'absence du critère de recherche
Code:

1 2 3 4 5 6 7 8 9 '... sql = "SELECT FILMS_TITRE,EMP_NOM, EMP_PRENOM " sql = sql & " FROM FILMS, EMPRUNTEUR , attribuer " 'les tables concernées sql = sql & " WHERE films_num = att_titrefilm " ' lien entre films et attribuer sql = sql & " AND emp_num = att_emprunteur " ' lien entre attribuer et emprunteu ' il faudrait aussi le critère de recherche sql = sql & " AND films_titre = '" & Lst_recherchefilm.text & "'" ' la selection de recherche '...
Sous quelle base de données es-tu ?

Mais le message laisse suggérer autre chose, sur la construction des tables.
Afin d'être sur pour les tables
Le nom de ta clé primaire de la table film est : (films_Num)
Le nom de ta clé primaire de la table emprunteur est : (emp_num)
Quel sont les noms constituant ta clé primaire de la table attribuer? (? , ?)

Nous verrons après pour la construction de la requette.

28/11/2008, 22h06
*kitty*

re, j'ai mis un dossier joint dans mon précédent qui montre le détail de mes tables.

Pour la clef primaire de la table attribuer, il est question de la clef primaire att_emprunteur et de la clef primaire att_titrefilm

Le critère de recherche "angel-a" emprunté par "martin" n'était qu'un exemple. C'était pour que me faire comprendre et éviter tout mal entendu.

Ma base de donnée c'est ACCESS 07.

J'ai pu ouvrir ton document (j'avais du faire une fausse manip avant)

Ta table attribuer ne correspond pas à ce qui devrait être fait.

"ATT_TITREFILM" de type "texte" ne peut pas te donner un lien avec "FILMS_NUM" qui est numérique.

La table attribuer doit être ainsi (tu peux donner d'autres noms si tu veux)
"ATT_CODE_EMPRUNTEUR" de type "numérique"
"ATT_CODE_FILMS" de type "numérique"

La clé primaire étant "ATT_CODE_EMPRUNTEUR","ATT_CODE_FILMS" .

"ATT_CODE_EMPRUNTEUR" pouvant être lié avec "Emp_Num"
"ATT_CODE_FILMS" pouvant être lié avec "FILMS_NUM"

Ta requette devient
Code:

1 2 3 4 5 sql = "SELECT FILMS_TITRE,EMP_NOM, EMP_PRENOM " sql = sql & " FROM FILMS, EMPRUNTEUR , attribuer " 'les tables concernées sql = sql & " WHERE films_num = att_code_film " ' lien entre films et attribuer sql = sql & " AND emp_num = att_code_emprunteur " ' lien entre attribuer et emprunteu sql = sql & " AND films_titre = '" & Lst_recherchefilm.text & "'" ' la selection de recherche
A+, Hervé

28/11/2008, 23h00
*kitty*

bon j'ai refais ma table attribuer avec les bonnes valeurs.

Mais maintenant, lorsque je lance l'appli il affiche ceci :

Code:

BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel

Lorsque je fais un déboggage il me renvoie sur cette ligne

If rst_rechercheDVD.Fields("FILMS_TITRE") = Lst_recherchefilm.Text Then

J'ai enregistré comme il a suggéré mais rien. La bdd a été enregistré et fermé.
28/11/2008, 23h27
rv26t

A mon avis, après la ligne

Code:

rst_rechercheDVD.Open sql, cnx

Il faut tester si le jeu de données retourné est vide
S'il ne l'est pas tu fait tes traitements.

Mais il sagit d'une autre question tu devrais ouvrir un nouveau sujet (règle du forum ;) )
En mettant le code de ta procédure "Lst_recherchefilm_Click"
et ta question.
29/11/2008, 08h59
rv26t
D'ailleur maintenant, la recherche d'un emprunteur d'un film est très simple.

Grace à cette ligne de la requette
Code:

1 2 3 '... sql = sql & " AND films_titre = '" & Lst_recherchefilm.text & "'"
Tu as le résultat directement.

Algo:
Si le résultat de la requette est vide
. le film n'a pas été emprunté
sinon
. le résultat contient le nom de l'emprunteur

bonne programmation.

A+, Hervé
29/11/2008, 14h10
*kitty*

Ok, merci beaucoup