Parcourir les champs d'une structure

Signaler
Messages postés
129
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
4 mars 2010
-
 Phi43 -
Bonjour,
J'ai une structure qui comporte comme variables, tout les champs d'une DB, quand je veux mettre ces champs dans la DB en question, je fais ainsi actuellement :
        With DataAdapter.InsertCommand
            .Parameters("Name").Value = info_ana.Name
            .Parameters("Stream").Value = info_ana.Stream
            .Parameters("BottleID").Value = info_ana.BotlleID
            .Parameters("Remarque").Value = info_ana.Remarque
            .Parameters("CalibDate1").Value = info_ana.CalibDate1
            .Parameters("CalibDate2").Value = info_ana.CalibDate2
            .Parameters("Analyser1").Value = info_ana.Analyser1
            .Parameters("Analyser2").Value = info_ana.Analyser2
            .Parameters("Channel1").Value = info_ana.Channel1
            .Parameters("Channel2").Value = info_ana.Channel2
        End With
Pouvez-vous me dire si il a moyen de faire quelque chose de ce style :
        With DataAdapter.InsertCommand
             For Index As Integer 0 To .Parameters.Count - 1
                .Parameters(Index).Value = info_ana.(.Parameters(Index).ParameterName)
             Next
        End With
Si il avait possibilité de faire ainsi, je gagnerais 1/2 journée a encodé tout les champs de mes DBs en dur.

Merci d'avance de votre aide

3 réponses

Bonjour,
Ton poste date un petit peu mais je voulais savoir si tu avais trouvé une solution depuis.
Car je ne suis pas un spécialiste de la programmation est j'ai actuellement le même souci que toi.
Merci d'avance pour ta réponse.
Messages postés
129
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
4 mars 2010

Non désolé, je ne sais même plus te dire ce que j'ai fait pour contourner le problème !
Bon, je viens apporter ma pierre à l'édifice, après avoir passé une soirée à m'arracher les rares cheveux. Mon besoin était de récupérer les nom des champs et les valeurs d'une structure.

Voici ce que ça donne :

----- Déclaration de la structure -----

Structure Film
Public Title As String
Public Year As String
End Structure

Public AllFilms As New List(Of Film)

----- Remplissage de la structure -----

Je vous passe les détails...

----- Inspection de la structure et récupération des valeurs -----

Public Sub Test()

Dim ThisFieldName As String
Dim ThisFieldValue As String

For Each ThisFilm In AllFilms

For Each ThisField In ThisFilm.GetType.GetFields
ThisFieldName = ThisField.Name
ThisFieldValue = ThisField.GetValue(ThisFilm).ToString
MsgBox(ThisFieldName & " = " & ThisFieldValue)
Next

Next

End Sub

-----

Voilà, j'espère que ça vous donnera des pistes