1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Public Sub insertUSER()
'chaine de connection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & createChemin()
'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(username, mdp,quest, rep)"
insert = New OleDb.OleDbCommand(sql_ajouter, con)
insert.Parameters.AddWithValue("username", inscription.TBlogin.Text)
insert.Parameters.AddWithValue("mdp", inscription.TBmdp.Text)
insert.Parameters.AddWithValue("quest", inscription.CBquest.Text)
insert.Parameters.AddWithValue("rep", inscription.TBrep.Text)
'ouverture connection
insert.Connection.Open()
insert.ExecuteReader() 'ERREUR DE SYNTAXE DANS l'instruction insert into
insert.Connection.Close()
End Sub |
Partager