VBA – Brže spajanje stringova u Access-u

Često će vam se javljati potreba za spajanjem više stringova iz više polja, recimo neke Access baze podataka. U datim slučajevima najbolje rešenje je njihovo spajanje kroz neki tip petlje (Loop). Ali, u istim situacijama mnogo brže izvršavanje spajanja, a samim tim i aplikacije, ćete postići iščitavanjem stringova i njihovim smeštanjem u privremeni niz (Array) stringova. Tek kada oformite ceo niz, onda se vrši njihovo spajanje u jedan string. Pa tako, umesto da koristite sledeći kod:

 Do While Not rs.EOF

    string1 = string1 & rs.Fields(1).Value _

    	& “ “ & rs.Fields(2).Value _

        & “ “ & rs.Fields(3).Value & vbCrLf

    rs.MoveNext

 Loop

koristite ovaj brži metod, iako zahteva samo malo više programskog koda:

 Dim sNiz() As String

 Dim a As Long, ukupno As Long

 a = 0

 ubr = rs.RecordCount – 1

 reDim sNiz(ubr)



 Do While Not rs.EOF

    sNiz(a) = rs.Fields(1).Value _

           & “ “ & rs.Fields(2).Value _

           & “ “ & rs.Fields(3).Value & vbCrLf

    a = a + 1

    rs.MoveNext

 Loop
 For a=0 To ubr

    string1 = string1 & sNiz(a)

 Next

Što budete imali više spajanja u petlji, imaćete više koristi kasnijim spajanjem stringova (uz pomoć niza).

Pratite Krstaricu na www.krstarica.com