Здравствуйте.
MS Access 2007. Windows 7 x64. Разделённая база данных *.accdb.
Делаю запрос к серверу (таблица прилинкована, строка подключения прописана) таким образом:
SELECT *
FROM watermeters
WHERE watermeter_id = "264879";

Всё работает, всё нормально, запрос обрабатывается очень шустро (доли секунды).

Делаю ещё один запрос из локальной таблицы:
SELECT watermeter_id
FROM q_PrimerOVK;

Возвращает значение 264879.

Подставляю запрос к локальной таблице в запрос к серверу:
SELECT *
FROM watermeters
WHERE watermeter_id IN (SELECT watermeter_id FROM q_PrimerOVK);

Получаю ошибку. Что я делаю не так? Нужно делать запрос к серверу на основании полученного значения из запроса к локальной таблице.
Принтскрины приложены ниже.

[img=C:\Users\Валерий\Desktop\Запрос к серверу\2]

bubucha,

И это каждый раз подставлять вручную?
Можно ли автоматизировать процесс?

MrShinМожно на сервере создать табличку для ключей и вставлять их туда перед выполенением основного запроса, а внем обращаться уже к серверной таблице.

Сервер чужой. Они на это не пойдут. Так что не вариант.

Валерий Зиминbubucha,
И это каждый раз подставлять вручную?
Можно ли автоматизировать процесс?
vba решает такие вопросы[/quot]

Кодом не угостите?))

Сделал вот так, но не работает.
Можете поправить?

Private Sub q_OVK()
Dim oMyDb As Database
Dim oMyQuery As QueryDef
Dim x As String
x = DLookup("watermeter_id", "q_PrimerOVK")
Set oMyDb = CurrentDb
Set oMyQuery = oMyDb.CreateQueryDef("q_OVK", "SELECT * FROM watermeters WHERE watermeter_id = x;")
End Sub

Спасибо за подсказки, но снова затык:
Суть такая - на форме выбираю дом и квартиру. По адресу получаю уникальный код дома и присваиваю его к переменной per_x. Всё это подставляется в запрос к серверу к таблице personal_accounts. Из этого запроса получаю id и присваиваю его к переменной per_y. При этом через Debug.Print получаю значение этой переменной. После этого подставляю это значение в следующий запрос и... затык. При чём, если поставить полученное значение переменной per_y руками - всё работает - запрос возвращает одно значение. Как быть?

При чём при просмотре таблицы watermeters в режиме конструктора поле personal_account_id - тип данных "числовой", размер поля "длинное целое".
Менял тип переменной per_y на String, Variant, Long - не помогло. Так же устанавливал значение per_y = rst!Id и через CLng(rst!Id) - тоже ничего не изменилось.

ПанургВалерий ЗиминСпасибо за подсказки, но снова затык:
Суть такая - на форме выбираю дом и квартиру. По адресу получаю уникальный код дома и присваиваю его к переменной per_x. Всё это подставляется в запрос к серверу к таблице personal_accounts. Из этого запроса получаю id и присваиваю его к переменной per_y. При этом через Debug.Print получаю значение этой переменной. После этого подставляю это значение в следующий запрос и... затык. При чём, если поставить полученное значение переменной per_y руками - всё работает - запрос возвращает одно значение. Как быть?Для начала перестать постить полотна или хотя бы закатывать их в спойлер.
Затем прочитать и понять - http://www.sql.ru/faq/faq_topic.aspx?fid=410

На счёт картинок дико извиняюсь - пробовал. Прочитал фак, там сказано, что
Вставить изображение в сообщение можно двумя способами:
1. Приложить к сообщению картинку в фомате JPG, PNG или GIF.
2. Использовать тег IMG для гиперссылки на файл.

Думаю от такого спойлера толку мало:


Я не отрицаю свою руконеплечесть, но и тут тоже затык))

а так?Set rst = oMyDb.OpenRecordset("SELECT id FROM personal_accounts WHERE (houseguid =""" & per_x & """

Зачем столько кавычек, если per_x числовое?

Как раз-таки тут без кавычек не работает, а вот в rst2 убрал лишние кавычки, написал вот так:




И всё заработало!

Ещё одна вещь: если в таком запросе возвращается не одна строка, а две?
Пробовал добавить .fields(0) - опять эррор.

Всем здравствуйте! Опять прошу помощи:
Вопрос по той же БД. Цель: получить таблицу, в которой будут объединена информация из двух БД (локальной и MySQL).
Я написал модуль, который ищет из удалённой таблицы MySQL нужные сведения, на основании данных, содержащихся в локальной БД. Говоря прямо, в моей БД хранятся показания счётчиков холодной и горячей воды. Идентификация проходит следующим образом:
Адрес дома, номер квартиры, ИД прибора учёта, показания, дата снятия показания.

Надо привести эту информацию к виду:

ИД лицевого счёта водоканала, номер прибора учёта, показания, дата снятия показания.

При помощи модуля у меня находится информация из базы данных водоканала, с параметрами, указанными из формы локальной БД.
То есть я в форме выбираю адрес дома и номер квартиры, на основе этого модуль ищет лицевой счёт этой квартиры в БД водоканала, ищет ИД лицевого счёта, из другой таблицы находит номер прибора учёта и возвращает эти данные.

В идеале, было бы здорово, если бы из формы данные отправлялись в БД водоканала, но это сложно, я вряд ли смогу это сделать (у Водоканала БД MySQL, внесение информация происходит при помощи процедуры).
Есть вариант экспортировать информацию в отдельную таблицу.
Я бы хотел сделать это в два этапа: сначала собираю информацию с данными из локальной БД. Потом, с помощью цикла, сформировать новую таблицу, в которую должны подтянуться данные из БД водоканала (те самые ИД лицевого счёта и номер прибора учёта) и моей (локальной) БД.
На счёт второго варианта: я не знаю как в VBA формировать новую таблицу, осуществлять поиск записи из других таблиц и делать подстановку значений, на основании имеющихся данных.
Алгоритм такой:
1) Создать таблицу
2) Посмотреть первую запись из таблицы показаний
3) На основании адреса и квартиры, найти из внешней БД MySQL ид аккаунта и номер прибора учёта
4) Присвоить эти значения просматриваемой записи
5) Перейти к следующей записи
6) Повторить п. 3-5. (до последней записи)

Как это реализовать в VBA я не знаю(( Может кто-нибудь подсказать?