title image


Smiley Kleiner Perfomancetipp, wenn du ein Array zur Laufzeit reinitalisierst ...
gibt das richtig viel Last.

Besser ist das so:

If rs.RecordCount > 0 Then

ReDim arrCollections(rs.recordCount)

Do Until rs.EOF

ArrCollections(i) = rs.Fields(2).Value 'Spalte CollectionName

i = i + 1

rs.MoveNext

Loop

Else

Msgbox "Fehler"

End If



Thomas
Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: