Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Доступ к данным 1С из под VB (число прочтений - 2897 )
Shurik
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 3
Зарегистрирован: 14. Апреля 2008
Доступ к данным 1С из под VB
14. Апреля 2008 :: 18:42
Печать  
Кто-нибудь знает ссылку на мануал, как подключиться к БД 1С из под Visual Basic?

нужно чтобы выловить частичные данные из 1С и использовать их в другом приложении
Хотя бы в режиме ReadOnly...

где вообще такие темы обсуждаются?
  
Наверх
 
IP записан
 
trdm
1c++ power user
qt1l developer
1c++ moderator
Отсутствует



Сообщений: 2343
Местоположение: г. Ростов-на-Дону
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Доступ к данным 1С из под VB
Ответ #1 - 14. Апреля 2008 :: 19:08
Печать  
По оле попробуй.
  
Наверх
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Доступ к данным 1С из под VB
Ответ #2 - 14. Апреля 2008 :: 19:35
Печать  
Зачем оле?
Делаешь полноценный запрос в 1CQA, потом, например, выводишь Отладкой текст запроса и вперед. Дальше как обычно в ADO.
  
Наверх
 
IP записан
 
Shurik
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 3
Зарегистрирован: 14. Апреля 2008
Re: Доступ к данным 1С из под VB
Ответ #3 - 14. Апреля 2008 :: 19:56
Печать  
а можно поподробнее?
что это значит?
или ссылку, где подробно расписано?
Весь вечер рылся, но адекватного ответа не нашел (((

Это делается через так называемые "Внешние компоненты?"

Я думал просто сделать соединение к серверу с доступом "ReadOnly" и сделать несколько интересующих запросов...
  
Наверх
 
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Доступ к данным 1С из под VB
Ответ #4 - 14. Апреля 2008 :: 21:45
Печать  
Код для vbs
Код
Выбрать все
Set Connection = CreateObject("ADODB.Connection")
Connection.ConnectionString= "Driver={SQL Server};Server=192.168.0.1;Database=YourDB;Uid=sa;"
Connection.Open()

Set RS = CreateObject("ADODB.RecordSet")
RS.ActiveConnection = Connection

Query = "SELECT COUNT(*) AS SEQ FROM [YourDB].[dbo]._1SJOURN AS Журн (NOLOCK) "
RS.Open(Query)
Wscript.echo "Епть, у меня в журнале " & RS.Fields("SEQ").Value & " записей"
RS.Close
 

  
Наверх
 
IP записан
 
novichek
Экс-Участник


Re: Доступ к данным 1С из под VB
Ответ #5 - 15. Апреля 2008 :: 03:41
Печать  
Arta: Улыбнуло Улыбка
  
Наверх
 
IP записан
 
villy
Senior Member
****
Отсутствует



Сообщений: 287
Зарегистрирован: 24. Мая 2006
Пол: Мужской
Re: Доступ к данным 1С из под VB
Ответ #6 - 15. Апреля 2008 :: 21:53
Печать  
Цитата:
Arta: Улыбнуло Улыбка

+1
  
Наверх
IP записан
 
Shurik
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 3
Зарегистрирован: 14. Апреля 2008
Re: Доступ к данным 1С из под VB
Ответ #7 - 18. Апреля 2008 :: 18:44
Печать  
спасибо, попробую))
  
Наверх
 
IP записан
 
kiruha
1c++ power user
Отсутствует



Сообщений: 1249
Зарегистрирован: 11. Апреля 2007
Re: Доступ к данным 1С из под VB
Ответ #8 - 18. Апреля 2008 :: 22:25
Печать  
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать