[es] - VB.NET problematika oko popunjavanja liste

ventura

Član broj: 32
Poruke: 7781
*.dynamic.sbb.rs.

+6455 Profil

VB.NET problematika oko popunjavanja liste

^{11.03.2015. u 19:09 - pre 110 meseci}

Pokušavam da napravim neki jednostavan web servis, ali se patim oko ove gluposti već dva sata, i nikako da nabodem rešenje koje radi... a verujem da je neka glupost u pitanju koju ne vidim.

Naime, dole navedena funkcija SendCompletedTransactions treba da vrati neku listu Transaction. Da bi to funkcionisalo ja sam definisao SingleTrans u koji addujem podatke iz svakog datarow-a ,a onda taj SingleTrans addujem u "trans" listu koju nameravam da vratim kao rezultat.

Međutim, problematika je u tome što lista "trans" na kraju dobije npr. 4 itema koliko bi i trebalo jer toliko recorda u bazi i postoji, ali kako se loopuje kroz "dr" sadržaj poslednjeg itema uvek pretaba sve pre njega. Tako da ja dobijem listu sa četiri itema koji su istog sadržaja kao i poslednji data row.

Evo ga i kod:

Code:
<WebMethod()> _
        Public Function SendCompletedTransactions() As List(Of CIWS.Transaction)

            Dim trans As New List(Of CIWS.Transaction)

            Dim cnn As SqlConnection = New SqlConnection(conString)
            Dim cmd As New SqlCommand("EXEC OnLine_LastGameTransactions ", cnn)
            Dim dr As SqlDataReader

            Dim CustomerID, TicketID As String
            Dim SingleTrans As New CIWS.Transaction

            cnn.Open()

            dr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

            While dr.Read()

                CustomerID = dr("ID_Player")
                TicketID = dr("TicketID")

                SingleTrans.CustomerID = CustomerID
                SingleTrans.TicketID = TicketID

                trans.Add(SingleTrans)
            End While

            Return trans
        End Function

za slučaj da je bitno kako je definisan Transaction, u pitanju su samo dva stringa, ništa drugo...

Code:
    public class Transaction
    {
        public string CustomerID;
        public string TicketID;
    }

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: VB.NET problematika oko popunjavanja liste

^{11.03.2015. u 21:38 - pre 110 meseci}

Ili ga izbegnes sasvim:

Code (vbnet):

<WebMethod()> _

        Public Function SendCompletedTransactions() As List(Of CIWS.Transaction)

            Dim trans As New List(Of CIWS.Transaction)

            Dim cnn As SqlConnection = New SqlConnection(conString)

            Dim cmd As New SqlCommand("EXEC OnLine_LastGameTransactions ", cnn)

            Dim dr As SqlDataReader

            cnn.Open()

            dr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

            While dr.Read()

                trans.Add(New CIWS.Transaction() With { .CustomerID = dr("ID_Player"), .TicketID = dr("TicketID") } )

            End While

            Return trans

        End Function

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu