[Vb6]Probleme d'ajout a l'aide Insert into

salut bon j'utilise La requette d'ajout INSERT INTO Pour l'ajout dans la Table Bon voila j'ai une table UTILISATEUR (Ident, Nom, Prenom, Tel, pseudo, motpass, question, reponse, Profile)
Le champs Profile peux etre Administrateur ou Vendeur donc je me suis servis du 2 Option
Option1 Pour "Administrateur" , Option2 Pour "Vendeur"
Voila le code D'ajout

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Valider_Click() If Option1.Value = True Then SQL = "insert into utilisateur(nom, prenom, tel, pseudo, motpass, question, reponse, profile)" & _ " values('" & Text1 & "' , '" & Text2 & "' , '" & MaskEdBox1.Text & "' , '" & Text3 & "' ," & _ " '" & Text4 & "' , '" & Text5 & "' , '" & Text6 & "' , 'Administrateur'" Base.Execute SQL   ElseIf Option2.Value = True Then SQL = "insert into utilisateur(nom, prenom, tel, pseudo, motpass, question, reponse, profile)" & _ " values('" & Text1 & "' , '" & Text2 & "' , '" & MaskEdBox1.Text & "' , '" & Text3 & "' ," & _ " '" & Text4 & "' , '" & Text5 & "' , '" & Text6 & "' , 'Vendeur'" Base.Execute SQL End If Call Effacer 'Vider les champs du saisis End Sub

---

quand je valiide il me sorte un deboguage Erreur de Syntaxe

Je ne suis pas très doué en VB mais pourquoi remettre un elseif, un else tout court suffit non

si option1
code
sinon
code

mais je ne crois pas que ça explique ton erreur

Bonjour,

Je ne vois pas la parenthèse fermante pour les values.

Il manque la parenthèse de fermeture et je simplifierais un peu le code, ta requête n'est codée qu'une fois et don cplus simple à modifier si nécessaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Valider_Click() Dim UserType As String If Option1.Value = True Then UserType = "Administrateur" ElseIf Option2.Value = True Then UserType = "Vendeur" End If SQL = "insert into utilisateur(nom, prenom, tel, pseudo, motpass, question, reponse, profile)" & _ " values('" & Text1 & "' , '" & Text2 & "' , '" & MaskEdBox1.Text & "' , '" & Text3 & "' ," & _ " '" & Text4 & "' , '" & Text5 & "' , '" & Text6 & "' , '" & UserType & "')" Base.Execute SQL Call Effacer 'Vider les champs du saisis End Sub

---

Grillé par Pc75 ;)

Citation:

---

Envoyé par r.mehdi

salut bon j'utilise La requette d'ajout INSERT INTO Pour l'ajout dans la Table Bon voila j'ai une table UTILISATEUR (Ident, Nom, Prenom, Tel, pseudo, motpass, question, reponse, Profile)
Le champs Profile peux etre Administrateur ou Vendeur donc je me suis servis du 2 Option
Option1 Pour "Administrateur" , Option2 Pour "Vendeur"
Voila le code D'ajout

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Valider_Click() If Option1.Value = True Then SQL = "insert into utilisateur(nom, prenom, tel, pseudo, motpass, question, reponse, profile)" & _ " values('" & Text1 & "' , '" & Text2 & "' , '" & MaskEdBox1.Text & "' , '" & Text3 & "' ," & _ " '" & Text4 & "' , '" & Text5 & "' , '" & Text6 & "' , 'Administrateur'" Base.Execute SQL ElseIf Option2.Value = True Then SQL = "insert into utilisateur(nom, prenom, tel, pseudo, motpass, question, reponse, profile)" & _ " values('" & Text1 & "' , '" & Text2 & "' , '" & MaskEdBox1.Text & "' , '" & Text3 & "' ," & _ " '" & Text4 & "' , '" & Text5 & "' , '" & Text6 & "' , 'Vendeur'" Base.Execute SQL End If Call Effacer 'Vider les champs du saisis End Sub

---

quand je valiide il me sorte un deboguage Erreur de Syntaxe

---

Tu dois déclarer ses champs la

Citation:

---

Envoyé par OhMonBato

Il manque la parenthèse de fermeture et je simplifierais un peu le code, ta requête n'est codée qu'une fois et don cplus simple à modifier si nécessaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Valider_Click() Dim UserType As String If Option1.Value = True Then UserType = "Administrateur" ElseIf Option2.Value = True Then UserType = "Vendeur" End If SQL = "insert into utilisateur(nom, prenom, tel, pseudo, motpass, question, reponse, profile)" & _ " values('" & Text1 & "' , '" & Text2 & "' , '" & MaskEdBox1.Text & "' , '" & Text3 & "' ," & _ " '" & Text4 & "' , '" & Text5 & "' , '" & Text6 & "' , '" & UserType & "')" Base.Execute SQL Call Effacer 'Vider les champs du saisis End Sub

---

Grillé par Pc75 ;)

---

oups ta rasion j'ai oublié les parenthése de fermeture;)Merci bcp pour votre aide et merci aussi pour Dot net, Pc75 et dominux80 pour vos aide:)

N'oublie pas le Tag résolu quand ta question a reçu une réponse qui te convient (Cette fois ci je le mets pour toi) ;)