Récupérer des informations sur les propriétés des champs d'une base SQL Server 2005

Version imprimable

18/06/2008, 12h24
Morgoth777

Récupérer des informations sur les propriétés des champs d'une base SQL Server 2005

Bonjour,

J'ai une BDD SQL server 2005 et programme des pages web ASPX (en langage VB) sous Visual Studio 2005. (Faut être précis dans la vie :lol:)

J'utilise les objets présents dans "System.Data.SqlClient" pour me connecter à la base (SqlConnection), pour exécuter mes requêtes (SqlCommand) et parcourir les résultats des requêtes (SqlDataReader).

Je génères une bonne partie de mes requêtes de façon dynamique ou alors utilise des procédures stockées.

Lorsque je fais un "UPDATE" ou un "INSERT" à partir d'un formulaire en ligne que j'ai créé, composé de "textbox" (HTML), j'aimerais vérifier l'intégrité des données entrées par rapport aux contraintes de champs dans la BDD (not null, longueur, type,...)

En gros, si, par exemple, un utilisateur entre 51 caractères dans un "textbox" et que j'ai déclaré dans ma BDD que le champ correspondant est un "nvarchar(50)", j'aimerais afficher un message du style "Vous êtes limité à 50 caractères pour ce champ." et arrêter là l'exécution (avant que la requête "UPDATE" ou "INSERT" ne se lance) .

Comment faire pour récupérer les informations sur les contraintes de champs dans la BDD en vu de tester les champs de mon formulaire ? Tel est la question...

Voilà ;)
18/06/2008, 13h30
nah666

dim reader as sqlDataReader

(connexions requetes et autre... )

Dim table As DataTable = reader.GetSchemaTable()

Ensuite tu peux exploiter ce datatable comme expliqué:

http://msdn.microsoft.com/en-us/libr...hematable.aspx
18/06/2008, 14h30
Morgoth777

Merci pour ta rapide réponse.

Juste un souci... GetSchemaTable() n'est pas une méthode de SqlDataReader...

Quel objet utilise cette méthode stp ?

Voilà ;)
18/06/2008, 14h32
nah666

?

Dim a As SqlClient.SqlDataReader
a.GetSchemaTable()

Quel framework tu as?
18/06/2008, 14h42
Morgoth777

Microsoft .NET Framework Version 2.0 Redistributable Package (x86)

Je tourne sur XP. Il me faut télécharger le 3.5 ?

Voilà ;)
18/06/2008, 14h50
nah666

A priori le 2 devrait suffir...

Tu es certain que tu n'as pas cette méthode?

Ca m'etonne beaucoup

Je l'ai dans mon projet qui avant se basait sur le fram 2.0 ...
18/06/2008, 15h01
Morgoth777

Au temps pour moi....
Je me suis gouré dans un truc tout bête...
Vraiment nul on pourrait même dire. Mais j'escompte bien mettre cela sur le compte de la distraction (elle a bon dos avec moi la distraction :lol:)

En fait, en tapant "reader" puis le "." la liste des méthodes et autres apparait. Mais il y a deux onglets en bas... "Commun" et "Tous"... En cliquant sur l'onglet "Tous" effectivement la méthode apparait... Vraiment nul je suis :lol:

Je te tiens au courant si jamais je résous mon affaire grâce aux pistes que tu m'as données.

Voilà ;)
19/06/2008, 11h55
Morgoth777

Ok, c'est bon, j'ai réussit à résoudre mon problème...

J'essayerai de faire une version simplifiée et épurée que je posterai quelque part ici.

En tout cas, merci nah666 de m'avoir mis sur la piste.

Voilà ;)

Voilà donc le code ;)

Code:

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
27
28
29
30
31
32
33
34
35
36
37
 
        Dim MsgError As String = ""
 
        Dim i As Integer = 0
 
        Dim oConnection As New SqlConnection("Paramètres de connexion")
        Dim oCommand As New SqlCommand
 
        Dim oReader As SqlDataReader
 
        oConnection.Open()
 
        With oCommand
            .Connection = oConnection
            .CommandType = Data.CommandType.StoredProcedure
            .CommandText = "Nom d'une procédure stockée"
            oReader = .ExecuteReader
        End With
 
        Dim oSchema As DataTable = oReader.GetSchemaTable()
 
        oReader.Read()   '<--- Je sais que ma requête ne retourne qu'un ligne
 
        For i = 0 To (oReader.FieldCount - 1)
            Dim SchemaRow As DataRow = oSchema.Rows(i)
            Dim FormFieldValue As String = Request(SchemaRow("ColumnName")) '<--- J'ai nommé mes champs formulaire comme mes champs BDD pour plus de simplicité
 
            If (SchemaRow("DataType").ToString = "System.Integer") And not IsNumeric(FormFieldValue) Then
                MsgError = "Le champ '" & SchemaRow("ColumnName") & "' doit être un nombre<br/>"
            ElseIf FormFieldValue.Length >= SchemaRow("ColumnSize") Then
                MsgError = "Le champ '" & SchemaRow("ColumnName") & "' est limité à " & SchemaRow("ColumnSize").ToString & " caractères<br/>"   
            ElseIf (FormFieldValue.Length = 0) And not SchemaRow("AllowDBNull") Then
                MsgError = "Le champ '" & SchemaRow("ColumnName") & "' ne peut être vide<br/>"
            End If
        Next
 
        'Affichage de la page et du message d'erreur

19/06/2008, 12h19
Morgoth777

La liste propriété de DataRow (dans mon code "SchemaRow") :

ColumnName
ColumnOrdinal
ColumnSize
NumericPrecision
NumericScale
IsUnique
IsKey
BaseServerName
BaseCatalogName
BaseColumnName
BaseSchemaName
BaseTableName
DataType
AllowDBNull
ProviderType
IsAliased
IsExpression
IsIdentity
IsAutoIncrement
IsRowVersion
IsHidden
IsLong
IsReadOnly
ProviderSpecificDataType
DataTypeName
XmlSchemaCollectionDatabase
XmlSchemaCollectionOwningSchema
XmlSchemaCollectionName
UdtAssemblyQualifiedName
NonVersionedProviderType