parcourir les champs d'une structure

Question

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

tibono1881 · Answer

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.

narfight · Answer

Non désolé, je ne sais même plus te dire ce que j'ai fait pour contourner le problème !

Phi43 · Answer

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

Parcourir les champs d'une structure

3 réponses

Votre réponse

Discussions similaires