detction des table d'une base de donnée

salut je veux extraire le table d'une base de donnée access je m explique :apartir du nom e la base de donnée je veux extraire le nom de toute les table ainsi que les colone de chaque table

Public Function GetTables(ByVal conn As OleDbConnection) As DataTable conn.Open() 'on crée le schéma de la base de données dans une DataTable Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _ New Object() {Nothing, Nothing, Nothing, "TABLE"}) conn.Close() Return schemaTable End Function L'ours a programme du miel!!

Puis tu peux l'utiliser comme ceci : Private Sub Remplissage_Combo_Listes() Dim i As Integer Dim ConX As New OleDbConnection(Me.StrConnection) Dim dt As New DataTable() 'on remplit la DataTable avec le shéma de 'l'ensemble des noms des tables de la base de données dt = Me.GetTables(ConX) For i = 0 To dt.Rows.Count - 1 Me.CBlistes.Items.Add(dt.Rows(i).Item(2)) Next End Sub L'ours a programme du miel!!

Je suis désolé mais l'affichage est pas bô !! Tiens je t'envoie ce lien : C'est la d'où vient le code présenté : http://www.vbfrance.com/code.aspx?id=22891