SQLRésolu

Question

Bonjour,
J'ai un problème avec ma requète : 

req_doc = "select code_empruntable, titre_doc, ss_titre_doc, theme_doc, px_doc, date_edition, code_rech_doc, DOCUMENT.code_doc AS a, DOCUMENT.code_editeur AS b, DOCUMENT.code_type_doc AS c"
req_doc = req_doc + " from DOCUMENT, TYPE_DOCUMENT, CORRESPONDRE, AUTEUR, EDITEUR, EXEMPLAIRE "req_doc req_doc + " where TYPE_DOCUMENT.code_type_doc DOCUMENT.code_type_doc"req_doc req_doc + " and DOCUMENT.code_editeur EDITEUR.code_editeur"req_doc req_doc + " and DOCUMENT.code_doc CORRESPONDRE.code_doc"req_doc req_doc + " and CORRESPONDRE.code_auteur AUTEUR.code_auteur"req_doc req_doc + " and DOCUMENT.code_doc EXEMPLAIRE.code_doc"req_doc req_doc + " and titre_doc""" + Combo_titre_doc.Text + """"

Pourriez vous m'aider svp 

l'erreur affichée  =>  erreur de syntaxe dans le select

Merci de votre aide

flopurple · Accepted Answer

"Ma requête effectue des jointures ce qui est incompatible avec un ajout ou une mise 
à jour de/des tables, il faut décomposer et n'utiliser d'une table à la fois 
pour un accès en écriture sur une base de données. S'il y a plusieurs table à 
mettre à jour il faut le faire avec plusieurs requêtes."





Voilà ce que mon prof de dev m'a répondu ce matin et tout fonctionne correctement à présent je posterai mon pti code quant je l'aurai terminé... 

Merci pour votre aide

NHenry · Answer

Bonjour

1) a la place des + utilises des & (pour concaténer les chaines)
2) Avec Debug.Print, affiche la requête tel qu'elle est envoyée

sinon, je ne vois rien qui me choque particulièrement.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

cs_Exploreur · Answer

Salut,

Je pencherais pour la fine de la requête, essaye cela défois que :

req_doc = "select code_empruntable, titre_doc, ss_titre_doc, theme_doc, px_doc, date_edition, code_rech_doc, DOCUMENT.code_doc AS a, DOCUMENT.code_editeur AS b, DOCUMENT.code_type_doc AS c"
req_doc = req_doc & " from DOCUMENT, TYPE_DOCUMENT, CORRESPONDRE, AUTEUR, EDITEUR, EXEMPLAIRE "req_doc req_doc & " where TYPE_DOCUMENT.code_type_doc DOCUMENT.code_type_doc"req_doc req_doc & " and DOCUMENT.code_editeur EDITEUR.code_editeur"req_doc req_doc & " and DOCUMENT.code_doc CORRESPONDRE.code_doc"req_doc req_doc & " and CORRESPONDRE.code_auteur AUTEUR.code_auteur"req_doc req_doc & " and DOCUMENT.code_doc EXEMPLAIRE.code_doc"req_doc req_doc & " and titre_doc '" & Combo_titre_doc.Text & "'"

A+
Exploreur

 Linux a un noyau, Windows un pépin

flopurple · Answer

Merci pour votre aide mais rien ne fonctionne !
Je ne comprends pas pourquoi j'utilise SQL depuis 3 ans et cette petite erreur m'enpeche d'avancer....

cs_Exploreur · Answer

Re,

Comme le problème n'est pas résolut, ne valide par les réponses....

A+
Exploreur

 Linux a un noyau, Windows un pépin

flopurple · Answer

Ok merci pr l'info je decouvre le forum ...

NHenry · Answer

Bonjour

Je repose mon point n°2 : Affiche la requête comme elle est executée :
Avec un debug.Print par exemple et met l'affichage sur le sujet en cours.

Ensuite, tu bosse avec quel SGBD ?

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

je taf sur ACCESS et VB 6.0 
et debug.print ?   je vais essayer ca ! merci

flopurple · Answer

debug.print ne me donne aucune valeur 
c'est vraiment le formalisme de la requète

au niveau de mon select car si je ne met pas les champs "DOCUMENT.code_doc AS a, DOCUMENT.code_editeur AS b, DOCUMENT.code_type_doc AS c" ma requète s'affiche mais je ne peut pas l'utiliser sans alias 

faut-il mettre des crochets ou des choses comme ca j'ai cherché partout je ne comprend pas

NHenry · Answer

Bonjour

Debug.Print req_doc
affiche ta requête dans la fenêtre "Execution" de l'environnement.

Et ensuite, tu copie ce qu'il t'affiche ici pour voir si ta requête est correcte.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

ca n'affiche rien du tout ds la fenetre execution
lorsque je met le curseur sur le beug ca me donne ceci :
    req_doc = ""

NHenry · Answer

Bonjour

Ben alors met le code entre la définition de ta requete et le Debug.Print.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

Rien ne se passe
...

NHenry · Answer

Bonjour

Une recherche google avec "SQL alias" m'a donné un site : 
http://sql.1keydata.com/fr/sql-alias.php

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

NHenry · Answer

Bonjour

Ou encore : 
http://www.journaldunet.com/developpeur/tutoriel/sql/051215-sql-alias-ambiguite.shtml

Test les 2 possibilité évoquées.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

Mais ce n'est pas logique j'ai pourtant essayer le formalisme que tu as trouvé NHenry sur le site mais tjr rien

req_doc = "" ""

Normalement la requète devrait etre = "select ......." mais la ca ne prend pas du tout ce que j'ai codé

NHenry · Answer

Bonjour

Met le code de ta sub/fonction alors.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

Tjr pareil j'ai perdu ma matinée je suis vraiment perdu j'ai essayer 

req_doc = "select code_empruntable, titre_doc, ss_titre_doc, theme_doc, px_doc, date_edition, code_rech_doc, D.code_doc as 'a', D.code_editeur as 'b', D.code_type_doc as 'c' "

rien a faire 

au debeug => req_doc = "" 

pourquoi la requète ne passe pas ????

je trouve pas d'autre solution ...

NHenry · Answer

Bonjour

Met le code de ta sub/fonction alors.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

Voila mon pti code :

Private Sub Cmd_enreg_Click()
Dim cuDoc As New ADODB.Recordset
'Dim cuCorrespondre As New ADODB.Recordset
Dim cuEx As New ADODB.Recordset
Dim cuCodetypedoc As New ADODB.Recordset
Dim cuAut As New ADODB.Recordset
Dim cuCodeEdi As New ADODB.Recordset
Dim req_Codetypedoc As String
Dim req_code_aut As String
Dim req_code_edi As String
Dim req_doc As String
Dim req_ex As String
Dim changetheme As Boolean

Debug.Print req_doc
'--- requète code type doc
req_Codetypedoc = "select code_type_doc from TYPE_DOCUMENT where libelle_doc=""" + Combo_type_doc + """"
cuCodetypedoc.Open req_Codetypedoc, bd, adOpenDynamic, adLockOptimistic

'--- requète code auteurreq_code_aut "select code_auteur from AUTEUR where nom_auteur """ + Combo_nom_aut + """"
cuAut.Open req_code_aut, bd, adOpenDynamic, adLockOptimistic

'--- requète code editeurreq_code_edi "select code_editeur from EDITEUR where nom_editeur """ + Combo_edit + """"
cuCodeEdi.Open req_code_edi, bd, adOpenDynamic, adLockOptimistic

'--- requète exemplairereq_ex "select * from DOCUMENT, EXEMPLAIRE where DOCUMENT.code_doc EXEMPLAIRE.code_doc"req_ex req_ex + " and EXEMPLAIRE.code_doc" + cuDoc!a

'--- requète document
req_doc = " select code_empruntable, titre_doc, ss_titre_doc, theme_doc, px_doc, date_edition, code_rech_doc, D.code_doc as 'a', D.code_editeur as 'b', D.code_type_doc as 'c' "
req_doc = req_doc + " from DOCUMENT D, TYPE_DOCUMENT TD, CORRESPONDRE C, AUTEUR A, EDITEUR E, EXEMPLAIRE EX"req_doc req_doc + " where TD.code_type_doc D.code_type_doc"req_doc req_doc + " and D.code_editeur E.code_editeur"req_doc req_doc + " and D.code_doc C.code_doc"req_doc req_doc + " and C.code_auteur A.code_auteur"req_doc req_doc + " and D.code_doc EX.code_doc"req_doc req_doc + " and D.titre_doc'" & Combo_titre_doc.Text & "'"

'--- ouvrir un recordset sur le document correspondant à la recherche
cuDoc.Open req_doc, bd, adOpenDynamic, adLockOptimistic

'--- booléen permettant de determiner si le thême à été modifié
If cuDoc!theme_doc <> Combo_theme_doc.Text Then
    changetheme = True
    Else
    changetheme = False
End If

'--- boucle en fonction du curseur document
While Not cuDoc.EOF
    '--- MAJ table document
    cuDoc!code_empruntable = Check1.Value
    cuDoc!titre_doc = T_titre_doc
    cuDoc!ss_titre_doc = T_ss_titre_doc
    cuDoc!theme_doc = Combo_theme_doc.Text
    cuDoc!px_doc = T_px_doc
    cuDoc!date_edition = T_date_edit
    cuDoc!c = cuCodetypedoc!code_type_doc
    cuDoc!b = cuCodeEdi!code_editeur
    cuDoc.Update
    '--- MAJ table exemplaire si le theme à été modifié
    cuEx.Open req_ex, bd, adOpenDynamic, adLockOptimistic
    If changetheme = True Then
            While Not cuEx.EOF
                cuEx!code_rech_doc = codeRech(Combo_theme_doc.Text)
                cuEx.Update
            Wend
    End If
    cuEx.Close
Wend
cuCodeEdi.Close
cuDoc.Close
end sub

NHenry · Answer

Bonjour

C'est normal, tu place le Debug.Print au mauvais endroit :
Dim changetheme As Boolean
Debug.Print req_doc
'--- requète code type doc

alors qu'il devrait être à :req_doc req_doc + " and D.titre_doc'" & Combo_titre_doc.Text & "'"
Debug.Print req_doc

'--- ouvrir un recordset sur le document correspondant à la recherche
cuDoc.Open req_doc, bd, adOpenDynamic, adLockOptimistic

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

Je l'ai placé un peu partout dans mon code et ca ne change rien

flopurple · Answer

Aucun texte n'a été défini pour la commande 

req_doc = ""
 
tjr la meme erreur, tjr la meme chose

NHenry · Answer

Bonjour

Bon, je vais essayer de comprendre comment tu fais pour ne rien voir .........

A la place de mettre uniquement 
Debug.Print req_doc

Met : 
If req_doc<>"" then
    debug.print req_doc
    Stop
end if

Normalement, à partir du moment où req_doc est définit, ton programme va être mis en pause et tu regarde dans la fenêtre d'execution le texte qu'il y a dedans.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

flopurple · Answer

Private Sub Cmd_enreg_Click()
Dim cuDoc As New ADODB.Recordset
Dim cuEx As New ADODB.Recordset
Dim cuCodetypedoc As New ADODB.Recordset
Dim cuAut As New ADODB.Recordset
Dim cuCodeEdi As New ADODB.Recordset
Dim req_Codetypedoc As String
Dim req_code_aut As String
Dim req_code_edi As String
Dim changetheme As Boolean

'--- requète code type doc
req_Codetypedoc =  "select code_type_doc from TYPE_DOCUMENT where libelle_doc=""" + Combo_type_doc + """"
cuCodetypedoc.Open req_Codetypedoc, bd, adOpenDynamic, adLockOptimistic

'--- requète code auteurreq_code_aut "select code_auteur from AUTEUR where nom_auteur """ + Combo_nom_aut + """"
cuAut.Open req_code_aut, bd, adOpenDynamic, adLockOptimistic

'--- requète code editeurreq_code_edi "select code_editeur from EDITEUR where nom_editeur """ + Combo_edit + """"
cuCodeEdi.Open req_code_edi, bd, adOpenDynamic, adLockOptimistic

'--- ouvrir un recordset sur la table DOCUMENT
cuDoc.Open "DOCUMENT", bd, adOpenDynamic, adLockOptimistic

'--- boucle en fonction du curseur document
While Not cuDoc.EOF
    If cuDoc!titre_doc = Combo_titre_doc.Text Then
        '--- MAJ table document
            cuDoc!code_empruntable = Check1.Value
            cuDoc!titre_doc = T_titre_doc
            cuDoc!ss_titre_doc = T_ss_titre_doc
            cuDoc!theme_doc = Combo_theme_doc.Text
            cuDoc!px_doc = T_px_doc
            cuDoc!date_edition = T_date_edit
            cuDoc!code_type_doc = cuCodetypedoc!code_type_doc
            cuDoc!code_editeur = cuCodeEdi!code_editeur
        cuDoc.Update
        '--- booléen permettant de determiner si le thême à été modifié
        If cuDoc!theme_doc <> Combo_theme_rech.Text Then
           changetheme = True
        Else
           changetheme = False
        End If
        '--- MAJ table exemplaire si le theme à été modifié
         cuEx.Open "EXEMPLAIRE", bd, adOpenDynamic, adLockOptimistic 
        If changetheme  = True Then
            While Not cuEx.EOF
                If cuEx!code_doc = cuDoc!code_doc Then
                    cuEx!code_rech_doc = codeRech(Combo_theme_doc.Text)
                    cuEx.Update
                    cuEx.MoveNext
                Else
                    cuEx.MoveNext
                End If
            Wend
        End If
        cuEx.Close
        cuDoc.MoveNext
    Else
    cuDoc.MoveNext
    End If
Wend
cuCodeEdi.Close
cuDoc.Close
End Sub

Comme quoi il ne faut pas vouloir faire compliqué . . .

SQL

25 réponses

Votre réponse

Discussions similaires