gifts2017

Импорт справочников из InterBase/FireBird для 1С "Предприятие" 7.7

Опубликовал Владимир Фромиллер (rechvladmir) в раздел Обработки - Обработка справочников

Импорт справочников из InterBase/FireBird для 1С "Предприятие" 7.7.
Обработка не моя. Я ее только немного переработал для FireBird
Аналог и (возможно автор) в "Из InterBase в 1С 8.0 (импорт данных)"

Аналог и (возможно автор) в "Из InterBase в 1С 8.0 (импорт данных)"

Для восьмерки опубликовали, а для семерки нет - несправедливо! :-)

Сам я добавил работу с FireBird.  (Выложил для форума)

Для работы нужно поставить ODBC для нужной базы...

Скачать файлы

Наименование Файл Версия Размер
ImportFireBird 221
.ert 15,00Kb
14.09.14
221
.ert 15,00Kb Бесплатно

См. также

Подписаться Добавить вознаграждение
Комментарии
1. GSoft. (GSoft) 26.11.09 16:40
плюс ставлю авансом, сейчас не посмотреть, но пару лет назад была такая задача, тогда бы пригодилась на все 100%
2. Сергей (spectator) 03.12.09 17:22
3. Юрий Филатов (phill75) 03.12.09 19:07
еще бы драйвер ODBC для InterBase
4. Dmitry The Wing (wing) 10.12.09 05:47
(0) ГДБ=СоздатьОбъект("ADODB.Connection");
Неудачная попытка создания объекта (ADODB.Connection) - что нужно, чтобы это работало?

я к FireBird обращаюсь так (функция класса FireBird):
Функция Открыть() Экспорт
	Закрыть();
	БД = СоздатьОбъект("OLEDBData");
	Соединение = "DRIVER=Firebird/InterBase® driver; DBNAME=" + Сервер + ":" + ИмяБД + "; UID=" + ПользовательБД + "; PWD=" + Пароль + ";";
	Попытка
		БД.Соединение(Соединение);
		Команда = БД.СоздатьКоманду();
		Команда.Отладка(Отладка);
		ОткрытаБД = 1;
	Исключение
		ОткрытаБД = 0;
		Модуль = СоздатьОбъект("ВыполняемыйМодуль");
		ТекстОшибки = "Ошибка соединения с FireBird БД " + ИмяБД + ": " + ОписаниеОшибки();
		//#exinfo
		Модуль.ВыброситьИскл(, ТекстОшибки);
	КонецПопытки;
	Возврат ОткрытаБД;
КонецФункции // Открыть
...Показать Скрыть
5. Алексей Алексеев (Aleksey_3) 07.03.10 21:22
Что то не взлетело с первого раза.

Баг1
При Открытии пишет
КонецЕсли<<?>>
{D:\IMPORTFIREBIRD.ERT(156)}: Пропущен символ ';'

Баг2
Непонятный косяк с радиокнопкой ВыбранаБаза.
ПриОткрытии она не проставляется, при изменении не вызывается процедура ПриВыбореБазы, только если выбор через Enter. При этом значение
ВыбранаБаза равно -1 (минус 1 ?) и 0

Лечиться проставлением галкой первый в группе

Баг3
Не меняется заголовок текста Импорт справочников из ...

Лечиться
Дописать в конце процедуры ПриВыбореБазы
Форма.Заголовок.Заголовок(Заголовок);


Фича1
Предупреждение("Невозможно установить соединение с базой данных!");
Вряд ли можно назвать информативным, желательно добавить

Сообщить(""+ОписаниеОшибки());
6. Николай (knigula) 13.12.11 20:18
Спасибо. Показательно, как пример работы с Firebird.
Но не работает с blob полями. Хотелось бы и это увидеть.