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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 395 fois - Téléchargée 52 fois

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

Ajouter un commentaire

Commentaires

Signaler
cs_visualbasic
Messages postés
44
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
13 avril 2004
un zip, ca ne fait pas de mal!!!!
C'est même mieux qu'une explication bidon !!!!!!!!!!!
Signaler
cs_sangho
Messages postés
57
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
27 mai 2008
sa c vrai, c soulan sa
Signaler
GuillaumeS
Messages postés
2
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
29 avril 2004
Pas d'accord ! Tu utilises les objets et méthodes VB6 et notamment ADODB et non ADO.NET. Pour s'en tenir à du 'vrai' .NET il faut faire :
Dim sqlDataConn As New SqlConnection(CONNECTION_DATA)
Dim schemaDA As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM INFORMATION_SCHEMA.TABLES " & _
"WHERE TABLE_TYPE = 'BASE TABLE' " & _
"ORDER BY TABLE_TYPE", _
sqlDataConn)

Dim schemaTable As DataTable = New DataTable()
schemaDA.Fill(schemaTable)

On obtient alors une table décrivant les base (voir MSDN : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpguide/html/cpconobtainingschemainformationfromdatabase.asp)

Guillaume
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)