[vb6 sp5] Snellere manier om dit voorelkaar te krijgen?

[DPLuS]

2 vraagjes:

1: Ik wil in een combobox nummers weergeven van 0 t/m 999.
Normaal zou je met een een "For i = 0 to 999" en een "combo.additem i" volstaan, maar de values moeten bestaan uit 3 karakters, en daar waar ze minder zijn moeten ze opgevuld worden met nullen, m.a.w.: 3 moet 003 worden, 50 moet 050 worden:

Visual Basic:

    For i = 0 To 999
        If Len(i) = 1 Then
            Combo1.AddItem "00" & i
        ElseIf Len(i) = 2 Then
            Combo1.AddItem "0" & i
        Else
            Combo1.AddItem i
        End If
    Next i

Ik vroeg me gewoon af of ik dit ook op een snellere manier voorelkaar kan krijgen?


2: De nummers in de combobox moeten nu ook vergeleken worden met bestaande values die in een database zitten.
Daar waar de nummers gelijk aan elkaar zijn, moeten gewist worden uit de combobox.
Ik heb de volgende code:

Visual Basic:

' compare rs and combobox values
strSQL2 = "SELECT Nummer FROM Lijst WHERE OwnerId = " & Loginscreen.Id
Set rs1 = db.OpenRecordset(strSQL2)

If rs1.BOF = False And rs1.EOF = False Then
    rs1.MoveFirst
    Do While Not rs1.EOF
        For intTemp = 0 To Combo1.ListCount - 1
            If Combo1.List(intTemp) = rs1!Nummer Then
                Combo1.RemoveItem (intTemp)
            End If
        Next intTemp
    rs1.MoveNext
    Loop
End If

Combo1.ListIndex = 0

End Sub

Nu heb ik bovenstaande code allemaal in het form_load event van een venster staan en duurt het bij mij redelijk lang voordat dit scherm opgebouwd is.
Bestaat er misschien een mogelijkheid wat efficiëntere code te implementeren?

Bvd

[gorgi_19]

1.

Visual Basic .NET:

    For i = 0 To 999
        Combo1.AddItem(Right("00" & I,3))
    Next i

2. Wat gaat er traag? Ophalen van de waarden?Het doorlopen van de items? Zet eens een paar tellers neer. En wat is "lang"

Verder kan ik me best voorstellen dat het lang duurt...
10 items, zorgt er voor dat er 999 * 10 items doorlopen moeten worden..
Zorg gewoon dat ze uberhaupt niet eens in de collection inkomen. VB6 kent vast wel iets als een array, zet daar de items in welke niet toegevoegd mogen worden.

[ Voor 117% gewijzigd door gorgi_19 op 02-01-2004 16:01 ]

[Maasluip]

Iets als

Visual Basic:

Combo1.AddItem Format$("000", i)

gebruiken?

[RayNbow]

Misschien moet je het zo aanpakken?

• Sorteer de records uit de database
• Loop door de getallen 0 t/m 999
• Als het huidige getal kleiner is dan Nummer uit de database, voeg je hem toe en ga je naar het volgende getal
• Als het huidige getal gelijk is aan Nummer, ga je naar het volgende getal
• Als het huidige getal groter is dan Nummer, dan ga je naar het volgende record en vergelijk je het getal met Nummer opnieuw.
• Indien er geen records meer zijn kan je het getal altijd toevoegen

De code (ik heb het alleen niet gecontroleerd op bugs):

Visual Basic 6:

' compare rs and combobox values
strSQL2 = "SELECT Nummer FROM Lijst WHERE OwnerId = " & Loginscreen.Id & " ORDER BY Nummer"
Set rs1 = db.OpenRecordset(strSQL2)

If rs1.BOF = False And rs1.EOF = False Then
    rs1.MoveFirst
End If

Dim I As Integer, Leeg As Boolean
I = 0

Leeg = rs1.BOF And rs1.EOF

If Leeg Then
    
    For I = 0 To 999
        Combo1.AddItem Format$("000", i)
    Next I

Else

    Do While I <= 999
        
        If I < rs1!Nummer Then
            Combo1.AddItem Format$("000", i)
            I = I + 1
            
        Else If I = rs1!Nummer Then
            I = I + 1
            
        Else 'If I > rs1!Nummer Then
            
            If Not rs1.EOF Then
                rs1.MoveNext
            Else
                Combo1.AddItem Format$("000", i)
                I = I + 1
            End If
        End If
    
    Loop

End If

[DPLuS]

Ik heb nu de volgende code en het gaat inderdaad al een stuk sneller.
Mocht iemand nog op- of aanmerkingen hebben hoor ik dat graag

Visual Basic 6:

    Dim db As Database
    Dim rs1 As Recordset
    Dim strSQL2 As String
    strSQL2 = "SELECT Nummer FROM Lijst WHERE OwnerId = " & Loginscreen.Id & " ORDER BY Nummer"
    
    Set db = OpenDatabase(App.Path & "\database.mdb")
    Set rs1 = db.OpenRecordset(strSQL2, dbOpenSnapshot) ' Recordset is bijv: "001", "003", "006", "102", "105" enz...
    
    Dim i As Integer
    i = 1
    
    If rs1.BOF = True And rs1.EOF = True Then
        Do While i <= 2200 ' 2200 is max. value
            Combo1.AddItem Format$(i, "000")
            i = i + 1
        Loop
    Else
        rs1.MoveFirst
        Do While i <= 2200
            If rs1.EOF = True Then
                Combo1.AddItem Format$(i, "000")
                i = i + 1
            ElseIf i < CInt(rs1.Fields("Nummer")) Then
                Combo1.AddItem Format$(i, "000")
                i = i + 1
            ElseIf i > CInt(rs1.Fields("Nummer")) Then
                Combo1.AddItem Format$(i, "000")
                i = i + 1
            Else 'If i = CInt(rs1.Fields("Nummer")) Then
                If Not rs1.EOF Then
                    rs1.MoveNext
                    i = i + 1
                End If
            End If
        Loop
    End If

[jvdmeer]

Waarom zet je die 1000 getallen niet in de database? In een aparte tabel?

Dan kan je nummers die in de combobox moeten komen tenminste erin zetten middels:

SQL:

SELECT Nummer
  FROM NieuweTabel
  WHERE Nummer NOT IN 
    ( SELECT Nummer 
      FROM Lijst 
      WHERE OwnerId = 'Loginscreen.Id'
    )
  ORDER BY Nummer

Eventueel i.v.m. indexen 'NOT IN' vervangen door een variant met 'EXISTS'.