Probleme requete UPDATE

Question

Bonjour, j'ai un souci cette requete ne veut pas passer mais je ne vois pas ce qui cloche...;

SQL = "UPDATE Pointage SET matin_sortie='" & heure_courante & "' WHERE date_pointage='" & datejour & "' AND numèro_emp='" & Texte0 & "' "

Merci beaucoup a celui qui m'aidera

cs_moustachu · Answer

C'est quoi ton erreur ?

Les champs matin_sortie, heure_courante, date_pointage sont des chaînes de caractères ?

++

Moustachu

cs_Juliendu88 · Answer

matin_sortie heure_courante sont des heures abrégés au format "hh:mm" et date pointage = date abrégé  au format "jj/mm/yyyy"

cs_moustachu · Answer

Ben là dans ta requête, tu mets des '  ', le champ doit être définit en tant que chaine de caractère pour que cela fonctionne. Essaye sans pour voir.

C'est quoi exactement ton message d'erreur ?

cs_Juliendu88 · Answer

L'erreur c'est:

Erreur de syntaxe(operateur absent) dans l'expression '10:29:00' 

10:29:00 c'est heure_courante

cs_moustachu · Answer

Retire les ' et dit moi si ça change

cs_Juliendu88 · Answer

J'ai retiré les ' avant l'erreur etait l'incompatibilté de type mais maintenant je vois pas ce que c'est !

cs_Juliendu88 · Answer

Je crois savoir c koi l'erreur c pour ma date car ds ma base elle est en jj/mm/yyyy mais vb ou sql les interprete en date us mm/jj/yyyy

Je vais essayer et je te redis

cs_moustachu · Answer

Ca doit venit de ton format d'heure, il ne doit pas bien comprendre les ":". Ta variable heure_courante est de quel type ? Ton champ matin_sortie est de quel type ?

L'erreur que tu as signifie que le moteur SQL ne comprend ta requête.

Le numèro_emp est de quel type aussi ?

Quand je demùande de quel type (essayons d'être bien clair :o) ) je te demande la définition réelle de tes champs/variable.

cs_Juliendu88 · Answer

Non en fait c pas ca

cs_Juliendu88 · Answer

heure_courante et matin_sortie sont de memes types c'est à dire Date/Heure au format heure abrégée "hh:mm"

et numéro_emp est de type texte

cs_moustachu · Answer

Ok,

Donc pour numéro_emp tu laisses les quotes dans ta requêtes (d'ailleurs, l'accent est grave dans ta requete)

Quand tu dis Date/Heure au format heure abrégée "hh:mm", tu l'as déclaré comment exactement ? (ta ligne de déclaration de heure_courante)

cs_Juliendu88 · Answer

numèro je l'ai remplcer c bon

sinon je declare comme ca

Dim heure_courante As Date
heure_courante = Format(Time, "hh:mm")

cs_moustachu · Answer

:-/
J'aime moyen, mais ça ne veut pas dire que ça vienne de là.
Le retour de la fontion format est une chaine de caractère. Tu peux perdre des infos.

Essaye heure_courante = Time et laisse faire la conversion au moteur SQL.

cs_Juliendu88 · Answer

Ben ca me mets la meme erreur erreur de syntaxe(operateur absent)...

cs_Juliendu88 · Answer

La fonction format je l'utilise pour la date et ca fonctionne très bien...Je comprends pas là !!! Je te mets tout mon code si tu veux...peut etre que j'ai fais des erreurs autre part...

Dim datejour As Date
Dim heure_courante As Date
Dim Oconn As New ADODB.Connection
Dim Ocomm As New ADODB.Command
datejour = Date
heure_courante = Time

 Dim adors As New ADODB.Recordset
    Dim SQL As String
    Oconn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=J:\COMMUN\Maria, Julien\POINTAGE - Formulaires.mdb"
    Oconn.Open
    Ocomm.ActiveConnection = Oconn    SQL "SELECT * FROM Employés WHERE num_emp " & Texte0 & " ;"
    Set adors = Oconn.Execute(SQL)
    If adors.EOF Then
        MsgBox "Ce numéro de pointage ne correspond à aucun employé ! Recommencez..."
    Else           SQL "SELECT matin_sortie FROM Pointage WHERE numéro_emp '" & Texte0 & "' AND date_pointage = #" & datejour & "# ;"
            Set adors = Oconn.Execute(SQL)
            
        If IsNull(adors.Fields(0)) Then            SQL "UPDATE Pointage SET matin_sortie " & heure_courante & " WHERE date_pointage = " & datejour & " AND numéro_emp = '" & Texte0 & "' "
            Set adors = Oconn.Execute(SQL)
            MsgBox "Pointage effectué le " & datejour & " à " & heure_courante & vbCrLf & vbCrLf & " A Bientôt ! "
        Else
            MsgBox "Vous vous êtes déjà pointé !"
            
        End If
     End If

cs_moustachu · Answer

Oui, ça peut effectivement fonctionner avec la fonction Format. Mais c'est VB qui va faire la convertion de Strinf vers Date... à tes risques et périls. Je regarde ton code et je te fais signe.

cs_moustachu · Answer

C'est pas con ton #" & datejour & "#. Mais tu ne l'as pas dans ta requête Update. Essaye de l'ajouter pour l'heure et la date, je continue de regarder

cs_Juliendu88 · Answer

Ca y est ca marche merci beaucoup j'ai rajouté les # pour l'heure...Merci pour ta patience..je peux avancer maintenant.

cs_moustachu · Answer

Tant mieux, je pourrais aller manger la conscience tranquille. :o)

En tous cas, avec tout ce qui est date, VB et SQL, évite le plus possible les conversions implicites.

Bon courage

++

Moustachu