Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Определить текст как имя переменной. / 9 сообщений из 9, страница 1 из 1
15.08.2018, 16:50
    #39688280
vasiaman86
vasiaman86
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
Здравствуйте! Вопрос такой. Имеется рэкордсет, rst.Fields(1) имена переменных rst.Fields(2) значения которые нужно присвоить. Как это сделать?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    sSQL = "SELECT d_num.fldid, Max(ls.variable), Sum(d_num.value) " _
    & "FROM d_num LEFT JOIN ls ON d_num.fldid = ls.fldid " _
    & "WHERE d_num.abonentid =" & ab _
    & " AND Year(d_num.period)=" & Year(data) & " AND Month(d_num.period)=" & Month(data) _
    & " AND ls.variable Is Not Null " _
    & "GROUP BY d_num.fldid"
    Set rst = CurrentDb.OpenRecordset(sSQL)
    rst.MoveFirst
    Do While Not rst.EOF
        rst.Fields(1) = rst.Fields(2)

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.08.2018, 17:14
    #39688291
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
rst.MoveFirst
Do While Not rst.EOF
rst.Edit
rst.Fields(1) = rst.Fields(2)
rst.Update
rst.movenext
loop
Это если надо присвоить значение одного поля другому.
Но вот кажется мне, что вам в целом надо что-то другое....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2018, 07:07
    #39688462
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
vasiaman86Здравствуйте! Вопрос такой. Имеется рэкордсет, rst.Fields(1) имена переменных rst.Fields(2) значения которые нужно присвоить. Как это сделать?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    sSQL = "SELECT d_num.fldid, Max(ls.variable), Sum(d_num.value) " _
    & "FROM d_num LEFT JOIN ls ON d_num.fldid = ls.fldid " _
    & "WHERE d_num.abonentid =" & ab _
    & " AND Year(d_num.period)=" & Year(data) & " AND Month(d_num.period)=" & Month(data) _
    & " AND ls.variable Is Not Null " _
    & "GROUP BY d_num.fldid"
    Set rst = CurrentDb.OpenRecordset(sSQL)
    rst.MoveFirst
    Do While Not rst.EOF
        rst.Fields(1) = rst.Fields(2)

Модератор: Учимся использовать тэги оформления кода - FAQ

Evaluate ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2018, 09:48
    #39688554
vasiaman86
vasiaman86
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
HandKot, Пишу на access 2003.
Попытаюсь более подробно обяснить ситуацию. Имеется 15 глобальных переменных их имена в rst.Fields(1) а значения в rst.Fields(2). Необходимо определить rst.Fields(1) как часть кода.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2018, 10:08
    #39688570
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
vasiaman86Имеется 15 глобальных переменных их имена в rst.Fields(1) а значения в rst.Fields(2). Необходимо определить rst.Fields(1) как часть кода.
Переменные УЖЕ имеются? или нужно их определить, а не только присвоить им значения?
Если первое - то не вопрос... переменные в коде определены, имена известны, и осталось сляпать конструкцию типа
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Select Case rst.Fields(1)
Case "global1"
    global1 = rst.Fields(2)
Case "global2"
    global2 = rst.Fields(2)
' ...
Case "globalN"
    globalN = rst.Fields(2)
End Select

А вот если надо ещё их и определить - увы, задача нерешаема.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2018, 10:25
    #39688582
vasiaman86
vasiaman86
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
Akina, Кажется то что нужно буду тестировать. Благодарю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2018, 10:41
    #39688597
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
vasiaman86 , если Вы используете подобный подход, помыслите не о глобальных переменных. а о глобальной коллекции переменных, где ключ - имя, а значение - собственно значение. Тогда вместо переменной будете использовать выборку из коллекции, а присвоение из рекордсета по ключу. Типа:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Public globals As Collection

Sub Init
  ' ...
  With rst
    .MoveFirst
    Do Until .EOF
      globals.Add rst.Fields(2), rst.Fields(1)
      .MoveNext
    Loop
  End With
  ' ...
End Sub

' где-то в коде
' вместо 
globalVar = "что-то"
' используем 
globals("globalVar")  = "что-то"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2018, 10:51
    #39688604
Predeclared
Predeclared
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
Код: vbnet
1.
2.
...
      globals.Add rst.Fields(2), rst.Fields(1)


Здесь он добавит в коллекцию ссылку на DAO.Field, а не его значение.
Не?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2018, 11:31
    #39688638
vasiaman86
vasiaman86
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить текст как имя переменной.
глобальные коллекции переменных для меня пока рановато, а case отлично работает. Хотя с глобальными переменными не все просто они обнуляются после ошибки если процедура без обработчика ошибок. печалька
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Определить текст как имя переменной. / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 159ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172268]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 13ms
total:  159ms
x
x
Закрыть


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