Gestion de base de données Access

Question

:clown) 

Je suis débutant et je réalise un jeu en VB. Je doit lire, des données dans une table. Celles-ci sont susceptibles d'être modifiées et doivent ecraser les anciennes valeurs du fichier access.
Comment faire pour écraser les anciennes valeurs et faire une sauvegarde de la nouvelle table access?

Merci d'avance!

DHKold · Answer

le seul moyen que je connaisse c'est de supprimer l'ancienne donnée et de créer la nouvelle: voilà un exemple tiré de mon programme d'exemple de Base de donnée http://www.vbfrance.com/article.aspx?Val=6678

Dim dbb As Database 'base de données
Dim rs As Recordset 'Table
'On ouvre la base de données test.mdb dans dbb
Set dbb = OpenDatabase("test.mdb", False, False)
'On ouvre la table "Film" dans rs
Set rs = dbb.OpenRecordset("Film")
With rs
    .AddNew         'On prépare un ajout
    rs("Titre") = Text1 'On donne le titre
    rs("Genre") = Text2 'Le genre
    rs("Durée") = Text6 'La durée
    rs("Original") = Check1.Value   'Original ou pas
    rs("Pochette") = Check2.Value   'Pochette ou pas
    rs("Couleur") = Check3.Value    'Couleur ou pas
    If Text3 = "" Then  'Si pas d'image
        Text3 = "No image"
        rs("Image") = Text3
    Else                'Autrement
        For i = 1 To Len(Text3)
            rt = InStr(i, Text3, "", vbTextCompare)
            If rt > rr Then rr = rt
            If rt > 0 Then i = rt
        Next i
        timg = Mid(Text3, rr + 1, Len(Text3) - rr)
        appp = App.Path
        If Right(appp, 1) <> "" Then appp = appp & ""
        If Dir(appp & timg, vbNormal) = "" Then FileCopy Text3, appp & timg
        rs("Image") = timg  'Le chemin de l'image (que je met pas dans la bdd)
    End If
    rs("Résumé") = Text4    'Le résumé
    .Update                 'On envoie les données
End With

J'èspère que cela t'a aidé :shy) 

[mailto:DHkold@hotmail.com Moi]

cs_Boris88 · Answer

Merci pour cette réponse, c'est exactement cue qu'il me fallait. J'ai télécharger ton prog pour me faire une idée plus global du fonctionnement et c'est OK.
MERCI

espoire2008 · Answer

salut a tout le minde j'ai besoin d'une base de donnée qui permet d'elaborer un bulletin de paie si possible je m'adresse a toute personne qui pourra m'aide et merci pour votre service

RoselyneL · Answer

Roselyne LAFFONT
Bonjour, 
Je développe des applications ACCESS
Voulez-vous de l'aide pour la réalisation de cette application ou voulez-vous qu'une personne réalise l'application ?
A votre disposition pour tout renseignement complémentaire
Cordialement
Roselyne

Gestion de base de données Access

4 réponses

Discussions similaires