Discussion :

[abdego]

Salut,

j'ai fait une application Windows Form en vb.net 2008 avec une base de donnée Access 2007.
Lorsque j'ajoute des données dans la table elles s'ajoutent bien mais lorsque je redémarre l’application pour un nouveau ajout de données, les données que j'avais encodées précédemment ne sont plus là.

je ne sais pas pourquoi ?

Merci pour votre aide !

[Bluedeep]

C'est clair qu'avec autant d'informations et de codes, ca va se bousculer pour te donner une solution

Il est difficile de répondre, le plug-in Crystal Ball 1.0beta pour Visual Studio semblant connaitre d'inexplicables ratés de mise au point.

[prologic]

Comment tu ajoute tes données ? Directement avec une insertion (requete sql ?) ou via un DataGrid ?

Il me semble qu'avec un DataGrid, il faut faire un update pour mettre à jour la table mais qu'à la base on n'insère les données que dans le DataGrid. Donc sans update les entrée ont disparus au redémarrage.

(Encore que j'ai un doute sur la faisabilité d'un DataGrid sur une base Access)

[abdego]

Comment tu ajoute tes données ? Directement avec une insertion (requete sql ?) ou via un DataGrid ?

Il me semble qu'avec un DataGrid, il faut faire un update pour mettre à jour la table mais qu'à la base on n'insère les données que dans le DataGrid. Donc sans update les entrée ont disparus au redémarrage.

(Encore que j'ai un doute sur la faisabilité d'un DataGrid sur une base Access)

==> pour l'insertion j'ai un champs dans mon formulaire dans je saisie les donnée a ajouter puis je transféré les données directement
Merci pour ton aids

[infosam76]

Voir une partie du code nous aiderais beaucoup pour te dépanner.

[abdego]

Voir une partie du code nous aiderais beaucoup pour te dépanner.

chaîne de connections :

Code :

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

Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MINI_GStock1.accdb")

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Public Sub remplire(ByVal table As String)
        Try
            ds.Clear()
            da = New OleDbDataAdapter("select * from " & table & "", con)
            da.Fill(ds, table)
        Catch ex As Exception
            MsgBox("Erreur dans la Fonction de Remplissage dataset !!! ")
        End Try
    End Sub

la procédure d'insertion :

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
 Public Sub DB_Insert(ByVal table As String, ByVal val() As String)
        Try
            remplire(table)
            dr = ds.Tables(table).NewRow()
            For i As Integer = 0 To val.Length - 1
                dr(i + 1) = val(i).ToString
            Next
            ds.Tables(table).Rows.Add(dr)
            cmdb = New OleDbCommandBuilder(da)
            da.Update(ds, table)
            ds.Clear()
            MsgBox("ajoute Reussie !", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Erreur dans la  requête d'Insertion !!! ")
        End Try
    End Sub

Remarque :
je travail en mode déconnecter ...