Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement ASP.Net Convertir en C# et Une collection dans un DataGrid

Convertir en C# et Une collection dans un DataGrid

1 réponse
Avatar
Etienne
Bonjour=20

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

Code:=20
Dim cMarmos As Collection =3D New Collection()=20

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

' -------------------------------=20
' Chargement des carecteristiques=20
' -------------------------------=20
MonSQL2 =3D "ps_getMarmoCaras '" &=20
mR.nom & "','" & mR.prenom & "'"=20
If mCnx2.ouvreReader(MonSQL2) Then=20
Do While mCnx2.RS.read=20
mR.ModifCaracteristique
(mCnx2.RS.getvalue(0), mCnx2.RS.getvalue(1))=20
Loop=20
End If=20
mCnx2.RS.close()=20
' --------------------------------=20
' Chargement des =E9l=E9ments du Marmo=20
' --------------------------------=20
MonSQL2 =3D "ps_getMarmoElements '" &=20
mR.nom & "','" & mR.prenom & "'"=20
If mCnx2.ouvreReader(MonSQL2) Then=20
Do While mCnx2.RS.read=20
mR.ModifElement
(mCnx2.RS.getvalue(0), mCnx2.RS.getvalue(1))=20
Loop=20
End If=20
mCnx2.RS.close()=20
' -----------------------------------=20
' Chargement des Comp=E9tences du Marmo=20
' -----------------------------------=20
MonSQL2 =3D "ps_getMarmoComp '" & mR.nom=20
& "','" & mR.prenom & "'"=20
If mCnx2.ouvreReader(MonSQL2) Then=20
Do While mCnx2.RS.read=20
mR.AjouteCompetence
(mCnx2.RS.Item("ID_COMPET"), _=20
=20
mCnx2.RS.Item("LIB_COMP"), _=20
=20
mCnx2.RS.Item("NIVCOMP"), _=20
=20
mCnx2.RS.Item("VALEUR"), _=20
=20
mCnx2.RS.Item("ID_CARA"), _=20
=20
mCnx2.RS.Item("LIB_CARA"))=20
Loop=20
End If=20
mCnx2.RS.close()=20
' -----------------------------------=20
' Chargement des cr=E9af=E9es du Marmo=20
' -----------------------------------=20
MonSQL2 =3D "ps_getMarmoCreafees '" &=20
mR.nom & "','" & mR.prenom & "'"=20
If mCnx2.ouvreReader(MonSQL2) Then=20
Do While mCnx2.RS.read=20
mR.AjouteCreafee(mCnx2.RS.Item
("ID_ELEMENT"), _=20
mCnx2.RS.Item
("ID_GENRE"), _=20
mCnx2.RS.Item
("LIB_GENRE"), _=20
mCnx2.RS.Item
("LIB_ELEM"), _=20
mCnx2.RS.Item
("LIB_CREAF"), _=20
mCnx2.RS.Item
("DEFAUT"), _=20
mCnx2.RS.Item
("VALEUR"), _=20
mCnx2.RS.Item
("NIVEAU"))=20
Loop=20
End If=20
mCnx2.RS.close()=20

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


Mon probl=E8me =E9tant de cr=E9er la collection=20

LA deuxi=E8me question =E9tant :=20
Coment puis-je charger une DataGrid (WebForm) avec cette=20
collection issue du traitemnet ?=20

Merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ken Cox [Microsoft MVP]
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" wrote in message
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