Récupérer les noms des tables

Version imprimable

22/11/2013, 11h45
Thyyb

Récupérer les noms des tables

Bonjour,

Donc j'aurais voulu récupérer les noms des champs d'une table mais je sais que c'est impossible hélas.
En revanche, il me semble que l'on peut récupérer les noms des tables d'une mdb. Ca n'est pas très conseillé mais j'ai vu ceci

Code:

"SELECT MSysObjects.Name FROM MSysObjects WHERE ( (MSysObjects.Type = 1) AND (MSysObjects.Flags = 0) )"

Il faut absolument que je puisse avoir les noms des champs et des tables sans avoir à les connaitre par cœur.
Avez-vous une idée pour une démarche à suivre, au moins concernant les noms des tables ?

Access : Pas de table pour référencer les colonnes, tu vas devoir charger une datatable, et demander à cette dernière de te renvoyer les noms de colonnes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public sub GetColumns(ByRef database As String, ByRef table_name As String, ByRef columns As List(Of String))
Dim com As OleDbConnection
 
            com = New OleDbConnection(database)
            Using Com
            com.Open()
 
 
        Dim restrictions As String() = New String() {Nothing, Nothing, table_name, Nothing}
        Dim dt As DataTable = com.GetSchema("Columns", restrictions)
       End Using
 
        For Each DR As DataRow In dt.Rows
            columns.Add(DR("Column_Name").ToString)
        Next
 
        For Each holding As String In columns
            Console.WriteLine(holding)
        Next
End Function

SQL Serv : Tu dois interroger Information_schemas.Columns

Oracle : Tu dois interroger ALL_TAB_COLUMNS

EDIT: Grilled par @DotNetMatt

22/11/2013, 12h14
DotNetMatt

Citation:

Envoyé par _Ez3kiel

EDIT: Grilled par @DotNetMatt

Je n'avais pas fait attention au fait qu'il s'agit d'un fichier .MDB :aie: Donc ma réponse est HS. Je l'ai supprimée.
22/11/2013, 13h21
Thyyb

Désolé j'étais parti sur autre chose.

Merci de vos réponses :) J'essaierais ça surement que lundi maintenant, un autre petit imprévu est arrivé entre temps, je veux lui régler son compte d'abord ;)

Sinon y'a pas un moyen plus simple, avec d'autres logiciels peut être, pour récupérer mes valeurs ? Parce que sinon ça va geulé au boulot ^^
Par contre je suis lié au niveau de ma mdb, Access oblige
22/11/2013, 13h37
_Ez3kiel

Citation:

Envoyé par Thyyb

Sinon y'a pas un moyen plus simple, avec d'autres logiciels peut être, pour récupérer mes valeurs ? Parce que sinon ça va geulé au boulot ^^
Par contre je suis lié au niveau de ma mdb, Access oblige

Sans passer par la DataTable ? J'en connais pas, mais je suis pas du tout expert Access.

@DotNetMatt, j'avais vu que c'était .mdb mais dans le doute j'ai parlé aussi de Sql Serv et Oracle. :P
22/11/2013, 22h02
Graffito

Citation:

Donc j'aurais voulu récupérer les noms des champs d'une table mais je sais que c'est impossible hélas.
En revanche, il me semble que l'on peut récupérer les noms des tables d'une mdb.

Les 2 sont possibles : voir http://support.microsoft.com/kb/309681/fr

Alors du coup je me suis lancé dans la liste de mes tables. Et donc j'ai réussi à les récupérées, Merci à vous :)

La dans la fin de l'après midi je m'attaque aux champs, ça m'a l'air plus difficile mais vous m'avez déjà avancé ;)

Edit :
Bon alors j'ai réussi à les récupérés :) Oui et comment. Je les ai en 4x plus d'autres champs que je ne connais même pas xD Nan en fait j'ai compris. La ligne suivante

Code:

tab(i) = schemaTable.Rows(i)!COLUMN_NAME.ToString()

récupére toutes les lignes, alors que je veux récupérer que celle de la table que j'ai préalablement chois. On peut faire quelque chose du style un WHERE pour sélectionner que les lignes dont j'ai besoin ?

Du coup je fais comme ça
Code:

1 2 3 4 5 6 7 schemaTable = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New [Object]() {Nothing, Nothing, NameTable, Nothing}) Dim tab(schemaTable.Rows.Count - 1) As String For i As Integer = 0 To schemaTable.Rows.Count - 1 tab(i) = schemaTable.Rows(i)!COLUMN_NAME.ToString() Next Me.ComboBox_champ1.DataSource = tab Me.ComboBox_champ2.DataSource = tab
Mais quand j'ai plusieurs ComboBox à remplir, l'utilisateur ne peut pas choisir des champs différents dans les autres ComboBox. C'est-à-dire que si dans la 1ère ComboBox il choisi "champ1", les autres se remplissent de champ1 et je ne peux pas les changés...
C'est normal ou c'est moi (mon code) ? ^^

Edit2 :
Bon eh bien, j'ai pu régler mon soucis. Je ne sais pas si c'est très esthétique mais bon ^^
J'ajoute autant de variables tab que j'ai de combobox à remplir ou je fais une autre boucle pour créer mes tableau et une autre pour remplir mes combobox ... Du coup ça donne ça :
Code:

1 2 3 4 5 6 7 8 schemaTable = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New [Object]() {Nothing, Nothing, NameTable, Nothing}) Dim tab1(schemaTable.Rows.Count - 1), tab2(schemaTable.Rows.Count - 1) As String For i As Integer = 0 To schemaTable.Rows.Count - 1 tab1(i) = schemaTable.Rows(i)!COLUMN_NAME.ToString() tab2(i) = schemaTable.Rows(i)!COLUMN_NAME.ToString() Next Me.ComboBox_champ1.DataSource = tab1 Me.ComboBox_champ2.DataSource = tab2
Au lieu de ce qu'il y avait au dessus ...
Par contre si vous avez une autre solution je suis complétement preneur. Parce que la ça va me faire beaucoup trop de variables en fait.
Plus de champs = Plus de variables :/