Discussion :

[Pingouin22]

J'ai un problème avec cette requête SQL j'ai essayer de faire des trucs mais sa marche pas si quelqu'un est dévoué pour m'aider je serais reconnaissant :

SELECT DVD.Film
FROM DVD, COPAIN
WHERE COPAIN.IDCopain=DVD.IDCopain And COPAIN.Prénom='Cécilia'
AND EXISTS (
SELECT DVD.Film
FROM DVD, ACTEUR, JOUEDANS
WHERE ACTEUR.IDActeur=JOUEDANS.IDActeur
And DVD.IDDvd=JOUEDANS.IDDvd
And ACTEUR.Nom='DE FUNES');

[al1_24]

Et si tu précisais ce que tu attends de cette requête ?

[Pingouin22]

Les DVD que Cécilia a emprunté dans lequels Louis de Funes est présent enf1 je veut utiliser un Exists

[al1_24]

Comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
select  DVD.Film
from    DVD
  inner join
        COPAIN
    on  COPAIN.IDCopain = DVD.IDCopain 
where   COPAIN.Prénom = 'Cécilia'
    and exists (  select  1
                  from    ACTEUR
                    inner join 
                          JOUEDANS
                      on  ACTEUR.IDActeur = JOUEDANS.IDActeur
                  where   DVD.IDDvd = JOUEDANS.IDDvd
                      and ACTEUR.Nom = 'DE FUNES'
                )
;

[Pingouin22]

Merçi Bcp cela m'avance.... un grand pas pour un Pingouin

[Pingouin22]

j'ai un autre problème pour mettre a jour une table, je pense que le problème vient de la ligne ou je vous au mis des ### si quelqu'un pouvait m'aider

Dim maBD As Database
Dim Valeur As Double
Dim reqSQL As String
Dim choix As Integer
Dim x As Integer

Set maBD = CurrentDb()

Valeur = InputBox("Veuillez saisir un montant de la forme 1.x pour l'augmentation du prix d'un DVD:")

If Valeur = "" Then 'l'utilisateur a rien mis dans "Valeur"
choix = MsgBox("Vous n'avez rien rentré, Aucune Mise à jour effectuée.", vbOKOnly + vbExclamation, "Erreur")
If choix = vbOKOnly Then
Exit Sub
End If
Else: reqSQL = "UPDATE INTO DVD (PrixVente)"
##### reqSQL = reqSQL & " VALUES ('" & PrixVente & " * " & Valeur & "');"

MsgBox reqSQL
maBD.Execute reqSQL
DoCmd.Save
RefreshDatabaseWindow

x = MsgBox("Update Effectué Correctement", vbInformation)

End If 'obligatoire dans la syntaxe de if .... end if
'Call Saisi
End Sub

[soltani1]

Bonjour,

un exemple de mise à jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UPDATE table1 SET table1.nom = 'yyy', table1.prenom = 'aaa'
where table1.idcode = 12

A+