ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выполнить набор команд из текстовой переменной?
3 сообщений из 3, страница 1 из 1
Как выполнить набор команд из текстовой переменной?
    #36157235
Роман Шевченко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Роман Шевченко
Гость
Задача: в зависимости от выполнения/невыполнения условий формировать строковую переменную в виде набора VB команд.
Затем эти команды необходимо выполнить....

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

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

Код: plaintext
1.
varStr(i) = "Dim " & имярекордсета & "As New ADODB.Recordset"
И тут встал вопрос: а как теперь выполнить инструкции из этих переменных???
...
Рейтинг: 0 / 0
21.08.2009, 15:44
| Ответить | Цитировать | Написать  
Как выполнить набор команд из текстовой переменной?
    #36157246
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
есть контрол VBScript, в котрый можно засовывать исполняемый код и выполнять, но вам придется поработать с вашим кодом
...
Рейтинг: 0 / 0
21.08.2009, 15:47
| Ответить | Цитировать | Написать  
Как выполнить набор команд из текстовой переменной?
    #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
21.08.2009, 16:18
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выполнить набор команд из текстовой переменной?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=150&tid=2160644]:
 0ms
get settings:
 7ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 226ms
total:  318ms
созд. / загр.: 318ms
x
x
Закрыть


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