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
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

Poser une question


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