SQLce reader

Det er usandsynligt at der er noget hurtigere end reader. Stort set alt andet bygger oven på reader.

Må vi se den faktisk kode ?

'Åbner forbindelsen til databasen
Dim ConnStr As New SqlCeConnection("Data Source="C:\Database.sdf")

ConnStr.Open()

Dim cmd_All_Data As New SqlCeCommand("SELECT * FROM Data ORDER BY AKTIV", ConnStr)
        Dim Reader As SqlCeDataReader
        Reader = cmd_All_Data.ExecuteReader

        Dim SQLCmd As New SqlCeCommand()
        Dim SQLStr As String
        SQLCmd.Connection = ConnStr

While Reader.Read


            Dim AutoAfs = 0
            Dim AnskPrimo = 0
            Dim AkkPrimo As Double = 0
            Dim RestLevetid = 0
            Dim AnskUltimo = 0
            Dim AkkUltimo = 0
            Dim TilgangIalt = 0
            Dim AfgangIalt = 0
            Dim ÅretsManAfskr = 0
            Dim AfskrVedrSalg As Double = 0
            Dim BogførtVærdi = 0
            Dim ÅretsTilgang = 0
            Dim ÅretsAfgang = 0
            Dim ScrapVærdi = 0
            Dim FortjenesteVedSalg = 0
            Dim ÅretsAfskrivning = 0
            Dim Aktiv = 0
            Dim Afskrivning As Double = 0
            Dim Salgspris = 0

            AnskPrimo = Reader.Item(4)
            AkkPrimo = Reader.Item(8)
            RestLevetid = Reader.Item(2)
            TilgangIalt = Reader.Item(5)
            AfgangIalt = Reader.Item(6)
            ÅretsManAfskr = Reader.Item(9)
            BogførtVærdi = Reader.Item(14)
            ScrapVærdi = Reader.Item(3)
            Aktiv = Reader.Item(19)
            Salgspris = Reader.Item(15)

"Så kommer der lige lidt mere efterfølgende, men det er de her som tager langtid at loade ind"


loop

Maaske kunne du spare lidt ved at liste de kolonner, som du faktisk skal bruge fremfor at hente alle.

SELECT * FROM ...

->

SELECT felt1,felt2,... FROM ...

OK ?