Массив значений

[pstrkim]

Помогите решить проблему. Имеется Recorset с набором значений зависящим от элементов а(1), а(2). Как написать код если заранее не известно число элементов а(n)?

Код: Выделить всё

Dim a(2) as integer
rs.Source = "SELECT Structures.StructureName FROM Structures WHERE Structures.StructureID IN(" & a(1) & "," & a(2) & ")"

[dr.MIG]

Создавай массив:
Dim a() as integer
Получай количество элементов (n), устанавливай размер массива ReDim a(n), создавай строку запроса, используя цикл
For i=0 to UBound(a)-1
...
Next

[pstrkim]

создавай строку запроса, используя цикл
For i=0 to UBound(a)-1
...
Next

Не понял как это сделать с оператором Select? Не так же:

Код: Выделить всё

For i = 0 To UBound(a) - 1
            rsRpt.Source = "SELECT Structures.StructureName WHERE Structures.StructureID=" a(i)
Next


[dr.MIG]

Не так, а как-нибудь вот так

Код: Выделить всё

strQuery="SELECT Structures.StructureName FROM Structures WHERE Structures.StructureID IN ("
For i=0 to UBound(a)-1
   if i=0 then
      strA=a(0)
   else
      strA=strA & "," & a(i)
   end if
Next
rs.Source=strQuery & strA & ")"