Страница 1 из 1
ODBC драйвер
Добавлено: 01 Июнь 2015, 11:24
JonLarin
Здравствуйте. Имею OBDC драйвер Clarion очень старой версии. Пытаюсь подружить его с 1С. Нужно реализовать односторонний обмен.
Драйвер судя по отзывам неимоверно глючный. Да и на практике позволяет выполнить только полный запрос к данным. При наложение отборов в запросе вылетает с ошибкой. Судя по отзывам это у всех.
Так вот суть вопроса. Есть ли где ODBC драйвер по свежее? И например под x64 версию OS?
P.S.
Встречал на форуме, что вроде как на FTP есть, но в правилах форума упоминаний на тему получения доступа на FTP не нашел.
ODBC драйвер
Добавлено: 01 Июнь 2015, 13:28
Дед Пахом
ODBC к TPS (если о нём речь) как был глючным, так и остался. Я делал для 1С расширение (addin) через COM-интерфейсы, где-то тут на форуме есть подробности.
ODBC драйвер
Добавлено: 01 Июнь 2015, 14:03
seawolf
А мы просто выгружаем из clarion в dbf то что надо для 1С и потом уже 1С сам все жует (там его обучили люди знающие 1с).
ODBC драйвер
Добавлено: 01 Июнь 2015, 14:50
kreator
seawolf писал(а):А мы просто выгружаем из clarion в dbf то что надо для 1С и потом уже 1С сам все жует (там его обучили люди знающие 1с).
А мы выгружаем сразу в базу MS SQL, в спец. таблицу.
Знаю, что не всегда лицензия на 1С это позволяет, но у нас так.
ODBC драйвер
Добавлено: 02 Июнь 2015, 3:48
JonLarin
Лицензия 1С, на сколько я понимаю, направленна на защиту от кривых рук и последующих исков.
Тоже делаю через COM соединение. Конечно в DBF перегнать было бы удобнее, кроме случаев, когда данные надо получать оперативно.
Вдруг кому понадобится, я делал так:
Код: Выделить всё
Функция ПолучитьСемью()
//ОПИШЕМ ИСПОЛЬЗУЕМЫЕ ТИПЫ
ТипСтроки = Новый ОписаниеТипов("Строка",,,, Новый КвалификаторыСтроки(100));
ТипЧисла = Новый ОписаниеТипов("Число",,,Новый КвалификаторыЧисла(15));
ТипБулево = Новый ОписаниеТипов("Булево");
ТипДата = Новый ОписаниеТипов("Дата",,,,,Новый КвалификаторыДаты(ЧастиДаты.Дата));
//ОПИШЕМ ТАБЛИЦУ
Таблица = Новый ТаблицаЗначений;
Таблица.Колонки.Добавить("Tabn", ТипСтроки);
Таблица.Колонки.Добавить("Фамилия", ТипСтроки);
Таблица.Колонки.Добавить("Имя", ТипСтроки);
Таблица.Колонки.Добавить("Отчество", ТипСтроки);
Таблица.Колонки.Добавить("СтепеньРодства", ТипЧисла);
Таблица.Колонки.Добавить("ДатаРождения", ТипДата);
Таблица.Колонки.Добавить("ЯвляетсяИждивенцем", ТипЧисла);
Таблица.Колонки.Добавить("ЯвляетсяИнвалидом", ТипЧисла);
Таблица.Колонки.Добавить("ДатаНачалаИждивения", ТипДата);
Таблица.Колонки.Добавить("ДатаОкончанияИждивения", ТипДата);
Таблица.Колонки.Добавить("МестоУчебыРаботы", ТипСтроки);
Таблица.Колонки.Добавить("Телефон", ТипСтроки);
Таблица.Колонки.Добавить("Адрес", ТипСтроки);
Таблица.Колонки.Добавить("ID", ТипЧисла);
Conn = Новый COMОбъект ("ADODB.Connection");
Conn.Open("DRIVER=Topspeed ODBC Driver;DBQ=C:\Perenos\rods.tps\!;SERVER=NotTheServer;Extension=tps;datefield=Datar|Databizd|Dataeizd;");
RS = Новый COMОбъект ("ADODB.RecordSet");
RS.Open("SELECT * FROM UNNAMED", Conn); //UNNAMED для бд без субфайлов
Пока НЕ (RS.EOF) Цикл
СтрокаТЗ = Таблица.Добавить();
СтрокаТЗ.Tabn = RS.Fields(0).Value();
СтрокаТЗ.Фамилия = RS.Fields(1).Value();
СтрокаТЗ.Имя = RS.Fields(2).Value();
СтрокаТЗ.Отчество = RS.Fields(3).Value();
СтрокаТЗ.СтепеньРодства = RS.Fields(4).Value();
СтрокаТЗ.ДатаРождения = RS.Fields(5).Value();
СтрокаТЗ.ЯвляетсяИждивенцем = RS.Fields(6).Value();
СтрокаТЗ.ЯвляетсяИнвалидом = RS.Fields(7).Value();
СтрокаТЗ.ДатаНачалаИждивения = RS.Fields(8).Value();
СтрокаТЗ.ДатаОкончанияИждивения = RS.Fields(9).Value();
СтрокаТЗ.МестоУчебыРаботы = RS.Fields(10).Value();
СтрокаТЗ.Телефон = RS.Fields(11).Value();
СтрокаТЗ.Адрес = RS.Fields(12).Value();
СтрокаТЗ.ID = RS.Fields(13).Value();
RS.MoveNext();
КонецЦикла;
RS.Close();
Возврат Таблица;
КонецФункции
Сорри за форматирование, как то очень уж трудозатратно на форуме этим заниматься.
А потом таблицу в запрос и там уже по всё по Одинэсовски.
Ну а всё таки, есть ли ODBC под 64 битную систему?
ODBC драйвер
Добавлено: 02 Июнь 2015, 8:15
JonLarin
Выяснил, у меня вторая версия драйвера. Заделитесь кто нибудь версией посвежее!
ODBC драйвер
Добавлено: 02 Июнь 2015, 12:54
JonLarin
Драйвер версии 5.05 нашел. На x64 работает, но действительно такой же глючный.
Тему можно закрыть.