Имя: Пароль:
1C
1С v8
Не могу подключиться к 81 из 77... вроде все верно написано!
0 Stagor
 
06.09.11
15:00
V81 = CreateObject("V81.Application");
   Попытка

       База = V81.Connect("File=C:\Developer;Usr=Иванов");
   Исключение
       Сообщить("База не открыта!!!");
       Возврат;
   КонецПопытки;


в итоге
База = -1
1 ЧеловекДуши
 
06.09.11
15:04
А где пароль?
2 ЧеловекДуши
 
06.09.11
15:05
Оле зло, лучше используй промежуточные файлы, так устойчивей все работает.
3 Stagor
 
06.09.11
15:05
Пароля нет
4 Stagor
 
06.09.11
15:05
(2) Заказчик хочет "прямо из базы"
5 Kreont
 
06.09.11
15:06
(0) V81=СоздатьОбъект("V81.COMConnector");
6 GreyAngel
 
06.09.11
15:10
По моему все же Usr='Иванов'.
7 Stagor
 
06.09.11
15:12
(5) Сработало
8 Stagor
 
06.09.11
15:16
только прочитать документы из 8-ки не могу
9 Kreont
 
06.09.11
15:24
Запросом пример:
Запрос = База.NewObject("Запрос");
Запрос.Текст="ВЫБРАТЬ
|ПоступлениеТоваровУслугТовары.Ссылка КАК Док
|ПоступлениеТоваровУслугТовары.Ссылка.СуммаДокумента КАК Сумма,
|ИЗ
|Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
|ГДЕ
|ПоступлениеТоваровУслугТовары.Ссылка.Дата МЕЖДУ &Дата1 И &Дата2";
       
Запрос.УстановитьПараметр("Дата1",НачДата);
Запрос.УстановитьПараметр("Дата2",КонДата+1);

Выборка = Запрос.Выполнить().Выбрать();
       
Пока Выборка.Следующий()=-1 Цикл

// Ну тут даже так можно:
НомерДок        = СокрЛП(Выборка.Док.Номер);
ДатаДок        = Дата(Выборка.Док.Дата);
КодКлієнта    = СокрЛП(Выборка.Док.Контрагент.Код);
ЗагальнаСума    = Число(Выборка.Сумма);
и т.д.

КонецЦикла;
10 ptiz
 
06.09.11
15:24
и так можно

База = CreateObject("V81.Application");
   Попытка

       База.Connect("File=C:\Developer;Usr=Иванов");
   Исключение
       Сообщить("База не открыта!!!");
       Возврат;
   КонецПопытки;
11 Kreont
 
06.09.11
15:26
(10) Только по времени запуска будет намного дольше работать )
12 Stagor
 
06.09.11
15:28
Спасибо! Не знал, что Истина в 81 это -1 в 77 :)