Tester l'existence d'une table en VB ? [Access] - Programmation
Marsh Posté le 07-06-2001 à 09:39:04
hummm
je pense ke tu pourrais te faire une requête sur cette table (prendre n'importe kel enregistrement) et tester le recordcount
Si celui ci est = 0 alors ta table n'existe pas.
Mais il est possible ke ça plante; en efft si elle n'existe pas ben ton recordset plantera.
Je ne vois ke ça pour l'instant
Marsh Posté le 07-06-2001 à 10:49:55
en gros ca devrait marcher
un truc comme ca
Set monwork = DBEngine.Workspaces(0)
Set mabd = monwork.Databases(0)
Set matable = mabd.TableDefs(I)
For I = 0 To mabd.TableDefs.Count - 1
If matable.name = "toto" Then
trouve = "oui"
exit sub
end if
next
Marsh Posté le 07-06-2001 à 11:10:51
c'est plutot ca!
Set monwork = DBEngine.Workspaces(0)
Set mabd = monwork.Databases(0)
For I = 0 To mabd.TableDefs.Count - 1
Set matable = mabd.TableDefs(I)
If matable.name = "toto" Then
trouve = "oui"
exit sub
end if
next
Marsh Posté le 07-06-2001 à 11:28:44
robinmasters a écrit a écrit : c'est plutot ca! Set monwork = DBEngine.Workspaces(0) Set mabd = monwork.Databases(0) For I = 0 To mabd.TableDefs.Count - 1 Set matable = mabd.TableDefs(I) If matable.name = "toto" Then trouve = "oui" exit sub end if next |
j'essaye ça...
Marsh Posté le 07-06-2001 à 09:34:02
J'aimerais savoir si il existe un moyen de tester l'existence d'une table en VB sous Access.
J'esperais qu'un truc du genre : If exist Table ..... Then ... mais visiblement y connait pas.
J'ai cherché dans l'aide mais rien à l'horizon
Heeelp
@+