[Access] Tester l'existence d'une table en VB ?

Tester l'existence d'une table en VB ? [Access] - Programmation

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

Reply

Marsh Posté le 07-06-2001 à 09:34:02   

Reply

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

Reply

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


---------------
-Hassan Cehef --> C'est possible -Roberttripoux --> Les bons comptes font les bons amis
Reply

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


---------------
-Hassan Cehef --> C'est possible -Roberttripoux --> Les bons comptes font les bons amis
Reply

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...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed