Discussion :

[ronald]

bonjour,

Comment peut-on savoir si une table existe dans une base de données access?

Est-il possible de le faire via une requête SQL?

J'ai essayé avec un On error goto ... lors de la création de la table (si elle existe, alors ça génère une erreur) mais j'arrive pas a attraper cette erreur.

Merci d'avance

Ronald

[bidou]

cela dépend si c'est en DAO ou en ADO

[Sion_Sempai]

chercher l'erreur

En ADO avec tout declaré auparavant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
On Error Goto gereerr 'Si y a une erreur c'est que la table n'existe pas. Seule erreur possible ici, je pense...
SQL = "SELECT * From table"
rec.open sql, con, adcmdtext, admodereadwrite
MsgBox "La table existe.",vbinformation  'Logiquement si y a pas eu d'erreur c ke la table existe, vide ou non.
rec.close
On Error goto 0
exit sub
 
gereerr:
   msgbox "La table n'existe pas"
end sub

[Fox]

Voilà qq infos que j'ai pu récupérer sur le sujet, en espérant que ça pourra t'aider.

Il faut employer le modèle objet ADOX qui est consacré à la structure des bases de données (le modèle objet ADODB étant lui consacré à la gestion de données).

La première chose à faire est donc de rajouter une référence à ADOX. Pour ce faire, cliquer sur le menu "Projet/Références...". Dans la liste des références disponibles, sélectionnez "Microsoft ADO Ext. 2.1 for DDL and Security". Vous pouvez maintenant essayer la fonction suivante qui vérifie l'existence d'une table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
 
Public Function TableExists(cat As ADOX.Catalog, TableName As String) As Boolean
 
    Dim tbl As ADOX.Table
 
    ' Enumère toutes les tables du catalogue
    For Each tbl In cat.Tables
        If tbl.Name = TableName Then
            TableExists = True
            Exit For
        End If
    Next
 
    Set tbl = Nothing
 
End Function
 
Private Sub Form_Load()
 
    Dim cat As New ADOX.Catalog
 
    ' Connexion à la base de donnée
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mes Documents\MyDataBase.mdb"
 
    MsgBox TableExists(cat, "Table1")
 
    Set cat = Nothing
 
End Sub

@+

[ronald]

c'est en ADO

[ronald]

ha ok, j'essaie et je dis quoi...
Merci

[ronald]

c peut être plus simple d'effacer toutes les tables de la BD. Mais je sais pas comment faire...

Quelqu'un à une idée???

[ronald]

Ok ça marche... C Jérome ...heu non c génial... Merci

[Sion_Sempai]

c peut être plus simple d'effacer toutes les tables de la BD. Mais je sais pas comment faire...

Autant virer la BD en entier et la recreer ensuite

[damyrid]

Autant formatter le disque dur et laisser tomber(ouais le soleil me tape un peu sur la tête)

[bidou]

fox voila ce qu'l ne faut pas faire.
Il faut utiliser la méthode openschema ADO
lire
ftp://ftp2.developpez.be/developps/vb/VB-ADOX.pdf

[Sion_Sempai]

bidou, tu peux developper ?
pkoi faut pas utiliser la methode de fox ?

c'est expliké dans le PDF ?

[bidou]

oui monsieur.
Mais je te résume, si tu accèdes par ADOX tu ouvres la base en modification de structure ce qui est lourd et dangereux. Qui plus est, si ta connexion à des accès utilisateurs définis, il se peut que l'objet catalog ne te montre pas une table qui pourtant existe. En utilisant openschema, tu t'affranchis de l'ensemble de ses problèmes.

[Sion_Sempai]

oki dokiii ^^

je pensais bien en fait, que openschema avait un rapport avec la structure de la table, mais je savais pas kel genre... pis g po trop regarder non plus vu que de toutes facon c t po pour moi

en tout cas maintenant je le sais, et ca m'aidera peut-etre plus tard ^^

Mici