Database Sneller door zoeken

[eeyk]

Hoe kan ik een Progressbar of Database sneller laten zoeken in

187.000 Lijnen het duurt 3 minuten voor hij iets vind hoe kan ik er een progressbar aan toevoegen??

 

[kabourterplop]

Je kan misschien met een thread werken.

Zo gauw als hij opstart en een progressbar laten zien en daarna als hij klaar is progressbar weghalen.

 

[eeyk]

ik maak een virus scanner maar als er 187.987 virus Codes in staan dan duurt het effen zoeken

 

[kabourterplop]

Dan kan je toch een thread maken. Dat bevriest het programma niet.

 

[eeyk]

Het programa Bevriest niet maar als je een Programa scant

dan Duurt het effen om die bad code Tezoeken in Virus.db


want ik heb nu all 456.974 Bekende virussen Toegevoegd. dus het duurt effen


ik gebruik dit om te zoeken

Public Function Search(ByVal strFilename As String) As String

  Dim Zeilen() As String
  Dim FName    As String
  Dim Current  As Long

    FName = strFilename
    For Current = 1 To 168660
        If Sign(Current) = "#END#" Then
            GoTo Finish
        End If
        If FindTerm(FName, Sign(Current), Zeilen, vbLf, vbCr) Then
            DoEvents
            Search = Sign(Current)
            Exit Function
         Else 'NOT FINDTERM(FNAME,...
            Search = "NOTHING"
        End If
    Next Current
Finish:

End Function