Test existance table [Résolu]

Messages postés
71
Date d'inscription
jeudi 7 juillet 2011
Dernière intervention
27 novembre 2017
- - Dernière réponse : NHenry
Messages postés
14319
Date d'inscription
vendredi 14 mars 2003
Dernière intervention
11 décembre 2018
- 3 janv. 2012 à 18:59
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.
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
14319
Date d'inscription
vendredi 14 mars 2003
Dernière intervention
11 décembre 2018
3
Merci
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

Merci NHenry 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 104 internautes ce mois-ci

Commenter la réponse de NHenry

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.