U trendu

VBA – Brže spajanje stringova u Access-u

Krstarica

Č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 i preko mobilne aplikacije za Android i iPhone.