1C - [83] :: Прикладное программирование :: Компьютерный форум Ru.Board

gralvi
не смотрел, сейчас скачаю, не заметил письма
(напомни в пм в чем проблема была - а то я не вспомнил)
вернее почти помню
нужна инфа насколько разные конфы для загрузки и выгрузки вернее все реквизиты справочника который не идет
Buch
образчик к ораклу
тебе надо свою строку соединения

Цитата:

////////////////////////////////////////////////////////////////////////////////////////////////
Перем ConnectionString_ORACLE;
//*******************************************
Процедура Сформировать()
ConnectionString_ORACLE = "driver={Microsoft ODBC for Oracle};server="+СокрЛП(ORA_SERVER)+";uid="+СокрЛП(ORA_USER)+";pwd="+СокрЛП(ORA_PASS)+";";
Сообщить("ConnectionString_ORACLE|"+ConnectionString_ORACLE+"|");

ADOConnection = СоздатьОбъект("ADODB.Connection");
ADOConnection.connectionstring = ConnectionString_ORACLE;
Попытка
ADOConnection.Open();
Исключение
Сообщить("Не могу подключиться к "+ORA_SERVER);
Возврат;
КонецПопытки;

ADORecordset = СоздатьОбъект("ADODB.Recordset");
ADOCommand = СоздатьОбъект("ADODB.Command");
ADOCommand.ActiveConnection = ADOConnection;

COMMAND= "SELECT TO_CHAR(RN),COMPANY,PERIOD_BEGIN,PERIOD_END,CLOSE_SIGN,PERIOD_NAME FROM v_aperiods WHERE company =999999999 ORDER BY period_begin ASC";

ADORecordset = ADOConnection.Execute(COMMAND);

Если ADORecordset.eof()=0 Тогда

Пока ADORecordset.eof()=0 Цикл
Попытка
PERIOD_BG = Строка(Дата(ADORecordset.fields(2).value));
Исключение
Сообщить("Апшипка вышла 1");
КонецПопытки;
Попытка
PERIOD_END_value = Строка(Дата(ADORecordset.fields(2).value));
PERIOD_END_name = Строка(Дата(ADORecordset.fields(2).name));
PERIOD_END_type = Строка(Дата(ADORecordset.fields(2).type));
PERIOD_END_Attributes = Строка(Дата(ADORecordset.fields(2).Attributes));

Исключение
Сообщить("Апшипка вышла 2");
КонецПопытки;
Попытка
ПризнакЗакрытияПериода = Число(СокрЛП(ADORecordset.fields(4).type));

Период=?(ПризнакЗакрытияПериода=1,"Закрыт","Открыт");
Исключение
Сообщить("Апшипка вышла 3");
КонецПопытки;
Попытка
Описаловопериода = СокрЛП(Строка(ADORecordset.fields(5).value));
Исключение
Сообщить("Апшипка вышла 4");
КонецПопытки;

Сообщить("| "+PERIOD_END_value+" | "+PERIOD_END_name+" | "+PERIOD_END_type+" | "+PERIOD_END_Attributes);

ADORecordset.MoveNext();

КонецЦикла;

Иначе
Сообщить("Запрос вернул пустое значение!");
КонецЕсли;
ADORecordset.Close();
ADOConnection.Close();
КонецПроцедуры
ORA_SERVER="XXXXXX"; //-имя сервера
ORA_USER="XXXX" ; //-имя пользователя
ORA_PASS="XXXXX"; // пароль

Модерирует : ShIvADeSt
batva (07-06-2005 18:42): Продолжение..	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100