Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
741 connectés 

  FORUM HardWare.fr
  Programmation

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°37590
k-id
Posté le 07-06-2001 à 09:34:02  profilanswer
 

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

mood
Publicité
Posté le 07-06-2001 à 09:34:02  profilanswer
 

n°37592
tom64
Posté le 07-06-2001 à 09:39:04  profilanswer
 

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

n°37624
Robinmaste​rs
Posté le 07-06-2001 à 10:49:55  profilanswer
 

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
n°37642
Robinmaste​rs
Posté le 07-06-2001 à 11:10:51  profilanswer
 

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
n°37651
k-id
Posté le 07-06-2001 à 11:28:44  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

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

 

Sujets relatifs
Access - VB[ACCESS] Avoir acces aux tables, forms,...
VC++, verifier l'existence d'un fichier et sa taille ?[VBA] Comment tester l'existence d'une table ?
Access[ACCESS] migration d'une table vers un server SQL
[VB6] Comment faire appel à un champ d'une table 
Plus de sujets relatifs à : [Access] Tester l'existence d'une table en VB ?


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR