Hi,

Bij het laden van mijn formulier wordt er connectie gemaakt met een AccesDB. Deze gegevens worden gelijk in een ComboBox geladen. Met een paar 1000 records is dat erg goed te doen, zonder zichtbare vertraging op te lopen.

Maar nu hebben we het over 611.711 records.  Das niet mis..!!! Het probleem zit hem niet in de connectie, maar dat het ruim 30 seconden duurt voordat alles is geladen. Dus moet er een andere oplossing komen.

Zelf dacht ik dit op te kunnen lossen door gebruik te gaan maken van een TextBox, maar ik kom er niet uit. Wellicht veel gevraagd, maar hebben jullie een eventuele oplossing met code?

Bedankt voor de reply mibe, maar zoals ik al aan heb gegeven duurt het laden veel te lang in een combobox. Onderstaand de code die ik gebruik voor het laden en verwerking naar de ListBox.

Code:

Option Explicit Dim cn As New ADODb.Connection Dim rs As New ADODb.Recordset Dim strPlaats As String Private Sub Form_Load()     Set cn = New ADODb.Connection     With cn         .Provider = "Microsoft.Jet.OLEDB.4.0"         .ConnectionString = _              "Data Source = C:Program FilesR.A.D. 2005 3rd EditionDatabasesPostcodepTabel.mdb;" _              & "Persist Security Info = False"         .Open     End With     Set rs = New ADODb.Recordset     With rs         .ActiveConnection = cn         .CursorLocation = adUseServer         .CursorType = adOpenDynamic         .Source = "POSTCODETABEL"         .Open     End With     strPlaats = "|"     Do Until rs.EOF         If InStr(1, strPlaats, "|" & rs!Plaats & "|") = 0 Then              Combo1.AddItem rs!Plaats              strPlaats = strPlaats & rs!Plaats & "|"         End If     rs.MoveNext     Loop     rs.Close     Set rs = Nothing End Sub

Code:

Private Sub Combo1_Click()     List1.Clear     Set rs = New ADODb.Recordset     rs.Open "SELECT * FROM POSTCODETABEL where PLAATS = '" & Combo1.Text & "'", cn, adOpenDynamic, adLockReadOnly     If Not rs.EOF Then         rs.MoveFirst         Do While Not rs.EOF              List1.AddItem rs!Straat              rs.MoveNext         Loop     End If End Sub

Ha die Malloc,

De manier die jij voor stelt had ik ook al in gedachte, maar zou niet weten hoe dat te doen. Vandaar mijn gedachte uit ging naar een textbox. Pas bij het wijzigen van de TextBox naar het gedeelte gaan van de eerste letter in de TextBox (Als je begrijpt wat ik bedoel)

Zoals Malloc opmerkt, is het de bedoeling dat alleen maar unieke gegevens worden geladen. Na keuze van de plaatsnaam worden alle straatnamen, betreffende plaatst, weggeschreven naar ListBox1.

Het "probleem" is dat het laden gelijk bij het openen van het bestand gebeurd.

Wat bedoel je precies Malloc? Door de code van jouw worden ook alleen maar unieke eigenschappen geladen? (Volgens mij gaat dat alleen maar gebeuren als de DataBase op volgorde is met jouw code, maar dat weet ik niet zeker.)

Voorbeeldje?

Deze code haalt de unieke plaatsen uit de tabel door de DISTINCT clausule. De tabel moet niet gesorteerd zijn. (waarschijnlijk gaat het nog sneller als je in de database een index maakt op het veld plaats.) Door de recordset te openen met adOpenForwardOnly en adReadOnly zou het nog sneller moeten gaan dacht ik.

Je doet daarna ongeveer hetzelfde voor het laden van unieke straatnamen.

Hé Malloc,

Ik kan wel huilen van blijdschap. Door dat stukje code van jouw zie je helemaal geen vertraging Wordt wordt echt SUPERSNEL geladen. Als ik een pet op had, dan had ik deze NU voor je afgezet. Proficiat!!!

Wellicht leuk voor een ander om een Postcodeboek te maken. Dit is de volledige code om snel en makkelijk een dergelijk iets te maken. Wellicht leuk om ook even naar dit topic te verwijzen in een eventuele dank.

Ingrediënten:

-          1 ComboBox

-          1 ListBox

-          1 Label

-          Acces Database

o         Veldnaam PLAATS (Geïndexeerd)

o         Veldnaam STRAAT

o         Veldnaam POSTCODE

Plaats onderstaande code volledig in het formulier:

Code:

Option Explicit Dim cn As New ADODb.Connection Dim rs As New ADODb.Recordset Private Sub Form_Load()     Set cn = New ADODb.Connection     With cn         .Provider = "Microsoft.Jet.OLEDB.4.0"         .ConnectionString = _              "Data Source = C:pTabel.mdb;" _  'naam van tabel              & "Persist Security Info = False"         .Open     End With     Set rs = New ADODb.Recordset     rs.Open "SELECT DISTINCT Plaats FROM POSTCODETABEL", cn, adOpenForwardOnly, adLockReadOnly     Do Until rs.EOF         Combo1.AddItem rs!Plaats         rs.MoveNext     Loop     rs.Close     Set rs = Nothing End Sub Private Sub Combo1_Click()     List1.Clear     Set rs = New ADODb.Recordset     rs.Open "SELECT * FROM POSTCODETABEL where PLAATS = '" & Combo1.Text & "'", cn, adOpenDynamic, adLockReadOnly     If Not rs.EOF Then         rs.MoveFirst         Do While Not rs.EOF              List1.AddItem rs!Straat  'naam van veld in de tabel              rs.MoveNext         Loop     End If End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer)     Select Case KeyAscii     Case 8, 32, 65 To 90     Case 97 To 122         KeyAscii = Asc(LCase(Chr(KeyAscii)))     Case 13         Call Combo1_Click     Case Else         KeyAscii = 0     End Select End Sub Private Sub Combo1_Change()     If Combo1.Text = "" Or Empty Then         List1.Clear         lblPostcode.Caption = ""     End If End Sub Private Sub Combo1_KeyUp(Keycode As Integer, Shift As Integer) Dim i As Integer Dim OriginalTextLength As Integer     If Keycode = 8 Or Keycode = 16 Or Keycode = 36 Or Keycode = 46 Or Keycode = 48 Or Combo1.Text = "" Then Exit Sub     For i = 0 To Combo1.ListCount - 1         If LCase(Combo1.Text) = LCase(Left(Combo1.List(i), Len(Combo1.Text))) Then              OriginalTextLength = Len(Combo1.Text)              Combo1.Text = Combo1.List(i)              Combo1.SelStart = OriginalTextLength              Combo1.SelLength = Len(Combo1.Text) - OriginalTextLength              Exit For         End If     Next i End Sub Private Sub List1_Click()     Set rs = New ADODb.Recordset     rs.Open "SELECT * FROM POSTCODETABEL where STRAAT = '" & List1.Text & "'", cn, adOpenDynamic, adLockReadOnly     If Not rs.EOF And Not rs.BOF Then lblPostcode.Caption = rs.Fields("POSTCODE").Value End Sub Private Sub mNieuw_Click()     Combo1.Text = Empty     Combo1.SetFocus End Sub Private Sub mSluiten_Click()     Unload Me End Sub

Even een screenshot van mijn proggy..