"Erreur de synthaxe dans la clause FROM" ???

Question

Bon, j'ai un gros probl&#232;me, je ne sais pas ce qu'il se passe...

date_actuelle = Format$(Date, "dd/mm/yyyy")
heure_actuelle = Format$(Date, "hh:mm")
' Ici, on &#233;chappe les "'" afin de ne pas rencontrer de probl&#232;me lors de l'insertion dans la BD
v_comm = Replace(comm.Text, "'", "''")
' D&#233;but de la transaction
Conn.BeginTrans

If ok = True Then
    ' Le bilan est donc OK ==> True
    bilan = True
    If v_comm = "" Then
        v_comm = " La t&#226;che a &#233;t&#233; r&#233;alis&#233; avec succ&#233;s... "
    End If
    v_comm =  Replace(v_comm, "'", "''")
 Set rc_tache Conn.Execute("SELECT num_action, jour_action, heure_action, comm_action, num_tache From Action where num_action " & v_num_action & ";") 

    Conn.Execute ("INSERT INTO HISTORIQUE ( num_action, bilan_action, jour_action, heure_action, jour_rea_action, heure_rea_action, comm_action, num_tache, num_rea ) VALUES ( " & rc_tache.Fields("num_action") & ", " & bilan & ", '" & rc_tache.Fields("jour_action") & "', '" & rc_tache.Fields("heure_action") & "', '" & date_actuelle & "', '" & heure_actuelle & "', " & v_comm & ", " & rc_tache.Fields("num_tache") & ", " & v_id & ");")

    ' La transaction peut-&#234;tre confirm&#233;e
    Conn.Execute ("DELETE FROM Action WHERE num_action  = " & v_num_action & ";")
    MsgBox " T&#226;che (OK) valid&#233;e avec succ&#232;s ! "

    Unload Me
End If

Conn.CommitTrans
Set rc_tache = Nothing

Voil&#224; mon bout de code, et toujours la m&#234;me erreur...
 "Erreur d'execution '-2147217900 (8000410e14)':
Erreur de synthaxe dans la clause FROM"

(sur la requete soulign&#233;e)

Ma requ&#234;te est bonne, ma connexion fonctionne... Impossible de faire tourner... Mes variables sont bien d&#233;finies... Je suis bloqu&#233;...

Please HELP !

C'est en forgeant qu'on devient forgeron...

cs_Jack · Answer

Parce que la syntaxe utilis&#233;e n'est pas adapt&#233;e &#224; la requ&#232;te :
rc_tache.Open strLaRequ&#232;teSQL, Conn, adOpenStatic, adLockReadOnly
La m&#233;thode Conn.Execute n'est utilisable que si le r&#233;sultat de la requ&#232;te SQL ne doit renvoyer que le nombre de donn&#233;es modifi&#233;es, comme les INSERT ou DELETE.

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

SenseiKakashi · Answer

Le probl&#232;me c'est que j'ai d'autre If dans la m&#234;me proc&#233;dure, qui sont lus selon la reponse d'un group de boutton d'option...
Donc, dans un autre cas, &#231;a bloque sur Conn.Execute(" UPDATE Action Set comm_action UneVariable WHERE num_action UnNum&#233;ro ;")

Et &#231;a me met erreur de synthaxe dans UPDATE... meme genre d'erreurs quoi...

Et &#233;galement avec un DELETE

Conn.Execute (" DELETE FROM Action WHERE num_action = UnNum&#233;ro ;")

Alors voil&#224;, meme avec un delete &#231;a me mets cette erreur...

C'est en forgeant qu'on devient forgeron...

valtrase · Answer

Salut suis pas tr&#233;s call&#233; en requette mais as tu essayer en entourant ton v_num_action par des '

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

SenseiKakashi · Answer

D&#233;j&#224; tester, &#231;a ne fonctionne pas mieux...

Je trouve vraiment pas l&#224;...

C'est en forgeant qu'on devient forgeron...

SenseiKakashi · Answer

If ok = True Then
    ' Le bilan est donc OK ==> True
    bilan = True
    If v_comm = "" Then
        v_comm = " La t&#226;che a &#233;t&#233; r&#233;alis&#233; avec succ&#233;s... "
    End If

    Set rc_tache = New ADODB.Recordset
    req "SELECT * FROM Action WHERE num_action '" & v_num_action & "';"

    rc_tache.Open req, Conn, adOpenStatic, adLockReadOnly

    Conn.Execute ("INSERT INTO HISTORIQUE ( num_action, bilan_action, jour_action, heure_action, jour_rea_action, heure_rea_action, comm_action, num_tache, num_rea ) VALUES ( " & rc_tache.Fields("num_action") & ", " & bilan & ", '" & rc_tache.Fields("jour_action") & "', '" & rc_tache.Fields("heure_action") & "', '" & date_actuelle & "', '" & heure_actuelle & "', " & v_comm & ", " & rc_tache.Fields("num_tache") & ", " & v_id & ");")

    ' La transaction peut-&#234;tre confirm&#233;e
    Conn.Execute ("DELETE FROM Action WHERE num_action = " & v_num_action & ";")
    MsgBox " T&#226;che (OK) valid&#233;e avec succ&#232;s ! "
    Unload Me
End If

Bon, j'ai remplac&#233;, mais &#231;a e donne toujours un message d'erreurs, sur la clause FROM de "req"... Est-ce que &#231;a joue que je sois en ADO pour la methode du rc_tache.Open ???

Et quand je d&#233;place le d&#233;bogueur sur une autre ligne que rc_tache.Open, par exemple sur la requete suivante, &#231;a me remet encore la m&#234;me erreur... 

Je vous jure, c'est p&#233;nible de stagner, et je vois pas pourquoi &#231;a met cette erreur, alors si vous pouviez m'indiquer...

Merci

C'est en forgeant qu'on devient forgeron...

laurent207 · Answer

salut &#224; tous,



j'ai le m&#234;me probl&#232;me, sauf que moi j'utilise la m&#233;thode comme le dis
fack. Ce qui ai vraiment troublant c que g des requ&#234;tes syntax&#233; a peu
pr&#233;s pareilles et elles, elles passent.


je fait :



    Dim rs As New ADODB.Recordset

    

    rs.Open "SELECT * FROM Logiciel_Autre WHERE IDPoste
 " & IDPoste & " AND NomLogAutre  " & Chr(34) &
ResLogiciel & Chr(34), CnxAccess, adOpenDynamic, adLockReadOnly
'elle passe et marche bien

    IdLogiciel = rs.Fields("IdLogAutre").Value

     rs.Close



     rs.Open "SELECT IdLog FROM Date ", CnxAccess,
adOpenDynamic, adLockOptimistic '&#231;a plante, alors que la syntaxe est
ultra simple et g plein de requ&#234;ttes dans mon code comme &#231;a qui marche
(mais sur d'autre table, ma table "Date" est peut &#234;tre v&#233;rol&#233;e)



    Quant pensez-vous (j'utilise une bd sous Access 97) ?


laurent207

laurent207 · Answer

essaye de modifier le nom de ta base



moi, g renom&#233; m'a table Date en DateUtil et &#231;a marche.

laurent207

"Erreur de synthaxe dans la clause FROM" ???

7 réponses

Discussions similaires