ADODB.RecordSet to Array

[tamer42]

Merhaba,
Aşağıdaki kodla ADO bağlantısı ile alınan verileri bir diziye aktarmak isterken;
a = UBound(tmpArr, 1)
dizinin satır sayısını (a) 1 olarak veriyor. tmpArr dizisinin elaman sayısını nasıl öğrenebiliriz.

Dim tmpArr() As Variant

 strSQL = "SELECT [Name], [Node] FROM " & Tbl

' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Set RS = CreateObject("ADODB.RecordSet")
RS.Open strSQL, Con, 1, 1

 tmpArr = RS.GetRows
  '''  wSheet.Range("A2").CopyFromRecordset RS

' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
a = UBound(tmpArr, 1)

ilginize şimdiden teşekkürler,
iyi çalışmalar.

 

[AdemCan]

Merhaba, UBound(tmpArr)+1 ile dizinin eleman sayısını bulabilirsiniz.

 

[tamer42]

Merhaba, UBound(tmpArr)+1 ile dizinin eleman sayısını bulabilirsiniz.

 a = UBound(tmpArr, 2)

ile çözüldü