Code pour lister les tables de données access en vb.net

Commenter

Contenu du snippet

Slt à tous

Aprés avoir créer un nouveau projet Windows aplication

Il faut pour que ce source fontione
'Ajouter la référence: adodb
Allez dans la menu Projet --> Ajouter un référence
Une bîte de dialogue s'ouvre
Double click sur adodb
Il passe dans composants sélectionnés
Cliquer sur Ok

Attention n'oublier pas de changer le chemin de votre base de données

J'espère que ce code servira la communaauté

@+

Source / Exemple : 


'dimension des variables et tableaux
        Dim Nbcol, Nbrow As Integer 'pour lre nonbre de colonne et de ligne dans la dataset
        Dim Nom_x As String         'pour avoir un chaine de carractère
        Dim MyRs As New ADODB.Recordset()
        Dim MyCn As New ADODB.Connection()
        Dim myDA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
        Dim myDS As DataSet = New DataSet()
        Dim Provider_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        Dim Suite_provider_ As String = ";Mode=Read|Write;Persist Security Info=False"
        'conection à la base de données
        nom_x="c:\base\été 2001.mdb"  'chemin de la base de données
        MyCn.Open(Provider_ & nom_x & Suite_provider_)
        MyRs = MyCn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        'Créez et remplissez le DataSet à partir du Recordset. Peuplez la grille du DataSet 
        myDA.Fill(myDS, MyRs, "MyTable")
        'Ferme les connections
        MyRs = Nothing  ' libere la mémoire
        MyCn.Close()    ' ferme la connection
        MyCn = Nothing  ' libere la mémoire
        ' nombre de ligne dans le dataset
        Nbrow = myDS.Tables(0).Rows.Count
        ' nombre de colonne dans le dataset
        Nbcol = myDS.Tables(0).Columns.Count
        'fait une boucle sur le nombre de colonne 
        For Nbcol = 0 To myDS.Tables(0).Columns.Count - 1
            Nom_x = myDS.Tables(0).Columns.Item(Nbcol).Caption
            'si trouver la colonne TABLE_NAME
            If Nom_x = "TABLE_NAME" Then
                'fait une boucle sur les lignes pour trouver les table
                For Nbrow = 0 To myDS.Tables(0).Rows.Count - 1
                    'Pointe sur la colonne suivante pour rechercher le type TABLE
                    Nom_x = myDS.Tables(0).Rows(Nbrow).Item(Nbcol + 1)
                    If Nom_x = "TABLE" Then
                        'ajout dans la liste les tables trouveés
                        List1.Items.Add(myDS.Tables(0).Rows(Nbrow).Item(Nbcol))
                    End If
                Next
            End If
        Next
        'vide le dataset
        myDS.Clear()
        'libere les resources
        myDS.Dispose()

A voir également

S'inscrire maintenant

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.

Du même auteur (moipc1)