bdd2

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

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

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

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

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

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

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

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

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

См. также

Добавить вознаграждение
Комментарии
1. GSoft. (GSoft) 2688 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) 19 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) 3 13.12.11 20:18 Сейчас в теме
Спасибо. Показательно, как пример работы с Firebird.
Но не работает с blob полями. Хотелось бы и это увидеть.