Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 06:35

Вопрос по com запросу

Автор freud, 19 июл 2015, 10:51

0 Пользователей и 1 гость просматривают эту тему.

freud


Процедура Константы1Нажатие(Элемент)
//cntr = Новый COMОбъект("V83.COMConnector");



//V8 = cntr.Connect("File = ""C:/1C/Бух_2012""; Usr = ""Администратор""; Pwd = ""06"" ");

Соединение = Новый COMОбъект("V83.COMConnector");
    СтрокаСоединения ="File=""C:/1C/Бух_2012"";Usr=""Администратор"";Pwd=""06"";"; 
   
    Попытка 
        Подключение = Соединение.Connect(СтрокаСоединения); 
Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "удалось подключиться к базе" ;
        Сообщение.Сообщить();   
    Исключение
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось подключиться к базе" + ОписаниеОшибки();
        Сообщение.Сообщить();           
    КонецПопытки;
//Запрос = Подключение.NewObject("Запрос");

Запрос = Подключение.NewObject("Query");


Запрос.Текст = "ВЫБРАТЬ
| НачислениеЗаУслугиСтудентамНачисления.Студент,
| НачислениеЗаУслугиСтудентамНачисления.ДнейПосещения КАК ДнейПосещения,
| НачислениеЗаУслугиСтудентамНачисления.Сумма,
| НачислениеЗаУслугиСтудентам.НаправлениеДеятельности,
| НачислениеЗаУслугиСтудентам.Дата
| ИЗ
| Документ.НачислениеЗаУслугиСтудентам.Начисления КАК НачислениеЗаУслугиСтудентамНачисления
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.НачислениеЗаУслугиСтудентам КАК НачислениеЗаУслугиСтудентам
| ПО НачислениеЗаУслугиСтудентамНачисления.Ссылка = НачислениеЗаУслугиСтудентам.Ссылка
| ГДЕ
| НачислениеЗаУслугиСтудентам.Проведен = Истина
| И НачислениеЗаУслугиСтудентам.Дата > ДАТАВРЕМЯ(2014, 09, 01)
| И НачислениеЗаУслугиСтудентам.НаправлениеДеятельности.Код = ""000001""
|
| УПОРЯДОЧИТЬ ПО
| ДнейПосещения,
| НачислениеЗаУслугиСтудентамНачисления.Студент.Наименование";


РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = ВыборкаДетальныеЗаписи.Студент ;
        Сообщение.Сообщить(); 
КонецЦикла;

//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА






КонецПроцедуры

что тут не так

дфтын

Буквы те, а что вам не нравится? где ошибка? Чего хотели и чего не получилось?

freud

Цитата: дфтын от 19 июл 2015, 12:22
Буквы те, а что вам не нравится? где ошибка? Чего хотели и чего не получилось?

хочу через com запрос и прокрутить его, запрос не пустой но нечего не происходит

дфтын

Если бы запрос был не пустой, оно бы крутилось. Запустите запрос в консоле запросов, посмотрите.
Да. Конечно условия лучше писать через Установитьпараметр, но так вроде никаких недозволенностей в запросе с первого взгляда не видно. Консоль запросов - вам в помощь

freud

Цитата: дфтын от 19 июл 2015, 13:12
Если бы запрос был не пустой, оно бы крутилось. Запустите запрос в консоле запросов, посмотрите.
Да. Конечно условия лучше писать через Установитьпараметр, но так вроде никаких недозволенностей в запросе с первого взгляда не видно. Консоль запросов - вам в помощь
запрос не пустой проверял в консоле запросов

дфтын

Ну поставьте точку останова, оно в цикл не входит?

Теги:

Похожие темы (3)

Рейтинг@Mail.ru

Поиск