Discussion :

[thovan]

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

[star]

Essaye avec un COMMIT après ton INSERT pour voir
.

[thovan]

Je pense avoir trouvé hier soir...

En fait, à chaque démarrage de l'appli, il travaille dans une copie de la DB.
Il fait bien ce qu'il doit dans cette copie.
Puis, quand on redémarre l'appli, il reprend une copie de la DB originale.... qui n'est donc jamais modifiée.

J'ai vu dans les propriétés de la DB liée au projet, elle est en "always copy".

Je vais tester aujourd'hui en corrigeant ça !

[Pol63]

problème courant, le mieux est de mettre la base dans un autre dossier que celui de la solution