title image


Smiley Ich hab's !
So geht's:





If rs.RecordCount > 0 Then



Do Until rs.EOF

ReDim Preserve arrCollections(i)

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

i = i + 1

rs.MoveNext

Loop

Else

Msgbox "Fehler"

End If


Weil die Lichtgeschwindigkeit höher als die Schallgeschwindigkeit ist, hält man viele Leute für helle Köpfe bis man sie reden hört.


Gruppenfoto 2006: K13



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: