Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dominux80]

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

[pc75]

Bonjour,

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[r.mehdi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 fermetureMerci bcp pour votre aide et merci aussi pour Dot net, Pc75 et dominux80 pour vos aide

[OhMonBato]

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)

[dot-_-net]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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