Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / [игнор отключен] [закрыт для гостей] / 1C->MSSQL2000 / 4 сообщений из 4, страница 1 из 1
27.04.2009, 16:05
    #35956419
vah
vah
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C->MSSQL2000
Поделитесь плз, как вы работаете с данными из 1С в базе MSSQL2000... Как брать данные в MSSQL2000 из 1С?



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

Я пользуюсь внешней компанентой 1с++ Тут
...
Рейтинг: 0 / 0
28.04.2009, 13:53
    #35958371
testeron
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C->MSSQL2000
если версия 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
28.04.2009, 14:28
    #35958462
nicktcher
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C->MSSQL2000
http://www.sql.ru/docs/mssql/adoandsql/index.shtml
...
Рейтинг: 0 / 0
Форумы / [игнор отключен] [закрыт для гостей] / 1C->MSSQL2000 / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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