Sauvegarde de la base de données MS Access dans le didacticiel VB.NET et le code source

[ad_1]

Sauvegarde de la base de données MS Access dans le didacticiel VB.NET et le code source

Problème

Créez un programme d’application Windows Form dans Visual Basic.Net qui permettra aux utilisateurs de sauvegarder la base de données MS Access.

La description

Ce tutoriel permettra à l’utilisateur de créer un système de sauvegarde pour une base de données MS Access.

Avant le didacticiel, les éléments suivants sont nécessaires pour démarrer:

Microsoft Visual Studio 2008 – Ci-dessus

Le tutoriel commence ici:

Ouvrez Microsoft Visual Studio 2012
Sélectionnez un nouveau projet dans le menu Fichier.
Sélectionnez Visual Basic, Application Windows Form, puis cliquez sur OK.
Nous avons besoin des contrôles suivants dans notre formulaire:

4 étiquettes – 2 étiquettes pour l’étiquetage du fichier source et la zone de texte du fichier de destination et 2 étiquettes pour la boîte de dialogue d’ouverture de fichier et la boîte de dialogue d’enregistrement de fichier.
2 Zone de texte – zones de texte pour le fichier source et le fichier de destination.
1 bouton de commande – 1 bouton pour la sauvegarde.
1 Boîte de dialogue Enregistrer le fichier
1 Boîte de dialogue Ouvrir un fichier

Nous nommerons également nos contrôles de formulaire de cette manière:

txtsource est le nom de la zone de texte du nom d’utilisateur
txtdestination est le nom de la zone de texte pour le mot de passe
cmdbackup est le nom du bouton de connexion

le reste est par défaut.

C’est ainsi que nous concevons le formulaire. (N’hésitez pas à mettre en page le vôtre)

Sauvegarde de la base de données MS Access dans le didacticiel VB.NET et le code source - Conception de formulaires — Sauvegarde de la base de données MS Access dans le didacticiel VB.NET et le code source – Conception de formulaires

Figure 1. Conception du formulaire

Collez le code pour importer une instruction

Codez ici

Imports System.IO

Code de fin

Explication du code:

Cela permettra la lecture et l’écriture de fichiers ainsi il le fera pour sauvegarder une base de données.

Double-cliquez sur le formulaire Windows et collez le code suivant.

Codez ici

txtsource.Text = Application.StartupPath & "" & "testdb.mdb"
txtdestination.Text = Application.StartupPath & "" & "Backup_Database" & "backup_" & Format(Now, "MM-dd-yy") & "@" & Format(Now, "hhmmsstt") & ".mdb"

Code de fin

Explication du code:

Le code affichera le répertoire sur la base de données principale dans la zone de texte du fichier source et le répertoire de destination dans la zone de texte du fichier de destination.

Collez ces codes pour le SaveFileDailogue et l’étiquette 3.

Codez ici

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        If Not SaveFileDialog1.FileName.EndsWith(".mdb") Then
            MsgBox("Invalid Database Format!", MsgBoxStyle.Exclamation)
        Else
            txtdestination.Text = SaveFileDialog1.FileName
        End If
End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        SaveFileDialog1.ShowDialog()
End Sub

Code de fin

Explication du code:

Si l’utilisateur a cliqué sur «ok» dans la boîte de dialogue de sauvegarde du fichier et que le fichier n’est pas au format .mdb, il attirera l’attention de l’utilisateur pour qu’il choisisse un format de base de données MS Access (.mdb), sinon le répertoire de la base de données sera s’affiche dans la zone de texte du fichier de destination. Pour l’événement de clic de l’étiquette 3, il affichera la boîte de dialogue de sauvegarde du fichier.

collez le code suivant pour l’étiquette 4 et ouvrez la boîte de dialogue de fichier

Codez ici

Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
        OpenFileDialog1.ShowDialog()
End Sub
    
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        If Not OpenFileDialog1.FileName.EndsWith(".mdb") Then
            MsgBox("Invalid Database Format!", MsgBoxStyle.Exclamation)
        Else
            txtsource.Text = OpenFileDialog1.FileName
        End If
End Sub

Code de fin

Explication du code:

Si l’utilisateur a cliqué sur «ok» dans la boîte de dialogue d’ouverture du fichier et que le fichier sélectionné n’est pas au format .mdb, il attirera l’attention de l’utilisateur pour qu’il choisisse la base de données, sinon le répertoire de la base de données sera affiché dans le fichier source zone de texte. Pour l’événement de clic de l’étiquette 4, il affichera la boîte de dialogue de fichier ouvert.

double-cliquez sur le bouton de sauvegarde et collez le code suivant:

Codez ici

If txtsource.Text = "" Or txtdestination.Text = "" Then
            MsgBox("Enter source amd destination path!", MsgBoxStyle.Information, "Back Up Utility")
        Else
            System.IO.File.Copy(txtsource.Text, txtdestination.Text)
            MsgBox("Backup Success !!!", MsgBoxStyle.Information)
            Me.Close()
End If

Code de fin

Explication du code:

Si la zone de texte source et la zone de texte de destination sont vides, l’utilisateur sera informé de choisir ou d’entrer une source et une destination pour la base de données, sinon le code sauvegardera la base de données et informera l’utilisateur que la base de données a été sauvegardée avec succès.