Savoir si une table existe dans une base

Version imprimable

Bonjour,

Existe-t-il un moyen en vb, une fois que l'on a défini la connexion à la base de données de vérifier si une table 'matable' existe déjà ou non ?

Je vous met ci-dessous le code que j'ai créé, mais je crois que ma logique et celle du pc ne sont pas compatible...

Code:

1
2
3
4
5
6
7
8
9
10
'Création de la table clients
        chaine = "select * from clients_maintenance"
        Marequete = New OleDbCommand(chaine)
        MonadaptateurOle = New OleDbDataAdapter(Marequete)
        Marequete.Connection = MaconnexionOle
        MonadaptateurOle.Fill(Latable)
        If Latable.TableName = "" Then
            MarequeteOle.CommandText = "CREATE TABLE clients_maintenance (Id_cli COUNTER not null, Code_cli VARCHAR(15) not null, Nom_cli VARCHAR (255) not null, Cp_cli VARCHAR(6) null, Ville_cli VARCHAR(255) null, Tel_cli VARCHAR(15) null, Fax_cli VARCHAR(15) null, Port_cli VARCHAR(15) null, Courriel_cli VARCHAR(255) null, Site_cli VARCHAR(255) null, PRIMARY KEY (Id_cli))"
            MarequeteOle.ExecuteNonQuery()
        End If

Si quelqu'un pouvait m'aider à comprendre à quel endroit ma logique ne l'est plus.

Cordialement.

26/01/2011, 11h56
mactwist69

Je ne pense pas que tu utilises la bonne manière.

Déjà ca: MonadaptateurOle.Fill(Latable), ca ne lève pas d'exception (si la table n'existe pas) ?

Tu utilises quoi comme base de donneés ?

Par exemple en mysql, dans la requete de création de table, tu peux mettre un "IF NOT EXISTS", donc ne creera la table que si elle n'existe pas.

Ensuite toujours dans mysql, il y a une bdd: information schema, qui contient la liste de toute les tables présentes, donc je passe par la pour verifier l'existence.
26/01/2011, 12h00
guznat

Bonjour,
Je sais qu'il y a mieux comme bdd, mais access m'est imposé.
Cordialement

Salut,

Tu n'as pas précisé avec quelle bd tu travaillles mais j'en déduit que c'est avec Access.

Tu peux obtenir le schéma de la bd et le nom des tables qui la composent:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim listeTables as New List(Of String)
 
'Obtient les tables et les vues
            Dim dtt as DataTable = Connexion.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})
 
            'Récupère le nom des tables dont TABLE_TYPE est égale à TABLE
            For i As Integer = 0 To dtt.Rows.Count - 1
 
                If dtt.Rows(i)!TABLE_TYPE.ToString = "TABLE" Then
 
                    listeTables.Add(dtt.Rows(i)!TABLE_NAME.ToString())
 
                End If
 
            Next

Ensuite, il suffit de parcourirt la liste afin de savoir si une table existe ou non dans la bd

Ton code est censé marcher, mais il faudrait faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Création de la table clients
Dim TableExiste as Boolean = true
 
chaine = "select * from clients_maintenance"
Marequete = New OleDbCommand(chaine)
MonadaptateurOle = New OleDbDataAdapter(Marequete)
Marequete.Connection = MaconnexionOle
Try
     MonadaptateurOle.Fill(Latable)
Catch ex as Exception
     'LA TABLE n'existe pas
     TableExiste = false
End Catch
 
If TableExiste = false Then
MarequeteOle.CommandText = "CREATE TABLE clients_maintenance (Id_cli COUNTER not null, Code_cli VARCHAR(15) not null, Nom_cli VARCHAR (255) not null, Cp_cli VARCHAR(6) null, Ville_cli VARCHAR(255) null, Tel_cli VARCHAR(15) null, Fax_cli VARCHAR(15) null, Port_cli VARCHAR(15) null, Courriel_cli VARCHAR(255) null, Site_cli VARCHAR(255) null, PRIMARY KEY (Id_cli))"
MarequeteOle.ExecuteNonQuery()
End If

26/01/2011, 14h25
guznat

Mille mercis pour votre aide
Cordialement,
Guznat
26/01/2011, 15h11
mactwist69

Pense a marquer le post comme résolu ;)