Как на прямую из Галактики выгрузить, я незнаю.
А если через Delphi, то проще, будет так:
1. Выгружаем из Галактики DBF.
2. Открываем в Delphi DBF с 866 кодовой стр., а результирующий DBF с Win1251 кодовой стр.. и пихаем в него, что надо.
а еще проще через ODBC выбрать набор данных непосредственно из базы.
Доступ к БД из Delphi
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 474
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Сибирь-матушка
- Контактная информация:
Re: Доступ к БД из Delphi
Nick, есть функции перекодировки - oem2ansi в Атлантисе ...
Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
Re: Доступ к БД из Delphi
если уж так необходимо используй функцию
fucntion ShortStrToWin(sDOS: String): String;
правда не пробовал с наименованиями полей
fucntion ShortStrToWin(sDOS: String): String;
правда не пробовал с наименованиями полей
Жду выхода Вселенная 2.12!
Re: Доступ к БД из Delphi
Все решил.
Единственное осталось - как можно теперь сделать так, чтобы SQL запихать в ARD и пользователь его мог вызывать из Галактики для выгрузки?
У меня чего-то е выходит
Запрос получился такой:
Select
plpor.datvip, plpor.datob, plpor.nodok, plpor.sumplat,
bank_plt.name, bank_pol.mfo1,
org_plt.name, org_plt.unn, bank_plt.schet1,
org_pol.name, org_pol.unn, bank_pol.schet1
From
plpor,
synonym katorg org_plt,
synonym katorg org_pol,
synonym katbank bank_plt,
synonym katbank bank_pol
where
(( date(01, 01, 2004) <<= plpor.datvip
and date(01, 01, 2005) >>= plpor.datvip
and plpor.cplat /== org_plt.nrec
and plpor.cpol /== org_pol.nrec
and plpor.cbankplat /== bank_plt.nrec
and plpor.cbankpol /== bank_pol.nrec
)) to txt d:\NickDos.txt;
А если прямо так и пихать, то он его так и выводит
Единственное осталось - как можно теперь сделать так, чтобы SQL запихать в ARD и пользователь его мог вызывать из Галактики для выгрузки?
У меня чего-то е выходит
Запрос получился такой:
Select
plpor.datvip, plpor.datob, plpor.nodok, plpor.sumplat,
bank_plt.name, bank_pol.mfo1,
org_plt.name, org_plt.unn, bank_plt.schet1,
org_pol.name, org_pol.unn, bank_pol.schet1
From
plpor,
synonym katorg org_plt,
synonym katorg org_pol,
synonym katbank bank_plt,
synonym katbank bank_pol
where
(( date(01, 01, 2004) <<= plpor.datvip
and date(01, 01, 2005) >>= plpor.datvip
and plpor.cplat /== org_plt.nrec
and plpor.cpol /== org_pol.nrec
and plpor.cbankplat /== bank_plt.nrec
and plpor.cbankpol /== bank_pol.nrec
)) to txt d:\NickDos.txt;
А если прямо так и пихать, то он его так и выводит
Re: Доступ к БД из Delphi
1. В состав pervаsiva входят ActivX компоненты
для этого дела
2. Есть такая чтука PDAC
3. Есть драйвер dbExpress (но он через ODBC)
инф о 1,2,3 см. на сайте pervasiva в доках и Developer Zone
Удачи в борьбе с Pervasive
;D
для этого дела
2. Есть такая чтука PDAC
3. Есть драйвер dbExpress (но он через ODBC)
инф о 1,2,3 см. на сайте pervasiva в доках и Developer Zone
Удачи в борьбе с Pervasive
;D