Récupération des données d'une base de données

Soyez le premier à donner votre avis sur cette source.

Vue 17 422 fois - Téléchargée 2 402 fois

Description

Ce petit exemple n'est pas nouveau, d'autre on posté des choses plus ou moins similaire. Mais n'ayant pas trouvé exactement mon bonheur, j'ai du chercher, et je vous livre la solution a mon problème.

Le but et de trouver toutes les tables d'une base de données (pour exemple ACCESS) et sur chaque table de récupérer les divers champs qui y sont rattachés.
Je ne veux pas utiliser de librairies autre que les standards de .NET, celle qui est utilisé est #system.data.oledb# qui permet une normalisation de presque tout le code lorsque je ferais la migration sur une base SQLServeur.
De plus, il fallait que je soit en mesure de connaitre toutes les colonnes des Tables et des Champs pour connaitre des infos spécifiques, tel que le type d'un champ.

Pour en faire un vrai programme il y a pas mal de taf dessus, mais c'est une bonne base.
Voila, bonne lecture.

Source / Exemple :


' Ce qui suit sont des bouts de code qui sont dans l'archive

    '----------------------------------------
    'Connexion a la base de données ACCESS
    '----------------------------------------
    Public Sub New(ByVal dbPathName As String)

        Try
            sqlConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0" _
                                         & "; Data Source=" & dbPathName _
                                         & ";" & "Persist Security Info=False"
            conn = New OleDbConnection(sqlConnectionString)
            conn.Open()
        Catch ex As Exception
            conn = Nothing
            sqlConnectionString = ""
        End Try

    '----------------------------------------------------------
    ' Description : Permet de recupérer les Tables de la base
    '----------------------------------------------------------
    Public Function dataTable_TABLES() As DataTable
        Dim dt As DataTable
        dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing})
        Return dt
    End Function
    '----------------------------------------------------------------------
    ' Description : Permet de recupérer les Champs d'une table spécifique
    ' Entree      : db_table_name => Nom de table valide
    '-----------------------------------------------------------------------
    Public Function dataTable_FIELDS(ByVal db_table_name As String) As DataTable
        Dim dt As DataTable
        dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, db_table_name})
        Return dt
    End Function

    End Sub

Conclusion :


Merci pour tous les codes qui sont sur le net, aussi pour la base de données que j'ai piqué telle quelle.

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

HYdeveloppeur
Messages postés
2
Date d'inscription
samedi 15 mai 2010
Statut
Membre
Dernière intervention
10 juillet 2010
-
bon axemple , mais pouver vous me parler sur le probleme de récuoération des champs pour l'afficher dans une Label

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.