[VB6] Tester via vb si une table existe

Version imprimable

17/04/2003, 14h37
ronald

[VB6] Tester via vb si une table existe

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
17/04/2003, 14h46
bidou

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

chercher l'erreur :P

En ADO avec tout declaré auparavant

Code:

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

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:

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
@+

17/04/2003, 14h47
ronald

c'est en ADO
17/04/2003, 14h49
ronald

ha ok, j'essaie et je dis quoi...
Merci
17/04/2003, 14h50
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???
17/04/2003, 14h56
ronald

Ok ça marche... C Jérome ...heu non c génial... Merci
17/04/2003, 14h57
Sion_Sempai

Citation:

Envoyé par ronald

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 :roll:
17/04/2003, 15h27
damyrid

Autant formatter le disque dur et laisser tomber(ouais le soleil me tape un peu sur la tête)
17/04/2003, 15h35
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
17/04/2003, 15h38
Sion_Sempai

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

c'est expliké dans le PDF ?
17/04/2003, 15h46
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.
17/04/2003, 15h59
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 :P

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

Mici :)