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


I Love YaBB 2!

Сообщений: 60
Зарегистрирован: 21. Мая 2006
Пол: Мужской
Как выполнить EXEC
23. Мая 2008 :: 11:47
Печать  
Есть SQL база не 1С. Как мне в ней выполнить хранимую проседуру то что на sql написано типа
Код
Выбрать все
exec ret = in_pos 'IN1'
  
Наш путь извилист, но перспективы светлые. Мао Цзедун
Наверх
ICQ  
IP записан
 
Nick
God Member
*****
Отсутствует



Сообщений: 1599
Местоположение: г.Новокузнецк
Зарегистрирован: 21. Февраля 2007
Пол: Мужской
Re: Как выполнить EXEC
Ответ #1 - 24. Мая 2008 :: 01:09
Печать  
Так и выполняй
  
Наверх
ICQ  
IP записан
 
pvase
God Member
*****
Отсутствует



Сообщений: 923
Местоположение: Киев
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Как выполнить EXEC
Ответ #2 - 26. Мая 2008 :: 16:50
Печать  
Типа так:

Код
Выбрать все
exec @ret = ИмяБазы..in_pos 'IN1'
  
Наверх
wwwSkype/VoIPICQ  
IP записан
 
Mashinist
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 60
Зарегистрирован: 21. Мая 2006
Пол: Мужской
Re: Как выполнить EXEC
Ответ #3 - 28. Мая 2008 :: 06:25
Печать  
pvase писал(а) 26. Мая 2008 :: 16:50:
Типа так:

Код
Выбрать все
exec @ret = ИмяБазы..in_pos 'IN1'


я наверное не правильно сформулировал вопрос.
мне это нужно выполнить на 1С 7.7
т.е. нужен код на языке 1С (видимо нужно использовать 1С++)...
сорри за ламерство
  
Наш путь извилист, но перспективы светлые. Мао Цзедун
Наверх
ICQ  
IP записан
 
Nick
God Member
*****
Отсутствует



Сообщений: 1599
Местоположение: г.Новокузнецк
Зарегистрирован: 21. Февраля 2007
Пол: Мужской
Re: Как выполнить EXEC
Ответ #4 - 28. Мая 2008 :: 06:32
Печать  
Код
Выбрать все
БД = СоздатьОбъект("ODBCDataBase");
БД.Соединение(сСоединения);
RS = СоздатьОбъект("ODBCRecordSet");
RS.УстБД(БД);
RS.Выполнить(Здесь твой код на SQL);
  
Наверх
ICQ  
IP записан
 
pvase
God Member
*****
Отсутствует



Сообщений: 923
Местоположение: Киев
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Как выполнить EXEC
Ответ #5 - 28. Мая 2008 :: 06:33
Печать  
Улыбка
Примерно так:
Код
Выбрать все
	глПодключениеSQL = 0;
	Если ЗагрузитьВнешнююКомпоненту("1CPP.dll") = 0 Тогда
		Сообщить("Не найдена внешняя компонента 1С++","!!!");
	Иначе
		глMDW = СоздатьОбъект("MetaDataWork");
		глODBC = СоздатьОбъект("ODBCRecordSet");


		Попытка
			ТЗ = СоздатьОбъект("ТаблицаЗначений");
			ТЗ = глODBC.ВыполнитьИнструкцию("SELECT @@VERSION AS VER");
			глПодключениеSQL = 1;
		Исключение
		КонецПопытки;

	КонецЕсли;

	Если глПодключениеSQL = 1 Тогда
		ТЗ = СоздатьОбъект("ТаблицаЗначений");
		ТЗ = глODBC.ВыполнитьИнструкцию("exec ИмяБазы..in_pos 'IN1' ");
	КонецЕсли;
  
Наверх
wwwSkype/VoIPICQ  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge