Discussion :

[kleomas]

Hola companeros,

Je cherche à récupérer, par programme, la taille d'un champs de type texte via la propriété MaxLength d'un objet DataColumn. Ca me renvoie toujours -1 !!!

Connaissez-vous un autre moyen d'obtenir la taille d'un tel champs ? Je suis preneur. A titre de remerciement je demanderais au père noêl de venir vous rendre visite (indiquez votre préférence pour le cadeau).

Merci d'avance.

[graphicsxp]

Salut,
Ca ne fonctionne pas en utilisant .ToString.Length() ?

Example:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim dt As New DataTable
        Dim dc As New DataColumn("Test")
 
        dt.Columns.Add(d)
        Dim r As DataRow = dt.NewRow
 
        r("Test") = "some data"
        dt.Rows.Add(r)
 
        'Et là tu accedes a la longueur de chaine :
        dim length as Integer = dt.rows(0).item(0).ToString.Length

[EDIT]
oups N'aurais-je pas par hasard répondu à coté de la question :
En effet c'est la longueur du type que tu veux, pas la longueur des données, c'est bien ça?
Dans ce cas en effet, c'est bien MaxLength qu'il faut utiliser. Si elle vaut -1 c'est qu'elle n'a pas été initialisée. Tu peux utiliser MaxLength pour attribuer la longueur maximal de ton champs.
[EDIT]

[kleomas]

Hola,

Au moins à 3 mètres de la plaque lol. Je m'interesse à la colonne en tant que structure. Je ne cherche pas à récupérer la taille d'une colonne sur un enregistremment particulier.

Quand à la propriété MaxLenth j'ai lu au travers de mes pélégrinations sur Internet qu'elle était buggée. Elle renvoie toujours -1 sur une table existante. Je signale au passage que le problème se pose avec le framework 1.1 (VS 2003).

Merci quand même. Si quelqu'un a une idéee ...

[neguib]

Cela n'a-t-il pas un lien avec ta façon de recupérer les données
MissingSchemaAction Enumeration

[kleomas]

Cela n'a-t-il pas un lien avec ta façon de recupérer les données
MissingSchemaAction Enumeration

Merci pour la suggestion. Je dirais au père noêl de te donner au moins un 1/2 cadeau.

La propriété DataColumn.MaxLength me semblant mal documentée, je me suis orienté, par ta suggestion vers une méthode qui travaille sur le schéma de la table.

Je joint ci dessous une fonction qui fait le boulot demandé au cas où ca peux servir à d'autres. Pour faire court ce n'est ni complet ni sécurisé et on peux obtenir des d'informations autres que la taille.

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
 
Public Function GetFieldSize( _
   ByVal p_con As OleDbConnection, _
   ByVal p_strTableName As String, _
   ByVal p_strFieldName As String) As Integer
 
 ' Récupérer le "schema" de la table
 Dim dt As DataTable
 dt = p_con.GetOleDbSchemaTable( _ 
    OleDbSchemaGuid.Columns, _ 
    New Object() {Nothing, Nothing, p_strTableName})
 
 ' Récupérer l'enregistrement qui décrit le champs désiré
 Dim dv As DataView = dt.DefaultView
 dv.Sort = "COLUMN_NAME"
 Dim iRow As Integer = dv.Find(p_strFieldName)
 Dim dr As DataRow = dv(iRow).Row
 
 Dim iLength As Integer = dr.Item("CHARACTER_MAXIMUM_LENGTH")
 Return iLength
End Function

Merci à ceux qui m'ont répondu et même aux autres -))

[olsimare]

Comme je me suis également posé la question, et que la conclusion me semblait un peu trop complexe, il y'a un moyen simple de récupérer les propriétés d'une colonne d'un dataset issu d'une BDD.
Il suffit d'utiliser la méthode FillSchema du DataAdapter utilisé pour remplir le DataSet.

Exemple :

Code vb.net :

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
 
        '
        ' Cnn est un connexion oledb a une base de donnée
        ' Parametre est une table de la base
        '
        Dim strQuery As String = "SELECT * FROM Parametre"
        Dim daListe As New OleDbDataAdapter(New OleDb.OleDbCommand(strQuery, Cnn))
        Dim dsListe As New DataSet
        '
        ' charge le schéma --> c'est là qu'on récupére les infos sur les champs
        '
        daListe.FillSchema(dsListe, SchemaType.Mapped)
        '
        ' charge les données --> pour affichage en datagrid par exemple
        ' pas d'intérêt dans l'exemple mais a ne pas oublier !
        '
        daListe.Fill(dsListe)
 
        Dim c As DataColumn, strMsg As String
        For Each c In dsListe.Tables(0).Columns
            strMsg = strMsg & vbCrLf
            strMsg = strMsg & " Nom : " & c.ColumnName & " - Type : " & c.DataType.Name & " - Longueur : " & c.MaxLength
        Next
 
        System.Windows.Forms.MessageBox.Show(strMsg)