Comment faire une base de données relationnelle

Créez des tables de relations dans Access.

Étape 1

Exécutez Microsoft Access, cliquez sur "Base de données vide" et cliquez sur "Créer". Double-cliquez sur "Ajouter un nouveau champ" et tapez "Ville" pour créer la première colonne. Appuyez sur "Entrée". Tapez "Nom" et appuyez sur "Entrée" pour créer une deuxième colonne et tapez "Nom" pour créer la troisième.

Étape 2

Appuyez sur "Control" et "S" pour exécuter la boîte de dialogue "Enregistrer sous" et cliquez sur "OK" pour enregistrer la table. Cliquez sur "Créer" et cliquez sur l'icône "Table" pour créer une nouvelle table. Double-cliquez sur "Ajouter un nouveau champ" et tapez "Statut" pour créer un nouveau champ. Appuyez sur "Entrée" et tapez "Ville" pour créer un deuxième champ. Appuyez sur "Control" et "S" pour enregistrer et exécuter la boîte de dialogue "Enregistrer sous" et cliquez sur "OK" pour enregistrer la table.

Étape 3

Cliquez sur "Outils de base de données" et cliquez sur "Relations" pour définir le tableau. Cliquez sur "Tableau 1" et "Tableau 2" pour les sélectionner dans la fenêtre de dialogue "Afficher le tableau". Cliquez sur "Ajouter" et "Fermer".

Étape 4

Cliquez sur "Outils de base de données" et "Visual Basic" pour lancer l'éditeur VBA. Cliquez sur le champ "Insérer" et sur "Module" pour insérer un nouveau module.

Étape 5

Copiez et collez le code suivant pour remplir les deux tables avec des données:

Private Sub populateTables () Dim strSQL As String DoCmd.SetWarnings False strSQL = "INSERT INTO Table1" strSQL = strSQL & "VALEURS (1, " Dallas ", " John ", " Smith ")" DoCmd.RunSQL (strSQL) strSQL = "INSERT INTO Table1" strSQL = strSQL & "VALEURS (2, 'Los Angeles', 'Mary', 'Jones')" DoCmd.RunSQL (strSQL) strSQL = "INSERT INTO Table1" strSQL = strSQL & "VALUES (3, 'Los Angeles', 'Charles', 'Lopez') "DoCmd.RunSQL (strSQL) strSQL =" INSERT INTO Table1 "strSQL = strSQL &" VALEURS (4, "Dallas", "Oscar", "Ramos") "DoCmd .RunSQL (strSQL) strSQL = "INSERT INTO Table2" strSQL = strSQL & "VALEURS (1, " Texas ", " Dallas ")" DoCmd.RunSQL (strSQL) strSQL = "INSERT INTO Table2" strSQL = strSQL & "VALEURS ( 2, 'California', 'Los Angeles') "DoCmd.RunSQL (strSQL) End Sub

Étape 6

Appuyez sur la touche "F5" pour exécuter la procédure. Changez encore pour Microsoft Access et cliquez sur "Créer" et "Création de requête". Cliquez sur "Tableau 1", "Tableau 2" et "Ajouter". Double-cliquez sur "Nom" et "Nom" dans "Tableau 1". Double-cliquez sur "Statut" et "Ville" sur le "Tableau 2". Écrivez "Los Angeles" dans la ligne "Critères" de la colonne "Ville". Cliquez sur l'icône "Utiliser" pour exécuter votre requête et afficher le prénom, le nom et le statut des habitants de Los Angeles.