Requête nom des tables d'une DBRésolu

Question

Bonjour,

Je fais un logiciel sous visual basic2005, qui doit lire une base de donnée (non connue) et en ressortir les noms des tables pour les exploiter. Je passe par un driver ODBC. Mais impossible de trouver la requête du genre "SHOW TABLE" qui me permettrait d'obtenir les noms des tables.

Quelqu'un aurait la solution?

Voici le bout de code que j'utilise mais qui ne fonctionne pas du tout:
        Dim connection As New OdbcConnection("DSN=Base1")
        Dim command As New OdbcCommand
        Dim reader As OdbcDataReader
        connection.Open()

        command.CommandText = "SHOW TABLE"
        command.Connection = connection
        reader = command.ExecuteReader()

        MessageBox.Show(reader.Read)

        reader.Close()

cs_tyboo · Accepted Answer

Ayé!!

J'ai trouvé comment faire. Grace à un code un peu similaire en vb6 de Renfield

Voici un programme test qui énumére tous les noms de table de la DB Si quelqu'un d'autre est interressé:

 Dim connection As New OdbcConnection("DSN=Base1")
        Dim command As New OdbcCommand
        Dim var As DataTable
       connection.Open()
        var = connection.GetSchema("Tables")

        For Each element2 As DataRow In var.Rows
            MessageBox.Show(element2.Item(2))
        Next
        connection.Close()

Renfield · Answer

faire un OpenSchema

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_tyboo · Answer

Ok 
J'ai essayé ca:
Dim connection As New OdbcConnection("DSN=Base1")
        Dim command As New OdbcCommand
      
        connection.Open()
        MessageBox.Show(connection.GetSchema().TableName)

Mais ca me sort "MetaDataCollections" ?? ca s'exploite comment?
J'ai pas trouvé le OpenSchema...

cs_Nicko11 · Answer

T'es obliger de passer par une requete car moi je fais ca et ca fonctionne tres bien,

Dim bdd As New ADOX.Catalog
Dim Tableau As ADOX.Table

Set bdd.ActiveConnection = acn   'Suivant ta connexion
i = 0
For Each Tableau In bdd.Tables
            Liste_des_tables.AddItem Tableau.Name, i
            i = i + 1
Next

cs_Nicko11 · Answer

C'est du VBA mais il y a certainement un equivalent proche pour ce que tu cherche

cs_tyboo · Answer

Merci bien pour ton aide.
Mais le vba s'adapte mal sur vb2005.
Je n'ai pas trouvé d'équivallent à "Dim Tableau As ADOX.Table"
Je pense que l'idée de "connection.GetSchema()" est pas mal mais je ne sais pas l'exploiter. Je l'ai tourné dans tout les sens, à part "MetaDataCollections" c'est tout ce que j'obtient...

mimosa803 · Answer

voici la requete sql je suis débbutant en vb
select table_name from user_catalog;

cs_tyboo · Answer

Heu mimosa803 es tu sur de ta requete? Je vois pas trop comment on peut connaitre tous les noms de table de la DB??
Ton table_name devient un tableau contenant les différents nom de table?

Sinon Renfield peux tu m'en dire plus sur "OpenSchema" ou "GetSchema" ? Je suis surement pas loin mais impossible d'y aboutir...

Requête nom des tables d'une DB

8 réponses

Votre réponse

Discussions similaires