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
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
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
Paul Van Walleghem
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) :
Merci pour tout Paul Van Walleghem
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()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager