Bonjour
J'ai une erreur quand je génère mon code au niveau de l'éxécution de la requete mais je ne vois pas trop ! Cela me met une erreur de syntaxe

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
17
18
19
20
21
22
23
24
 
Dim con As New OleDb.OleDbConnection
 
    Public Sub insertUSER(ByVal username As String, ByVal mdp As String, ByVal quest As String, ByVal rep As String)
        'vérif des passages de paramètres
        MessageBox.Show(username & mdp & quest & rep)
        'chaine de connection
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & createChemin()
        'chaine des paramètres
        Dim valeur As String = username + "," + mdp + "," + quest + "," + rep
        MessageBox.Show(valeur)
        'message d'info
        MessageBox.Show("Connection à la base : OK", ".:: Connection", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Dim insert As OleDb.OleDbCommand
        Dim sql_ajouter As String
        sql_ajouter = "INSERT INTO USERS(login,password,question,reponse) VALUES(" + valeur + ")"
        Dim requete As String = sql_ajouter
        MessageBox.Show(requete)
        insert = New OleDb.OleDbCommand(sql_ajouter, con)
        'ouverture connection
        con.Open()
        insert.ExecuteNonQuery()
        con.Close()
    End Sub
Merci.