savoir si une base donnée existe

Question

salut ,
voila, ma question est es ce qu'on peut savoir si une table X existe dans une base de donnée Z ?
Et merci d'avance

mortalino · Answer

Salut,

en VB6, il faut rechercher dans la class TableDef. Il fallait également supprimer les tables systèmes.
Désolé pour le peu de pistes, en espérant que ça t'aide quand même .

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_Nicko11 · Answer

Salut, en fait je sais tres bien le faire en VBA mais je connais pas .net alors je vais te donner le code VBA.

Dans le principe, tu te connectes à la base de données et tu recherches toutes les objets de la collection Tables qui represente en fait toutes les tables de ta base de données et donc aussi les tables systèmes.

'ATTENTION CODE VBA ET NON .net   ET AVEC ADOX ET NON ADO.NET

Dim bdd As New ADOX.Catalog   
Dim Tableau As ADOX.Table

Set bdd.ActiveConnection =   ta_connexion_à_la_base 

For Each Tableau In bdd.Tables
   if tableau.name  = "X" then
      msgbox "La table X est bien présente dans la base Z"
   end if
Next

Cela fonctionne parfaitement en VBA, il faut que tu cherche (à moins qu'un expert .net passe) pour mettre en .net.

A+

big wallace · Answer

Merci à vous les gas pour votre aide.

cs_Nicko11 · Answer

LOL, par contre ta reponse ne m'aide pas a savoir ou tu en es. Tu as reussi, tu es sur la voir ou tu bloque quelque part ?

big wallace · Answer

j'ai su comment savoir si la table est dans le dataset, mais dans la base non.
c'est ts pour l'instant

chaibat05 · Answer

Bonjour tout le monde,
effectivement mortalino...on peut le savoir 
grace à la collection TableDefs :
FunctionTest() As Boolean
 Dim i As Integer,y As Integer
  y = MaDb.TableDefs.Count
For i = 0 To y - 1
  If pDB.TableDefs(i).Name = LENOM Then
    Test=True
    Exit For
  End If
 Next
End Function

chaibat05 · Answer

If MaDb.... bien sûr .

big wallace · Answer

c en vb.net ?

chaibat05 · Answer

c' est VB  tout court...
Quelle différence y' aurait il ?

big wallace · Answer

.net,vba,vb6....

chaibat05 · Answer

oui je sais..
je voulais dire au niveau du code proposé.
Je suis en VB6 mais Je pense que ça fonctionnera 
aussi en VBA et en VB.NET

cavo789 · Answer

Il y a plusieurs possibilités en VB / VBA

Par exemple :

Dim bExists As Boolean

    On Error Resume Next
     bExists = Not (CurrentDB.TableDefs("MaTable") Is Nothing)
     On Error Goto 0

      Je suppose ici que CurrentDB est un objet de table Database et qui représente ta base de données.   bExists sera à True si la table existe.

Christophe

Savoir si une base donnée existe

12 réponses

Votre réponse

Discussions similaires