Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выполнить набор команд из текстовой переменной? / 3 сообщений из 3, страница 1 из 1
21.08.2009, 15:44
    #36157235
Роман Шевченко
Роман Шевченко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выполнить набор команд из текстовой переменной?
Задача: в зависимости от выполнения/невыполнения условий формировать строковую переменную в виде набора VB команд.
Затем эти команды необходимо выполнить....

Как это можно реализовать?

Объясняю зачем мне это надо. У меня есть неизвестное заранее количство рекордсетов. Их имена я подтягиваю из внешней таблицы. Какие это будут имена и сколько их - заренее неизвестно. А объявить их надо. Ибо со всеми ими (рекордсетами) мне нцжно работать. Посему блеснула мысль. При затяжке имен рекордсетов формировать стровоквые переменные с текстом :

Код: plaintext
1.
varStr(i) = "Dim " & имярекордсета & "As New ADODB.Recordset"
И тут встал вопрос: а как теперь выполнить инструкции из этих переменных???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2009, 15:47
    #36157246
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выполнить набор команд из текстовой переменной?
есть контрол VBScript, в котрый можно засовывать исполняемый код и выполнять, но вам придется поработать с вашим кодом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2009, 16:18
    #36157342
qwrqwr
qwrqwr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выполнить набор команд из текстовой переменной?
Роман Шевченко
Объясняю зачем мне это надо. У меня есть неизвестное заранее количство рекордсетов. Их имена я подтягиваю из внешней таблицы. Какие это будут имена и сколько их - заренее неизвестно. А объявить их надо. Ибо со всеми ими (рекордсетами) мне нцжно работать. Посему блеснула мысль. При затяжке имен рекордсетов формировать стровоквые переменные с текстом...Неверная мысль блеснула. Запихните все свои рекордсеты в коллекцию - для этого нужно объявить 1 (одну) коллекцию и 1 (один) рекордсет.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim ar As ADODB.Recordset
Dim col As VBA.Collection

For Each Имя In ВнешняяТаблица
    Set ar = RecordsetFrom(Имя)
    col.Add ar, Имя
Next

For Each ar In col
    'работаем со всеми по-очереди
Next
ттут RecordsetFrom() - Ваша функция, которая возвращает рекордсет по его имени (не знаю как)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выполнить набор команд из текстовой переменной? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 331ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2160644]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 61ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 20ms
get tp. blocked users:
 1ms
others: 217ms
total:  331ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]