Bonjour,
Depuis plusieurs semaines, j'essaie d'écrire des données dans une table Access via un formulaire.
J'ai donc une DB, avec une table "users" contenant des champs Nom, Prénom, ect...

J'ai un formulaire qui contient une textbox par champ et un bouton "créer".

J’exécute ce code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
imports System.Data.OleDb
 
Public Class Form1
    Dim provider As String
    Dim datafile As String
    Dim connstring As String
    Dim myconnexion As OleDbConnection = New OleDbConnection
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '  provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "
        '  datafile = "|DataDirectory|\DB.mdb"
        connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb"
        myconnexion.ConnectionString = connstring
        myconnexion.Open()
 
        Dim str As String
        str = "Insert into Users([Nom],[Prenom],[Login],[Password],[Role]) Values (?,?,?,?,?)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myconnexion)
        cmd.Parameters.Add((New OleDbParameter("Nom", input_nom.Text)))
        cmd.Parameters.Add((New OleDbParameter("Prenom", input_prenom.Text)))
        cmd.Parameters.Add((New OleDbParameter("login", input_login.Text)))
        cmd.Parameters.Add((New OleDbParameter("password", input_password.Text)))
        cmd.Parameters.Add((New OleDbParameter("role", input_role.Text)))
        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myconnexion.Close()
            input_login.Clear()
            input_nom.Clear()
            input_prenom.Clear()
            input_password.Clear()
            input_role.Clear()
            MessageBox.Show("Import réussi")
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
End Class
J'ai bien le message "import réussi".... et quand j'ouvre ma DB.... rien n'est ajouté
Je ne comprends pas du tout pourquoi
Je continue de chercher mais si quelqu'un peut me faire gagner du temps ce serait cool