Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.08.2013, 23:21   #1
VitalioCh
 
Регистрация: 17.08.2013
Сообщений: 5
По умолчанию запрос с переменной

Помогите пожайлуста, есть таблица в access, необходимо сделать по ней выборку, но условия выборки должны поочередно принимать значения из другой таблицы. Как я понял нужно сделать запрос на добавление но при это условие должно меняться согласно таблицы с условиями и так пока все условия не будут перебраны. Заранее спасибо. Как это сделать?
VitalioCh вне форума Ответить с цитированием
Старый 19.08.2013, 09:22   #2
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

1. Что значит "поочерёдно"?
2. Как задано "условие должно меняться согласно таблицы с условиями"?
3. Без базы данных с таблицей разговора не получится...
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 19.08.2013, 21:01   #3
VitalioCh
 
Регистрация: 17.08.2013
Сообщений: 5
По умолчанию

"поочередно" значит надо взять условие для запроса из таблицы с условиями выполнить запрос на добавление и перейти к следующему условию из таблицы с условиями. Постараюсь создать базу для примера и выложить. Спасибо!
VitalioCh вне форума Ответить с цитированием
Старый 20.08.2013, 22:47   #4
VitalioCh
 
Регистрация: 17.08.2013
Сообщений: 5
По умолчанию

Ура!!!

Option Compare Database
Dim dd As Variant

Public Sub RunSQL()
For dd = 1 To 27
strSQL = "INSERT INTO [тестовая таблица] ( G071, G072, G073, G442 ) SELECT АПРЕЛЬ.G071, АПРЕЛЬ.G072, АПРЕЛЬ.G073, АПРЕЛЬ.G442 FROM АПРЕЛЬ WHERE (((АПРЕЛЬ.G442)Like xxx()));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Next dd
End Sub

Public Function xxx()
xxx = DLookup("G442", "Условие", "G1=" & dd)
End Function
VitalioCh вне форума Ответить с цитированием
Старый 20.08.2013, 23:59   #5
VitalioCh
 
Регистрация: 17.08.2013
Сообщений: 5
По умолчанию

Возникла проблема со следующим, как сделать в sql запросе следующее Like "*xxx()*", в чем ошибка, заранее спасибо.
VitalioCh вне форума Ответить с цитированием
Старый 21.08.2013, 19:56   #6
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

WHERE АПРЕЛЬ.G442 Like ""*" & xxx() & "*"""
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 21.08.2013, 22:42   #7
VitalioCh
 
Регистрация: 17.08.2013
Сообщений: 5
По умолчанию

спасибо!!!!
VitalioCh вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Для public переменной класса присвоить адрес ячеек из внешней переменной _KUL Qt и кроссплатформенное программирование С/С++ 2 28.05.2012 12:04
sql запрос с переменной в mdb 3Dfx БД в Delphi 5 28.12.2011 20:20
Подстановка переменной в запрос Pellegrino SQL, базы данных 0 13.10.2011 21:04
Запрос к БД с меняющейся переменной Pamparam Общие вопросы C/C++ 14 12.11.2009 19:34
Работа с файлами (создание, удаление, открытие, связываение с переменной, очищение памяти переменной) Arkuz Общие вопросы Delphi 12 25.09.2007 20:47