Discussion :

[Jb_One73]

Bonjour,

Je cherche à lister tous les champs d'une table.
Avez-vous une solution à mon problème ?

Je l'ai fait pour lister les tables de ma BDD mais les champs ... .

Merci d'avance.

Jb_One73

[Paul Van Walleghem]

Utilie un DataColumnCollection

La fonction suivante écrit la structure d'une table dans un fichier texte:

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
21
22
23
24
25
26
 
 
    Function StructureToFile(ByVal oStruct As DataColumnCollection, ByVal cToFile As String) As Boolean
        Dim blnWriter As Boolean
 
        For Each oColumn As DataColumn In oStruct
            blnWriter = WriteToFileTxt(oColumn.Ordinal.ToString & " ;   ", cToFile)
            blnWriter = WriteToFileTxt(oColumn.ColumnName & " ;   ", cToFile)
            blnWriter = WriteToFileTxt(oColumn.DataType.ToString & (Chr(13) & Chr(10)) & (Chr(13) & Chr(10)), cToFile)
        Next
 
        Return blnWriter
    End Function
 
    Function WriteToFileTxt(ByVal strString As String, ByVal strToFile As String) As Boolean
        Dim strFileTxt As String = cstDossierTexte & strToFile
        Dim oStremWt As New StreamWriter(strFileTxt, True)
        Try
            oStremWt.Write(strString)
            oStremWt.Close()
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
    End Function

[Jb_One73]

Merci pour ta solution mais en fait je viens de trouver, voici le code pour afficher les champs d'une table avec ODBC (peut-être que cela fonctionne avec ODNC ou autres mais à confirmer) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim cnx As New SqlClient.SqlConnection
cnx.ConnectionString = "Data Source=NomDuServeur;Initial Catalog=NomDeLaBase;Integrated Security=SSPI;"
 
cnx.Open()
Dim dt As DataTable = cnx.GetSchema("Columns", New String() {Nothing, Nothing, "NomDeLaTable"})
 
For Each dtr As DataRow In dt.Rows
MessageBox.Show(dtr.Item("COLUMN_NAME"))
Next
 
cnx.Close()
cnx.Dispose()

Merci pour tout Paul Van Walleghem