GNT sans publicité, site mobile, fonctionnalitées exclusives...

Convertir en C# et Une collection dans un DataGrid

Le
Etienne
Bonjour

Comment puis-je en C# obtenir la m^me chose ecrite ici en
VB.NET.

Code:
Dim cMarmos As Collection = New Collection()

' -

' -> remplirla combo de l'ensemble des
personnages. getlswRoles
' -

MonSQL = "ps_getCollectionMarmos"
If mCnx.ouvreReader(MonSQL) Then
Do While mCnx.RS.read
Try
Dim mR As New Marmo()
mR.nom = mCnx.RS.GetValue(0) &
vbNullString
mR.prenom = mCnx.RS.GetValue(1) &
vbNullString
mR.sonRole.id_role = mCnx.RS.GetValue
(2)
mR.saTranche.id_tranche =
mCnx.RS.GetValue(3)
mR.saTranche.nbr_des = mCnx.RS.GetValue
(6)
mR.saTranche.points_crea =
mCnx.RS.GetValue(7)
mR.age = mCnx.RS.GetValue(9)
mR.Glamour = mCnx.RS.GetValue(10)
mR.Vie = mCnx.RS.GetValue(11)
mR.Intention = mCnx.RS.GetValue(12)
mR.PointsExperience = mCnx.RS.GetValue
(13)
mR.fille = mCnx.RS.GetValue(14)

' -
' Chargement des carecteristiques
' -
MonSQL2 = "ps_getMarmoCaras '" &
mR.nom & "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.ModifCaracteristique
(mCnx2.RS.getvalue(0), mCnx2.RS.getvalue(1))
Loop
End If
mCnx2.RS.close()
' --
' Chargement des éléments du Marmo
' --
MonSQL2 = "ps_getMarmoElements '" &
mR.nom & "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.ModifElement
(mCnx2.RS.getvalue(0), mCnx2.RS.getvalue(1))
Loop
End If
mCnx2.RS.close()
' --
' Chargement des Compétences du Marmo
' --
MonSQL2 = "ps_getMarmoComp '" & mR.nom
& "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.AjouteCompetence
(mCnx2.RS.Item("ID_COMPET"), _

mCnx2.RS.Item("LIB_COMP"), _

mCnx2.RS.Item("NIVCOMP"), _

mCnx2.RS.Item("VALEUR"), _

mCnx2.RS.Item("ID_CARA"), _

mCnx2.RS.Item("LIB_CARA"))
Loop
End If
mCnx2.RS.close()
' --
' Chargement des créafées du Marmo
' --
MonSQL2 = "ps_getMarmoCreafees '" &
mR.nom & "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.AjouteCreafee(mCnx2.RS.Item
("ID_ELEMENT"), _
mCnx2.RS.Item
("ID_GENRE"), _
mCnx2.RS.Item
("LIB_GENRE"), _
mCnx2.RS.Item
("LIB_ELEM"), _
mCnx2.RS.Item
("LIB_CREAF"), _
mCnx2.RS.Item
("DEFAUT"), _
mCnx2.RS.Item
("VALEUR"), _
mCnx2.RS.Item
("NIVEAU"))
Loop
End If
mCnx2.RS.close()

' -

' chargement dans la collection du
personnage
' -

cMarmos.Add(mR, mR.nom & mR.prenom)



Mon problème étant de créer la collection

LA deuxième question étant :
Coment puis-je charger une DataGrid (WebForm) avec cette
collection issue du traitemnet ?

Merci
Lire la réponse

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ken Cox [Microsoft MVP]
Le #12396621
Salut Etienne,

Pour convertir en C#, fais compiler ton VB.NET, en ensuite charge ton DLL en
Reflector. Reflector te donne l'option de decompiler en C#.

http://www.aisto.com/roeder/dotnet/

Ken
Toronto


"Etienne" news:0b4901c513fb$11f5af00$
Bonjour

Comment puis-je en C# obtenir la m^me chose ecrite ici en
VB.NET.

Code:
Dim cMarmos As Collection = New Collection()

' ----------------------------------------------
------------
' -> remplirla combo de l'ensemble des
personnages. getlswRoles
' ----------------------------------------------
------------
MonSQL = "ps_getCollectionMarmos"
If mCnx.ouvreReader(MonSQL) Then
Do While mCnx.RS.read
Try
Dim mR As New Marmo()
mR.nom = mCnx.RS.GetValue(0) &
vbNullString
mR.prenom = mCnx.RS.GetValue(1) &
vbNullString
mR.sonRole.id_role = mCnx.RS.GetValue
(2)
mR.saTranche.id_tranche mCnx.RS.GetValue(3)
mR.saTranche.nbr_des = mCnx.RS.GetValue
(6)
mR.saTranche.points_crea mCnx.RS.GetValue(7)
mR.age = mCnx.RS.GetValue(9)
mR.Glamour = mCnx.RS.GetValue(10)
mR.Vie = mCnx.RS.GetValue(11)
mR.Intention = mCnx.RS.GetValue(12)
mR.PointsExperience = mCnx.RS.GetValue
(13)
mR.fille = mCnx.RS.GetValue(14)

' -------------------------------
' Chargement des carecteristiques
' -------------------------------
MonSQL2 = "ps_getMarmoCaras '" &
mR.nom & "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.ModifCaracteristique
(mCnx2.RS.getvalue(0), mCnx2.RS.getvalue(1))
Loop
End If
mCnx2.RS.close()
' --------------------------------
' Chargement des éléments du Marmo
' --------------------------------
MonSQL2 = "ps_getMarmoElements '" &
mR.nom & "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.ModifElement
(mCnx2.RS.getvalue(0), mCnx2.RS.getvalue(1))
Loop
End If
mCnx2.RS.close()
' -----------------------------------
' Chargement des Compétences du Marmo
' -----------------------------------
MonSQL2 = "ps_getMarmoComp '" & mR.nom
& "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.AjouteCompetence
(mCnx2.RS.Item("ID_COMPET"), _

mCnx2.RS.Item("LIB_COMP"), _

mCnx2.RS.Item("NIVCOMP"), _

mCnx2.RS.Item("VALEUR"), _

mCnx2.RS.Item("ID_CARA"), _

mCnx2.RS.Item("LIB_CARA"))
Loop
End If
mCnx2.RS.close()
' -----------------------------------
' Chargement des créafées du Marmo
' -----------------------------------
MonSQL2 = "ps_getMarmoCreafees '" &
mR.nom & "','" & mR.prenom & "'"
If mCnx2.ouvreReader(MonSQL2) Then
Do While mCnx2.RS.read
mR.AjouteCreafee(mCnx2.RS.Item
("ID_ELEMENT"), _
mCnx2.RS.Item
("ID_GENRE"), _
mCnx2.RS.Item
("LIB_GENRE"), _
mCnx2.RS.Item
("LIB_ELEM"), _
mCnx2.RS.Item
("LIB_CREAF"), _
mCnx2.RS.Item
("DEFAUT"), _
mCnx2.RS.Item
("VALEUR"), _
mCnx2.RS.Item
("NIVEAU"))
Loop
End If
mCnx2.RS.close()

' -------------------------------------
------
' chargement dans la collection du
personnage
' -------------------------------------
------
cMarmos.Add(mR, mR.nom & mR.prenom)



Mon problème étant de créer la collection

LA deuxième question étant :
Coment puis-je charger une DataGrid (WebForm) avec cette
collection issue du traitemnet ?

Merci
Publicité
Suivre les réponses
Poster une réponse
Anonyme