help dans condition where

Question

salut je veux expliqué mon problème
j'ai la requête suivant:

 Set RS = New ADODB.Recordset
    RS.Open "SELECT transfert.NUM_TRANS, transfert.LIEU_TRANS, eleve.NUM FROM transfert INNER JOIN eleve ON eleve.NUM = transfert.NUM WHERE transfert.NUM_TRANS=" & Val(NUM_TRANS) And eleve.NUM = " &Val(NUM), CN"
    If Not RS.EOF Then
        MsgBox "Le N° transfert saisit existe déjà.", vbExclamation, "transfert ..."
        Else
        
 CN.Execute "INSERT INTO transfert (NUM_TRANS,LIEU_TRANS,NUM) Values (" & Val(txtNUM_TRANS) & ",'" & Trim(txtLIEU_TRANS) & "','" & Val(txtNUM) & "');"

        MsgBox "transfert enregistré ...", vbInformation, "transfert ..."
 
l'erreur se trouve dans le code sectionnée en rouge j'ai besoin de l corrigé

cs_boss24 · Answer

RS.Open "SELECT transfert.NUM_TRANS, transfert.LIEU_TRANS, eleve.NUM FROM transfert INNER JOIN eleve ON eleve.NUM = transfert.NUM WHERE transfert.NUM_TRANS=" & Val(NUM_TRANS) And eleve.NUM = " &Val(NUM), CN 
l'erreur se trouve dans condition where

cs_DARKSIDIOUS · Answer

Salut,

Tu as un problème dans tes guillemets :
RS.Open "SELECT transfert.NUM_TRANS, transfert.LIEU_TRANS, eleve.NUM FROM transfert INNER JOIN eleve ON eleve.NUM = transfert.NUM WHERE transfert.NUM_TRANS=" & Val(NUM_TRANS) & " And eleve.NUM = " & Val(NUM), CN"
______________________________________

AVANT de poster votre message, veuillez lire, comprendre, et appliquer notre réglement

cs_boss24 · Answer

erreur toujour

cs_DARKSIDIOUS · Answer

Salut,

Ah oui, c'est quoi ce ",CN" qui traîne à la fin ?
RS.Open "SELECT transfert.NUM_TRANS, transfert.LIEU_TRANS, eleve.NUM FROM transfert INNER JOIN eleve ON eleve.NUM = transfert.NUM WHERE transfert.NUM_TRANS=" & Val(NUM_TRANS) & " And eleve.NUM = " & Val(NUM)


______________________________________

AVANT de poster votre message, veuillez lire, comprendre, et appliquer notre réglement

cs_Jack · Answer

Oui, le  ", CN" c'est normal dans une syntaxe Open ADODB.

Par contre, il manque :
- un & à la fin
- Pas de Val mais CStr puisque tu es en train de travailler avec une String
- le " final est de trop
à condition que NUM_TRANS et NUM sont bien des variables de ton programme VB

RS.Open "SELECT transfert.NUM_TRANS, " & _
        "       transfert.LIEU_TRANS, " & _
        "       eleve.NUM " & _
        "  FROM transfert " & _
        " INNER JOIN eleve ON eleve.NUM = transfert.NUM " & _
        " WHERE transfert.NUM_TRANS = " & CStr(NUM_TRANS) & _
        "   And eleve.NUM = " & CStr(NUM), CN
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Help dans condition where

5 réponses

Votre réponse

Discussions similaires