Rendre permanent les donnees d'une base

WilyP Messages postés 2 Date d'inscription jeudi 1 septembre 2011 Statut Membre Dernière intervention 8 septembre 2011 - 8 sept. 2011 à 21:06
NHenry Messages postés 15030 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 26 novembre 2022 - 8 sept. 2011 à 23:20
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!

1 réponse

NHenry Messages postés 15030 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 26 novembre 2022 157
8 sept. 2011 à 23:20
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
0