Динамические имена для динамически созданных ActiveX?

[XPAHuTEJIb]

Добрый день.
Возможно ли задавать динамически имя создаваемому динамически ActiveX контролу?
например:

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

dim q as string
q="aaa"
dim [значение q] as adodb.recordset

[tyomitch]

ADODB.Recordset -- не ActiveX-контрол.
Задавать имя создаваемому динамически ActiveX-контролу можно.

[XPAHuTEJIb]

Извините, если не так пример привел, просто думал, что ActiveX Data Objects является ActiveX компонентом....
Подскажите пожалуйста, как это сделать?

Сабж:
Есть таблица с записями, есть поле ID, необходимо создать компонент, имя которому - значение ID таблицы.

[Antonariy]

Видимо речь идет об именах переменых. Нет, нельзя.

Можно использовать коллекцию.

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

col.Add rs, "Table1"
Set Datagrid1.DataSource = col("Table1")

[XPAHuTEJIb]

ну да, об именах.
спасибо.

[tyomitch]

Извините, если не так пример привел, просто думал, что ActiveX Data Objects является ActiveX компонентом....

Не всякий компонент -- контрол.

[XPAHuTEJIb]

еще вопрос:
а можно задать

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

dim s() as myActiveXcontrol

?
т.е. как массив объектов?

[Antonariy]

Любой контрол можно сделать массивом, проставив ему Index. И объявлять его при этом не нужно.

Но можно и объявить массив. Тогда придется вручную присваивать каждый элемент.

[XPAHuTEJIb]

приблизительно так?

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

Dim v() As VIP.VIP
redim v(0)
rs.movefirst
for x=1 to rs.recordcount
v(ubound(v)).senddata rs("mydata")
redim preserve v(ubound(v)+1)
rs.movenext
next

в Reference включил компонент
но, почему то не работает

[Antonariy]

Тогда придется вручную присваивать каждый элемент.

Это означает, что после redim v(0) есть массив из одного элемента, имеющего значение Nothing. Nothing не может сделать senddata. Нужно как минимум что-то вроде Set v(0) = New VIP.VIP