rendre permanent les donnees d'une base

Question

Salut!enfait j'utilise visual Studio 2008 et j'ai un probleme avec ma base Access, bon voila mon probleme:
quand jeffectue une operation (insertion, modification ou suppression) à partir de mon formulaire,celle-ci s'execute normalement.mais quelque temps apres ma base de donnees se vide(aucun enregistrement ny existe)
mes lignes de codes:

'insert une nouvelle direction
    Public Sub insertDir(ByVal id As String, ByVal nm As String)
        Try
            Dim conect As OleDbConnection = New OleDbConnection(source)
            Dim cmd As OleDbCommand = conect.CreateCommand
            conect.Open()
            cmd.CommandText = "INSERT INTO DIRECTION(id_direction,nom_direction) VALUES('" & id & "','" & nm & "')"
            cmd.ExecuteNonQuery()
            MsgBox("Enregistrement réussi", MsgBoxStyle.Information)
            conect.Close()
            Dim obj As OleDbDataAdapter = New OleDbDataAdapter(cmd)
            obj.Fill(tab)
            obj.Update(DSet, "DIRECTION")
        Catch ex As Exception
            MsgBox("Enregistrement échoué", MsgBoxStyle.Critical)
        End Try

    End Sub




    'supprime la direction selectionnée
    Public Sub suppDir(ByVal ii As String)
        If MsgBox("Voulez-vous vraiment supprimer cet enregistrement?", 36, "Suppression") = MsgBoxResult.Yes Then
            Try
                Dim conect As OleDbConnection = New OleDbConnection(source)
                Dim cmd As OleDbCommand = conect.CreateCommand
                Dim tab As New DataTable
                conect.Open()
                cmd.CommandText = "DELETE FROM DIRECTION WHERE id_direction='" & ii & "'"
                cmd.ExecuteNonQuery()
                MsgBox("Suppression réussie!", MsgBoxStyle.Information)
                conect.Close()
                Dim obj As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                obj.Fill(tab)
                obj.Update(DSet, "DIRECTION")
            Catch ex As Exception
                MsgBox("Suppression échouée!", MsgBoxStyle.Critical)
            End Try
        Else
            Exit Sub
        End If
    End Sub



    'met à jour une direction
    Public Sub majDir(ByVal id As String, ByVal nom As String)
        Try
            Dim conect As OleDbConnection = New OleDbConnection(source)
            Dim cmd As OleDbCommand = conect.CreateCommand
            conect.Open()
            cmd.CommandText = "UPDATE DIRECTION SET nom_direction='" & nom & "' WHERE id_direction='" & id & "'"
            cmd.ExecuteNonQuery()
            MsgBox("Mise à jour réussie", MsgBoxStyle.Information)
            Dim obj As OleDbDataAdapter = New OleDbDataAdapter(cmd)
            obj.Fill(tab)
            obj.Update(DSet, "DIRECTION")
            conect.Close()
        Catch ex As Exception
            MsgBox("Mise à jour échouée", MsgBoxStyle.Critical)
        End Try
    End Sub





merci davance!

NHenry · Answer

Bonjour, 

Question bête, ne restaures-tu pas la base de données au démarrage ?
Quels sont les accès au fichier de la base de données dans ton code ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Rendre permanent les donnees d'une base

1 réponse

Votre réponse

Discussions similaires