Синтаксис запроса с переменной в качестве имени таблицы

@Dmitry_Morozov · Регистрация: 03.01.2017

Author24 — интернет-сервис помощи студентам

Коллеги, привет!
что-то не могу разобраться в вопросе, нужна Ваша помощь.

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

Цену подтягиваю по следующему алгоритму
1) в таблицу с номенклатурой по определенным критериям подтягиваю прайс-лист актуальный для каждой позиции.
2) Таким образом, получаю сопоставление - товарная позиция-прайс из которого надо взять стоимость.
3) Перебирая значения рекордсета перехожу к нужному для конкретной товарной позиции прайс-листу (таким образом текущая запись рекордсета - название нужного прайс листа, т.е. название таблицы - переменная)
4) Далее либо циклом по рекордсету (уже реализовал, работает корректно) либо запросом (с ним проблема) подтягиваю цену.

Загвоздка с запросом заключается в том, что я не могу корректно составить запрос(синтаксис), где название таблицы-переменная.
По возможности прошу помочь.

Пример кода с опущенными условиями отбора.

Visual Basic

set rs = DB.opentable("PRICE_LISTS")
 
do until rs.EOF
cur_price_list_tbl=rs.fields("Price_list_name").value
 
DB.Execute "UPDATE [TRAGET_TABLE] INNER JOIN ['" & cur_price_list_tbl & "'] ON " & _
"[TRAGET_TABLE].[ITEM]=['" & cur_price_list_tbl & "'].[ITEM]" & _
"SET [TARGET_TABLE].[VALUE]=['" & cur_price_list_tbl & "'].[VALUE]"
 
cur_price_list_tbl.movenext
Loop

Заранее спасибо!

@snipe · 02.06.2017, 08:19

запрос можно изменить через vba
строка будет такая

Visual Basic

1	currentdb.querydefs("Имя запроса").sql="Select table1.* from table1"

@texnik-san · 06.06.2017, 06:58

Visual Basic

dim str as string
str = "UPDATE [TRAGET_TABLE] INNER JOIN [SOURCE_TABLE] ON " & _
"[TRAGET_TABLE].[ITEM]=[SOURCE_TABLE].[ITEM]" & _
"SET [TARGET_TABLE].[VALUE]=[SOURCE_TABLE].[VALUE]"
 
set rs = DB.opentable("PRICE_LISTS")
 
do until rs.EOF
cur_price_list_tbl=rs.fields("Price_list_name").value
 
DB.Execute Replace(str, "SOURCE_TABLE",cur_price_list_tbl)
 
cur_price_list_tbl.movenext
Loop

	06.06.2017, 06:58