Discussion :

[Thyyb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"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 ?

[_Ez3kiel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DotNetMatt]

EDIT: Grilled par @DotNetMatt

Je n'avais pas fait attention au fait qu'il s'agit d'un fichier .MDB Donc ma réponse est HS. Je l'ai supprimée.

[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

[_Ez3kiel]

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.

[Graffito]

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

[Thyyb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :/