Довольно часто сталкиваюсь с необходимостью назначать и считывать значения переменных соот ветсвии с ниже приведёнными примерами.
И понимаю, что либо я не знаю азов языка либо он имеет существенные ограничения. Кароче подскажите, как реализовать на VB подобные схемы

Для примера 2 примера))

Пример 1:

Есть некая база данных, хранящая необходимые значения
нужно сделать следующее - присвоить куче переменных с именами
Val1 Val2 Val3 Val4 Val5 значение соответсвующих полей в базе данных

Например это можно бы сделать так...

sDim = Split("Val1 Val2 Val3 Val4 Val5 и так далее")

strSQL = "SELECT * FROm BAzaNAme "
set tmp = con.EXECUTE(strSQL)
for i=0 to Ubound(sDim)
sDim(i) = tmp( sDim(i)).value
NEXT
tmp.close

НО!!!! sDim(i) должно быть не значением элемента массива, а переменной с именем sDim(i), тоесть если бы я написал при обращении к базе следующее

strSQL = "SELECT * FROm BAzaNAme "
set tmp = con.EXECUTE(strSQL)
Val1 = tmp("Val1").value
Val2 = tmp("Val2").value
Val3 = tmp("Val3").value
Val4 = tmp("Val4").value
tmp.close


Пример2:

Dim Val1, Val2, Val3, Val4, Val5....и так далее
Dim strDIM
sDim= split("Val1 Val2 Val3 Val4 Val5...и так далее")

далее идёт тело программы , в результате:

Val1= TRUE
Val2 = TRUE
Val3= TRUE
Val4 =FALSE
Val5 = ..... м так далее

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

For fi=1 to ubound(sDim)
if Val&Fi then
тут одно делаем
Else
а тут другое
End if
NEXT

Синтаксис Val&Fi естественно не верный. МОЖНО ЛИ ЭТОТ КАК ТО РЕАЛИЗОВАТЬ НА VB и как это будет выглядеть

Опс)) Спасибо за столь оперативный ответ))
Я наверно забыл сказать в самом начале, что у меня VBScript и старый ASP и я вот ка раз щас думаю переходить на NET и думаю, неадо ли мне осваивать всякие там С# или остатся на VB))

в VBScript вроде как есть поддержка и типов и классов, но я чегото так никогда их не использовал, потому как всё и так получалось)) А щас захотелось удобств))))

Щас буду пытатся запустить ваш код, адаптировав под свой ASP сервер))

не типов нету в VB)) Это запустить не смогу))
но и так видно что несколько не то))

Поясню чего нужно на словах))

надо, чтоб можно было назначить куче переменных с названиями, такими же как у столбцов в базе данных, значения из нужной строки полученной в ходе запроса. И делать это не руками, а циклом

Когда каждый день пишешь обработки всякой байды с кучей свойств, то назначение руками типа asd=tmp("asd") немного надоедает. К тому же база в разработке, и прихдится часто менять название столбцов и потом отлавливать, всё ли правильно переименовалось

В каком языке программирования можно задать названия переменным также просто как в моём неработающем примере??

я имел в виду не VB а VB Sript, когда писал что нету Типов,
в VBsript есть массивы)) Естесвенно))

Я юзаю VB скрирпт в нем нету типов, но есть классы, тоесть можно делать свои конструкции и вызывать чтото типа MyClass.Svoistvo1, но это тутта не подходит.

Про VBScript я упоминул тока потому, что тока в нем мог попробовать ваш код, а вообще то я хочу понять можноли осуществить такое назначение на VB, так как перевожу свое приложения на .NET

Я страшный лентяй и хочу написать функцию, которая бы считывала в базе нужную строку и в цикле создавала переменные с такими же именами, как названия у столбиков. тоесть чтоб просто писать:

f_query "BazaName", "FieldName", FieldValue

marvanраз массивы есть, то в моём примере можно обойтись и без типов:
Dim fVal(5)
Dim fNam(5)
и далее везде вместо
b(i).fVal использовать fVal(i)
b(i).fNam использовать fNam(i)

это не катит, так как нужно удобоваримое представление переменных - то есть нормальные имена у них должныбыть а не fVal(56) , так как с ними осуществляется куча операций, и каждый раз лазить в референс помотреть, какой там номер был присвоен значению из нужного столбца абсолютный не реал))

Alexey Kudinov

Хотя может что-то и в Runtime получится, через CallByName например.

ой а че это такое и где про это можно прочитать про CallByName ??

ЗЫ а на С# можно таким образом назначать имена переменным, точнее написать такую функцию, которая это будет делать?
я про f_query "BazaName", "FieldName", FieldValue из 2 постов выше...))