Insert into dans VBA

Question

Quelqu'un pourrait m'aider &#224; chercher l'erreur qui se cache dans mon code:
"erreur dans l'instruction insert into:"

apres clic sur un boutons VALIDER L'INSCRIPTION:
OUI/NON
Si OUI:
 If reponse = vbYes Then
        Set rs = New ADODB.Recordset
    vsql = "INSERT INTO D&#233;faut " // defaut: table dans laquel inserer les nouvelles valeures
   vsql = vsql + "[D&#233;faut.Init],[D&#233;faut.Nom],[D&#233;faut.Pr&#233;nom],[D&#233;faut.Adresse].value,[Code Postal].value,[D&#233;faut.ville].value,[D&#233;faut.Num&#233;ro Tel].value,[D&#233;faut.E-mail].Value,[me!txtinit_n_p].value,[me!txtnom_n_p].value,[me!txtprenom_n_p].values,[me!txtadresse_n_p].value,[me!txtcp_n_p].values,[me!txt_Ville_n_p).values,[me!txt_tel_n_p].value,[me!txtmail_n_p].value"
          


      DoCmd.RunSQL vsql
      Set bd = CurrentDb
      Set tdef = bd.OpenRecordset("D&#233;faut", dbOpenDynaset)
      MsgBox ("Enregistrement effectu&#233;")


Booba

cs_Jack · Answer

La syntaxe SQL compl&#232;te est :
Insert Into nomTable
(Champ1, Champ2, ... ChampX)
Values (Valeur1, Valeur2, ... ValeurX)

De plus, les valeurs des champs de type (de type tels que d&#233;finis dans la DB) :
Texte : doivent &#234;tre encadr&#233;s par des '
Date : doivent &#234;tre encadr&#233;s par des #
Chiffres : pas d'encadrement
Mettre des crochets [ et ] quand le nom d'un champ comporte des espaces ou des caract&#232;res non standards (comme les accents) - tu peux en mettre partout, mais faut penser &#224; les refermer ! (voir me!txt_Ville_n_p)

Si tu veux ins&#233;rer des valeurs issues de ton programme, il faudra sortir de la syntaxe SQL pour prendre en compte les variables. Exemple 
vsql = vsql & "'" & me!txtadresses_n_p.Value & "', '" & [D&#233;faut.E-mail].Value & ...

En VB, la concat&#233;nation de chaine se fait avec le symbole &, pas le + (avec +, &#231;a marche ... jusqu'au jour o&#249; &#231;a marchera pas)

Tout ceci, tu aurais pu l'apprendre en chageant quelsues sources qui parlent de DB sous VB ...

Vala
Jack, MVP VB
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)

Insert into dans VBA

1 réponse

Discussions similaires