Konvertieren von Recordset in ein Array

Question

Ich möchte ein Recordset rs in ein Array konvertieren, so dass ich es in weiteren Code verwenden kann.
rs kann variable Zeilen und variable Spalten haben.

Answer 1

Wenn Sie ADODB verwenden es ist so einfach wie:

Dim ret As Variant 

ret = rs.GetRows '~~> assuming rs object is populated and set 

Debug.Print Lbound(ret, 1), Ubound(ret, 1) '~~> bounds of 1st dimension 
Debug.Print Lbound(ret, 2), Ubound(ret, 2) '~~> bounds of 2nd dimension