(UTC)
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема справочник (число прочтений - 2122 )
стас
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 5
Зарегистрирован: 24. Июля 2009
справочник
25. Июля 2009 :: 11:08
Печать  
Простейшая задача не могу понять в чем дело
из одной базы надо распечатать справочник из другой базы
  
Наверх
 
IP записан
 
kiruha
1c++ power user
Отсутствует



Сообщений: 1249
Зарегистрирован: 11. Апреля 2007
Re: справочник
Ответ #1 - 26. Июля 2009 :: 03:37
Печать  
ДБФ, SQL ?
  
Наверх
 
IP записан
 
Вадимко
God Member
*****
Отсутствует


Нам бы чего про ОдноЦэ...

Сообщений: 1048
Местоположение: Минск
Зарегистрирован: 24. Мая 2006
Пол: Мужской
Re: справочник
Ответ #2 - 26. Июля 2009 :: 20:11
Печать  
Может помочь поиск по слову ПрисоединитьИБ()
  
Кампутер, кофе и сигареты - это очень плохо для моего здоровья...
Наверх
wwwSkype/VoIP  
IP записан
 
стас
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 5
Зарегистрирован: 24. Июля 2009
Re: справочник
Ответ #3 - 27. Июля 2009 :: 09:03
Печать  
<база дбф
  
Наверх
 
IP записан
 
стас
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 5
Зарегистрирован: 24. Июля 2009
Re: справочник
Ответ #4 - 27. Июля 2009 :: 09:05
Печать  
не идет и все , 1 база со справочником, вторая ваще пустая, из2 надо распечатать справочник первой базы
  
Наверх
 
IP записан
 
стас
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 5
Зарегистрирован: 24. Июля 2009
Re: справочник
Ответ #5 - 27. Июля 2009 :: 09:19
Печать  
вот текст
Процедура Сформировать()
///Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
глОлеДБ = СоздатьОбъект("OLEDBData");
///Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
Соединение = "Provider=VFPOLEDB.1;Data Source=" +"D:\Оригинал\1с\ЦС_ДекАлко новая\" + ";Mode=ReadWrite;Collating Sequence=MACHINE";

Рез = глОлеДБ.Соединение(Соединение);
ОлеДБКоманда = глОлеДБ.СоздатьКоманду();
ПутьКБазе2= """D:\Оригинал\1с\ЦС_ДекАлко новая\""";// Указываем путь, в конце слэш не забываем

ТекстЗапроса = "
|SELECT
|  Спр.Descr as Номенклатура
|FROM База2.@Справочник.Номенклатура as Спр
|WHERE   Спр.IsFolder = 2";
глПарсерВторойБазы(ТекстЗапроса,"База2",ПутьКБазе2);

ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);


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

ругается
Рез = глОлеДБ.Соединение(Соединение);
класс не зарегистрирован
  
Наверх
 
IP записан
 
leov-001
Full Member
***
Отсутствует


1C++ rocks!

Сообщений: 150
Зарегистрирован: 05. Марта 2009
Re: справочник
Ответ #6 - 27. Июля 2009 :: 09:42
Печать  
Код
Выбрать все
DB = СоздатьОбъект("OLEDBData");
Содинние = "Provider=VFPOLEDB.1;
|Deleted=-1;
|Data Source=" + DBpath+ ";
|Mode=ReadWrite;Extended Properties="";
|User ID="";
|Password="";
|Mask Password=False;
|Collating Sequence=MACHINE;
|DSN=""";
//Рез=DB.Connect(Содинние);
Попытка
	DB.ПрисоединитьИБ(DBpath,Содинние);
	ЕстьКоннект = 1;
Исключение
	Сообщить("Не верно указан путь к базе данных или
	|База данный к которой производится подключение работает в МОНОПОЛЬНОМ РЕЖИЛЕ.");
	Возврат;
КонецПопытки;
RS = DB.СоздатьКоманду();


Код
Выбрать все
ТекстЗапроса = "
|SELECT
|  Спр.Descr as Номенклатура
|FROM $Справочник.Номенклатура as Спр
|WHERE   Спр.IsFolder = 2";

ТЗ = RS.ВыполнитьИнструкцию(ТекстЗапроса);
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: справочник
Ответ #7 - 27. Июля 2009 :: 10:01
Печать  
стас писал(а) 27. Июля 2009 :: 09:19:
ругается
Рез = глОлеДБ.Соединение(Соединение);
класс не зарегистрирован

Драйвер OLE DB установлен хоть?
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge