Test existance table

[Résolu]
Signaler
Messages postés
71
Date d'inscription
jeudi 7 juillet 2011
Statut
Membre
Dernière intervention
27 novembre 2017
-
Messages postés
14813
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 juillet 2021
-
Bonjour, je recherche depuis quelque jours sur le net comment testé l'éxistence d'un table access mais je n'ai pas trouvé quelqu'un chose d'intéréssant si vous avez un tuto ?

Private Function EtablirConnection() As OleDbConnection
        Dim Cnx As OleDbConnection
        Dim Cat As Catalog
        Dim Cmd As OleDbCommand
        Dim baseACreer As Boolean = False
        Dim echec As Boolean = False
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Chemin & ";"
        '# Creation du fichier de base de données
        Try
            If Not File.Exists(Chemin) Then
                baseACreer = True
                Cat = New Catalog '# Ajouter une reference COM à : Microsoft ADO Ext
                Cat.Create(ConnectionString)
            End If
        Catch ex As Exception
            '# On ne doit pas afficher de MessageBox, elle doit remonter l'info
            Throw New Exception("Erreur de création de la base de donnée" & Environment.NewLine & ex.Message)
        End Try

        '# Ouverture de la connection proprement dite
        Try
            Cnx = New OleDbConnection
            Cnx.ConnectionString = ConnectionString
            Cnx.Open()
            '# On a créé le fichier mdb, rest a ajouter la table USERS
            If baseACreer Then
                Cmd = New OleDbCommand()
                Cmd.Connection = Cnx
                Cmd.CommandType = CommandType.Text
                Cmd.CommandText = "CREATE TABLE USERS (LOGIN CHAR(8) NOT NULL PRIMARY KEY," & _
                                                      "MDP CHAR(16) NOT NULL," & _
                                                      "QUESTION VARCHAR(64) NOT NULL," & _
                                                      "REPONSE CHAR(8) NOT NULL)"
                Cmd.ExecuteNonQuery()
            End If
        Catch ex As Exception
            echec = True
            Throw New Exception("Erreur de création de la table" & Environment.NewLine & ex.Message)
        Finally
            If echec Then
                If Not Nothing Is Cnx Then
                    If Cnx.State = ConnectionState.Open Then
                        Cnx.Close()
                    End If
                    Cnx.Dispose()
                End If
            End If
        End Try

        Return Cnx
    End Function



Je voudrais créer une fonction avec en paramètre le nom de la table.

1 réponse

Messages postés
14813
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 juillet 2021
156
Bonjour,

En cherchant rapidement :
http://www.codeproject.com/KB/database/checkdatabase.aspx

Mots clé : ADO.NET access test table

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site