gegevens uit access halen verloopt traag, maar het werk wel

[tomster]

Ik heb een access database die ik aanspreek via Odbc in mijn VB.net applicatie.
De gegevens worden er mooi uitgehaald, maar het duurt effectief 1-2 minuut(en) voor 60 gegevens eruit te krijgen en dat is me iets te veel!

Wat kan ik daar dus aan doen?

mijn code:

in mijn form code==>

hshPersonen = moRT.GetPersoonSQL(sSQL)
....

getPersoon staat in een classe==>

Public ReadOnly Property GetPersoonSQL(ByVal sSQL As String) As Hashtable
        Get
            Dim msSQL As String
            Dim DT As DataTable
            Dim DR As DataRow
            Dim moPersoon As clsPersoon
            Dim mohshPersoon As New Hashtable

            msSQL = sSQL
            DT = Me.Connection.GetDT(msSQL)

            For Each DR In DT.Rows
                moPersoon = New clsPersoon(DR.Item("Stamnr"), Me)
                mohshPersoon.Add(moPersoon.key, moPersoon)
            Next

            Return mohshPersoon
        End Get
    End Property

terug naar mijn form==>

For Each oPersoon In hshPersonen.Values
       
                        sNaam = oPersoon.Naam****
                        sVoornaam = oPersoon.Voornaam****
                        ..
                        lstItem = lvwPersoon.Items.Add(sNaam)
                        lstItem.SubItems.Add(sVoornaam)
                        ..
                Next

****<<== als ik mijn project volg via een break, dan zal hij telkens op deze plaats 3 seconden blijven hangen en doorgaan naar de volgende! Dus hier verlies is mijn tijd.
Mijn classe clspersoon is in de aard van:

 Public Sub New(ByVal iStamnr As Integer, ByVal oParent As clsRoot)
        'msNaam = sNaam
        miStamnr = iStamnr
        moParent = oParent
    End Sub
    Public ReadOnly Property key() As String
        Get
            Return Me.miStamnr
        End Get
    End Property

    Public ReadOnly Property Parent() As clsRoot
        Get
            Return moParent
        End Get
    End Property

    Public ReadOnly Property Naam() As String
        Get
            Return Me.GetValueTblMatrix("naam")
        End Get
    End Property

    Public ReadOnly Property GetValueTblMatrix(ByVal sField As String) As String
        Get
            Dim sSQL As String

            sSQL = "SELECT " & sField & " FROM tblMatrixTBL WHERE ((tblMatrixTBL.Stamnr)= " & Me.miStamnr & ")"

            Dim DT As DataTable
            DT = moParent.Connection.GetDT(sSQL)

            If Not IsDBNull(DT.Rows.Item(0).Item(sField)) Then
                Return (DT.Rows(0).Item(sField))
            Else
                Return ""
            End If
        End Get
    End Property

Iemand een idee waarom dit zo is?
bedankt!

mvg,
Tom

 

[tomster]

Best Tom,

het is me gelukt ! :thumb:
Dit topic mag gesloten worden!
Bedankt toch aan allen die de moeite hebben gedaan om het te lezen

mvg,
Tom