powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / 1C->MSSQL2000
4 сообщений из 4, страница 1 из 1
1C->MSSQL2000
    #35956419
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поделитесь плз, как вы работаете с данными из 1С в базе MSSQL2000... Как брать данные в MSSQL2000 из 1С?



Заранее благодарен.
...
Рейтинг: 0 / 0
1C->MSSQL2000
    #35956643
Фотография bot67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vah,

Я пользуюсь внешней компанентой 1с++ Тут
...
Рейтинг: 0 / 0
1C->MSSQL2000
    #35958371
testeron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если версия 7.7
тогда что-то вроде такого (вырвано из рабочего кода)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
hlcConnStr = "DRIVER={SQL Server};SERVER="+SQLServerIP+";uid="+SQLLogin+";pwd="+SQLPassword+";NETWORK=dbmssocn;App=1CUpdate;LANGUAGE=Russian;"+";ADDRESS="+SQLServerIP;
           
	cnn= СоздатьОбъект("ADODB.Connection");	
	cnn.ConnectionString = hlcConnStr;  
	Попытка
		cnn.Open();      
	Исключение		                                               		
		Предупреждение("Немає зв'язку з сервером " + НазваСервера+"!");
		Возврат;
	КонецПопытки;
   
	rst = СоздатьОбъект("ADODB.Recordset");
	
	d1 =  Формат(Дата1,"ДГГГГММДД");
	d2 =  Формат(Дата2,"ДГГГГММДД");
	        
	
	Попытка 		
		rst = cnn.Execute("exec ХранимаяПроцедура "+Строка(nkey)+",'"+d1+"','"+d2+"'");
	Исключение	
		cnn.Close();
		Предупреждение("Зачитка розхідних: "+ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	//перша таблиця
	Пока rst.EOF <> - 1  Цикл 	
	 	ТаблШапки.НоваяСтрока();                                               
	 	ТаблШапки.coden = rst.Fields("coden").Value;   
		ТаблШапки.daten = rst.Fields("daten").Value;   
		ТаблШапки.namep = rst.Fields("namep").Value;   
		ТаблШапки.sumall = rst.Fields("sumall").Value;	
		
	 	rst.MoveNext();
	КонецЦикла;

	//друга таблиця    
	rst = rst.NextRecordset;                            

	Пока rst.EOF <> - 1  Цикл
	 	
	 	ТаблНакладні.НоваяСтрока();                                               
	 	ТаблНакладні.codep = rst.Fields("codep").Value;   
	 	ТаблНакладні.coden = rst.Fields("coden").Value;   
	 	ТаблНакладні.codetvun = rst.Fields("codetvun").Value;   
	 	ТаблНакладні.nametv = rst.Fields("nametv").Value;   
	 	ТаблНакладні.kol = rst.Fields("kol").Value;   
	 	ТаблНакладні.cena_r = rst.Fields("cena_r").Value;   
	 	
	 	rst.MoveNext();
	КонецЦикла;
	
	rst.Close(); 
	cnn.Close();
...
Рейтинг: 0 / 0
1C->MSSQL2000
    #35958462
nicktcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
http://www.sql.ru/docs/mssql/adoandsql/index.shtml
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / 1C->MSSQL2000
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]