Les méthodes pour Lister / Vider / Supprimer les Tables

[jpcheck]

Bonjour à tous,
suite à plusieurs topics sur le sujet, je laisse ici mon code qui permet de manipuler les tables d'une base.

Plusieurs approches, selon les choix de programmation des uns et des autres..
Ces fonctions retournent Vrai si elles ont bien fonctionné, elles fonctionnent dans la base en cours.

Lister les tables

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'*****************************
'fonction de récupération de la liste des tables d'une base par les propriétés VBA
'input = nom de la base
'output = booleen (debug.print)
'*****************************
Function ListeTablesBase(PathBase As String) As Boolean
Dim Db As DAO.Database
Dim tempo As TableDef
    Set Db = DBEngine.OpenDatabase(PathBase)
    Debug.Print "******LISTE DES TABLES DE LA BASE " & Db.Name & "******"
    For Each tempo In Db.TableDefs
        Debug.Print "---------------------------------------------------"
        Debug.Print tempo.Name
        Debug.Print tempo.connect
    Next
    Debug.Print "********* FIN LISTE *********"
End Function

Vider une table

Code :

1
2
3
4
5
6
7
8
Function ViderTable(NomTable As String) As Boolean
On Error GoTo fin
    CurrentDb.Execute "DELETE * FROM [" & NomTable & "];"
    ViderTable = True
Exit Function
fin:
    ViderTable = False
End Function

Detruire une table

1/ Par les fonctions Access (Docmd)

Code :

1
2
3
4
5
6
7
8
Function DetruireTable2(NomTable As String) As Boolean
On Error GoTo fin
    DoCmd.DeleteObject acTable, NomTable
    DetruireTable2 = True
Exit Function
fin:
    DetruireTable2 = False
End Function

2/ Par les fonctions VBA par TableDefs

Code :

1
2
3
4
5
6
7
8
Function DetruireTable(NomTable As String) As Boolean
On Error GoTo fin
    CurrentDb.TableDefs.Delete NomTable
    DetruireTable = True
Exit Function
fin:
    DetruireTable = False
End Function

3/Par le requêtage SQL (DROP)

Code :

1
2
3
4
5
6
7
8
Function DetruireTable3(NomTable As String) As Boolean
On Error GoTo fin
    CurrentDb.Execute "DROP TABLE [" & NomTable & "]"
    DetruireTable3 = True
Exit Function
fin:
    DetruireTable3 = False
End Function

N'hésitez pas à poser des questions sur l'utilisation de ces méthodes, qui sont certes optimisables si on veut pinailler, mais suffisamment intuitives pour être comprises par le plus grand nombre

[Philippe JOCHMANS]

Bonjour

La plupart de ces codes (voir tous) sont déjà présents dans la Access.

Starec

[jpcheck]

certes, certes...
On m'avait conseillé de l'ajouter dans la partie contribuez...

[vodiem]

étant l'intiateur du conseille, je voudrais préciser qq point:
. poster ces codes (ceux de suppression) à chaques fois que qq'un avait besoin ne me paraissait pas utile.
. d'après mes recherches, la faq contient que deux fonctions:
Comment supprimer une table avec ADO ?

Code :

1
2
3
4
5
6
7
8
9
Function SupprimerTable(NomTable As String) As Boolean
On Error GoTo err
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
MCat.Tables.Delete (NomTable)
SupprimerTable = True
err:
Set MCat = Nothing
End Function

Comment supprimer une table si elle éxiste ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Delete_Table(NomTable As String) As Boolean
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Delete_Table = False
 
    Set db = CurrentDb
 
    For Each tbl In db.TableDefs
        If tbl.Name = NomTable Then
            db.TableDefs.Delete (tbl.Name)
            Delete_Table = True
        Else
            Delete_Table = False
        End If
    Next tbl
 
End Function

que je recommandais de rajouter.
. je trouvais l'idée d'énumérer les différentes possibilités de suppression intéressante mais ce que j'attendais surtout c'était d'expliquer leur différence qui aurait apporter ce + qui manque à la faq.

[DMboup]

je trouvais l'idée d'énumérer les différentes possibilités de suppression intéressante

Alors ici la suppression d'une table et la suppression de tous les enregistrements sont présentées.

Je proposes un code de suppression des enregistrements spécifiques dans n'importe quelle table

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Public Sub SupprimeEnreg(ByVal MaTable As String, ByVal MaCle1 As String, ByVal MaCle2 As String, _
                        ByVal MaValeur1 As Integer, ByVal MaValeur2 As Integer, Optional MaCle3 As String, Optional MaValeur3 As Integer)
 
'--------------------------------------------------------------------------------------------
'Objectif     : Supprimer des enregistrements spécifiques dans une table
'Méthodologie : Construire une requête de suppression SQL dynamique sur une table passée en paramétre
'               ainsi que les clés et valeurs de l'enregistrement à supprimer
'--------------------------------------------------------------------------------------------
 
Dim msql As String
 
    If IsNull(MaCle2) Or MaCle2 = "" Then ' si le 2éme critère n'est pas renseigné
        msql = "Delete * From " & MaTable & " Where " & MaCle1 & " = " & MaValeur1
    Else
        If IsNull(MaCle3) Or MaCle3 = "" Then ' si le 3éme critère n'est pas renseigné
            msql = "Delete * From " & MaTable & " Where " & MaCle1 & " = " & MaValeur1 & " and " & MaCle2 & " = " & MaValeur2
        Else
            msql = "Delete * From " & MaTable & " Where " & MaCle1 & " = " & MaValeur1 & " and " & MaCle2 & " = " & MaValeur2 & " and " & MaCle3 & " = " & MaValeur3
        End If
    End If
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL (msql)
    DoCmd.SetWarnings True
 
End Sub

Utilisation
1 - Supprimer la commande N°5 de la table T_Commande

Code :

1
2
 
     call SupprimeEnreg("T_Commande","NumCommande","",5,0,"",0)

2 - Supprimer le produit de Code 18 de la commande 5

Code :

1
2
 
     call SupprimeEnreg("T_DetailCommande","NumCommande","CodeProduit",5,18,"",0)

PS : Pour être totalement générique, il faudra tester le type des champs à passer en paramètre et modifier le code en conséquence.

[Papy Turbo]

Envoyé par vodiem

c'était d'expliquer leur différence qui aurait apporter ce + qui manque à la faq.

Olla, Ô grands destructeurs de tables,
Question plus intéressante qu'il n'y paraît, mais qui, à mon avis, n'a pas sa place ICI, mais plutôt dans un débat, voire un micro-projet commun.

Je m'explique :
- ma 1ère réaction serait de dire : il n'y a aucune différence entre un 'Drop SQL' et un 'DAO.TableDefs.Delete' : le choix se fait d'abord en fonction des ta formation, de tes habitudes de développeur, et le résultat sera le même.
- 2ème réaction : si la table appelée n'existe pas (déjà supprimée..., peu importe.), les erreurs déclenchées ne seront pas les mêmes.
Donc, il y a quelques différences, même si aucune méthode n'est 'meilleure' ou 'moins bonne'.
Pour les trouver et les lister, faut faire une recherche, des tests exhaustifs (tant que le sujet reste ouvert, d'autres pourront l'enrichir)... et pondre un petit résumé -> Faq, peut être un article...

Je propose donc, (en me défilant avec une habileté déconcertante parce que je sais que je n'aurai pas le temps), que Vodiem qui cherche et DmBoup qui a plus de connaissances créent ensemble un mini-projet de 'méthodes comparées pour supprimer une table, etc.', dans le sous-forum dédié.

Rappel : ne pas attendre que ça tombe tout cru. Il n'y a qu'en cherchant, en testant qu'on trouve les réponses.

Bon courage, et miam-miam-merci de toutes contributions.