Получить результат выборки в VBA #711562

Всех приветствую! Необходимо вернуть результат запроса в переменную типа Object через COM (VBA): Set Запрос = v8.NewObject("Запрос") На последней строчке вылетает "Application-defined or object-defined error 1001". Что делаю не так? Спасибо!

[Что делаю не так? ] не то выбираешь в запросе

Причем здесь VBA? (На сколько мне известно эта аббревиатура расшифровывается как Visual Basic Application)

Подскажите нубу, пожалуйста, что тут может быть не так:    РаботникиОрганизацийСрезПоследних.Сотрудник КАК Сотрудник,    РаботникиОрганизацийСрезПоследних.ЗанимаемыхСтавок ИЗ  РегистрСведений.РаботникиОрганизаций.СрезПоследних(&ДатаАктуальности, ) КАК РаботникиОрганизацийСрезПоследних Что в запросе страшного?

а параметр где?

Туплю. Это ты из бейсика к 1С подключаешься. Как переменную v8 определяешь? Получается с её помощью хоть что то из базы дернуть?

И, кстати, посмотри какие данные можно передавать через COM-соединение. Сомневаюсь, что результат запроса, выборка или ТЗ пролезут. Но сам не пробовал.

Эм... А он тут нужен? :) Признаюсь честно, запрос этот подогнали, но он вроде как должен работать. - Как переменную v8 определяешь? Да обычно: Dim v8con As New V82.COMConnector Public Sub v8connect - Получается с её помощью хоть что то из базы дернуть? Ну да, банальный список наименований контрагентов через запрос получил...

Покажи запрос, коим "банальный список наименований контрагентов" получил

Set Запрос = v8.NewObject("Запрос")         Запрос.Текст = "ВЫБРАТЬ Наименование ИЗ Справочник.Контрагенты"

Ага. Наименование - это строка. А сотрудник - это ссылка.

а он у тебя есть в тексте

+ скобку после Перечисление.ПричиныИзмененияСостояния.Увольнение забыл

Скобку заметил, но ошибка та же...

Примени метод тыка Сначала: ВЫБРАТЬ    Сотрудник.Наименование КАК Сотрудник Далее прибавляй к запросу всё остальное. И попробуй этот запрос в самой базе выполнить. Может там измерение не сотрудник, а работник или регистр по другому называется

Измерение точно "Сотрудник" - проверял. Этот запрос выполняется, но Выбрать в VBA не срабатывает. Это нормально?

В общем, косяк из-за "(&ДатаАктуальности, )" похоже. Если это убрать, то изначальный запрос выполняется, но Выбрать все равно не срабатывает. Вероятно, так и должно быть...

если у тебя это работает        Запрос.Текст = "ВЫБРАТЬ Наименование ИЗ Справочник.Контрагенты" То всё срабатывает Как параметр устанавливаешь?

Пока никак :-) Пойду читать... Кстати, а как безобидно выполнить запрос в самой базе? Просто никогда этого не делал. Обязательно ли создавать свою форму, вешать на нее кнопку, на которую вешать запрос, а потом еще эту форму как-то вызывать...? Проще никак нельзя?

9 минут до часа не дотянул ;)

и открой для себя консоль запросов

Дурак я, согласен = Отличная вещь, спасибо! В общем, параметр выкинул, осталось вот так:         Set Запрос = v8.NewObject("Запрос") На последней строчке ругается. Если убрать "Выбрать", то все нормально... Но мне же надо выбрать результат запроса =/

а дай строку подключения

В консоли запросов последний запрос нормально срабатывает и выводит инфу.

Dim v8con As New V82.COMConnector Public Sub v8connect Set v8 = v8con.Connect("File=""C: est1c""; Usr =""..."";Pwd=""...""")

работает всё

А можно Ваш полный рабочий вариант увидеть?

а вот с передачей даты я не справился. не хочет оно признвавать чужие даты

+ то, что не влезло:     Запрос.Текст = "ВЫБРАТЬ Сотрудник.Наименование КАК Сотрудник ИЗ РегистрСведений.РаботникиОрганизаций.СрезПоследних ГДЕ ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)"

Ну сейчас сделаю один-в-один, за исключением того момента, что у меня 8.2

Нашел косяк в цикле Do While, хотя дебаггер явно показывал на более раннюю строчку. Благодарю! Осталось теперь разобраться с передачей параметров, а именно даты...

адов бейсик..     Запрос.Текст = "выбрать &ЧасЧ как Сотрудник"

Бесконечно благодарен!