Отправлено: 13.10.15 16:55. Заголовок: xHarbour и SyBase

Добрый день, давно не был у нас на форуме.
Поставлена задача: выбрать данные из нескольких таблиц Sybase и записать их в DBF файлы. Есть исходный текст макроса на Excel, который выбирает данные, но поменялась структура таблиц, их наименование и взаимосвязи между ними...
Описание полей и таблиц Sybase есть.
Хотелось бы создать модуль в программе на xHarobour и выбирать из таблиц Sybase данные...

С чего начать и Как это сделать ?
Спасибо.

 Отправлено: 13.10.15 18:14. Заголовок: Oskar_AAA пишет: вы..

Oskar_AAA пишет:

цитата:

выбрать данные из нескольких таблиц Sybase

Что это за формат баз ?

 Отправлено: 13.10.15 18:35. Заголовок: Формат таблиц - не з..

Формат таблиц - не знаю...
Фрагмент макроса Excel
Sub LoadFL()

Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim realst As Recordset
Dim restst As Recordset

sql_odbc = Info.[D2].Value ' Источник ODBC
sql_user = Info.[D3].Value ' Пользователь БД
sql_pswd = Info.[D4].Value ' Пароль пользователя БД
wb_StartSh = Info.[D6].Value ' Смена начала
'wb_EndSh = Info.[D7].Value ' Смена окончания

Real1 = " SELECT " & _
" azsno, " & _
" shiftid, " & _
" (select timepoint from shiftslog where shiftslog.shiftid=shiftrep2.shiftid and shiftslog.azsno=shiftrep2.azsno and state=1), " & _

 Отправлено: 13.10.15 18:43. Заголовок: Oskar_AAA пишет: Ис..

Oskar_AAA пишет:

цитата:

Источник ODBC

Можно подключиться через ODBC .
Я к сожалению с этим механизмом мало работал , можно посмотреть примеры в харбуре ( там есть на примере MSSQL ).
Ну или подскажет кто

 Отправлено: 13.10.15 22:00. Заголовок: Haz пишет: Фрагмент..

Haz пишет:

цитата:

Фрагмент макроса Exce

Если коротко, то для решения задачи нужно

1. Правильный ConnectString для Sybase .
по примеру этого для MSSQL

 
    oConnection:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ; 
                              "server=" + cServer + ; 
                              ";database=" + cDataBase + ; 
                              ";uid=" + cUserName + ; 
                              ";pwd=" + cPassword ) 
     
   oConnection:Execute( "SELECT * FROM " + cTableName ) 
  
   

2. Правильный SQL запрс ( нужно знать таблицы и поля ) . К примеру SELECT выше

3. Перебрать в цикле весь набор данных ( RecordSet ) типо как тут ( пример был для других целей ))

 
    for l := 1 to len(oConnection:aRecordSet) 
       for c := 1 to len(oConnection:aRecordSet[l]) 
                   do case 
                      case valtype(oConnection:aRecordSet[l][c]) == "C" 
                         c_TmpContent  := alltrim(oConnection:aRecordSet[l][c]) 
                      case valtype(oConnection:aRecordSet[l][c]) == "N"                      
                         c_TmpContent  := alltrim(str(oConnection:aRecordSet[l][c])) 
                      case valtype(oConnection:aRecordSet[l][c]) == "D"                      
                         c_TmpContent  := alltrim(DtoC(oConnection:aRecordSet[l][c])) 
                      case valtype(oConexion:aRecordSet[l][c]) == "L"                      
                         c_TmpContent  := alltrim(oConnection:aRecordSet[l][c]) 
                   end case 
                   ТУТ ПИШЕМ В DBF 
       next 
    next 
    

PS Главное это oConnection получить и раз таблицы и поля есть - то остальное просто ))

 Отправлено: 14.10.15 15:43. Заголовок: HAZ Спасибо, какие б..

HAZ
Спасибо, какие библиотеки, Include итд надо подключить.

 Отправлено: 14.10.15 16:00. Заголовок: Oskar_AAA пишет: к..

Oskar_AAA пишет:

цитата:

какие библиотеки, Include итд надо подключить

кажется ADO хватит

 
 #include "rddsys.ch" 
 #include "adordd.ch" 
 

и библиотеки

 
 adordd   
 hbusrrdd 
 

PS connectstring должен где-то в EXCEL макросах прписан. явно или неявно , но быть должен

 Отправлено: 14.10.15 18:20. Заголовок: Haz у меня нет библи..

Haz
у меня нет библиотек ADORDD.Lib, HBUSRRDD.Lib

RDDSYS.Ch, ADORDD.Ch есть

Использую xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6476)

 Отправлено: 14.10.15 21:10. Заголовок: Это библиотеки Harbo..

Это библиотеки Harbour , уверен в xHarbour есть какие-то аналоги.
Подсказать не могу т.к. работаю только с Harbour.

Точнее бивлиотеки обнаружил в поставке MiniGui Чисто в Harbour есть SDDODBC ( возможно он же в xHarbour )
пример с драйвером MySQL оттуда

 
 #require "rddsql" 
 #require "sddodbc" 
  
 #include "simpleio.ch" 
  
 REQUEST SQLMIX, SDDODBC 
  
 PROCEDURE Main() 
  
    LOCAL nConnection, nI, aI 
  
    Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) 
  
    rddSetDefault( "SQLMIX" ) 
    nConnection := rddInfo( RDDI_CONNECT, { "ODBC", "Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test;" } ) 
    IF nConnection == 0 
       ? "Unable connect to server", rddInfo( RDDI_ERRORNO ), rddInfo( RDDI_ERROR ) 
       RETURN 
    ENDIF 
    ? nConnection 
    ? rddInfo( RDDI_EXECUTE, "DROP TABLE country" ) 
    ? rddInfo( RDDI_EXECUTE, "CREATE TABLE country (CODE char(3), NAME char(50), RESIDENTS int(11))" ) 
    ? rddInfo( RDDI_EXECUTE, "INSERT INTO country values ('LTU', 'Lithuania', 3369600),('USA', 'United States of America', 305397000), ('POR', 'Portugal', 10617600), ('POL', 'Poland', 38115967), ('AUS', 'Australia', 21446187), ('FRA', 'France', 64473140), ('RUS', 'Russia', 141900000)" ) 
    ? dbUseArea( .T., , "SELECT * FROM country", "country" ) 
    ? "LASTREC:", LastRec() 
    DO WHILE ! Eof() 
       aI := Array( FCount() ) 
       FOR nI := 1 TO FCount() 
          aI[nI] := FieldGet( nI ) 
       NEXT 
       ? RecNo(), hb_ValToExp( aI ) 
       dbSkip() 
    ENDDO 
    ? "LASTREC:", LastRec() 
    dbCloseAll() 
  
    RETURN 
 

ЗЫ. Примеров много,но с SyBase нет и по прежнему главное - получить коннект

 Отправлено: 14.10.15 23:39. Заголовок: скачал ADORDD.zip 20..

скачал ADORDD.zip 2007 года в архиве есть библиотеки и примеры.
http://www.fivetechsoft.com/files/adordd.zip

будем пробовать...
Спасибо, друзья

 Отправлено: 15.10.15 06:15. Заголовок: HAZ Доброе утро, ско..

HAZ
Доброе утро,
скомпилировал MYSQL3.prg из архива ADORDD.Zip вылетает при запуске по ошибке
Module: 'adordd.prg' was compiled into PCODE version: 9,this version of xHarbour expects version: 10Module: 'adordd.prg' was compiled into PCODE version: 9,this version of xHarbour expects version: 10

 Отправлено: 15.10.15 11:05. Заголовок: Oskar_AAA пишет: ск..

Oskar_AAA пишет:

цитата:

скомпилировал MYSQL3.prg из архива ADORDD.Zip вылетает при запуске по ошибке

Посмотри в примерах xHarbour , уверен там есть не одно использование ODBC
Или велкам в Harbour , в нем с десяток различных примеров наберется точно
PS можешь попробовать еще ADORDD из поставки MiniGui , может он соберется .
в скачанном тобой архиве версия от 2007/05/12 в Minigui - 2008/07/08

 Отправлено: 15.10.15 14:11. Заголовок: Oskar_AAA пишет: Mo..

Oskar_AAA пишет:

цитата:

Module: 'adordd.prg' was compiled into PCODE version: 9,t

Такую ошибку встречал при компиляции новым компилятором при старых obj скомпилированным старым компилятором.
Попробуй удалить все obj и сделать повторную компиляцию.

 Отправлено: 15.10.15 14:22. Заголовок: Andrey пишет: Попро..

Andrey пишет:

цитата:

Попробуй удалить все obj и сделать повторную компиляцию

+1

 Отправлено: 15.10.15 15:25. Заголовок: Добрый вечер, коллег..

Добрый вечер, коллеги.
Тоже думал про повторную компиляцию. Но не помню как ее делать.... Obj файлы - где? Нашел в своей сборке ADORDD.prg от 11.06.2009.
Obj и С файлы из своих PRG удаляются при каждой сборке EXE модуля...

 Отправлено: 16.10.15 16:13. Заголовок: Учитывая что в Harbo..

Учитывая что в Harbour нет норм. драйвера для Sybase,
может проще будет написать программу по выгрузке из Sybase в CSV (или SDF ?) на Delphi например,
а потом получившийся текстовый файл выгрузить в DBF средствами Harbour или Clipper.

 Отправлено: 16.10.15 16:26. Заголовок: Добрый вечер, из SYB..

Добрый вечер, из SYBASE я выгружаю в DBF, но пока приходится набирать запросы по таблицам. Написанием программы в Sybase опыта нет. Но требуется : ввести номер смены,
выборка из 4 таблиц записей по заданному номеру смены в 4 файла DBF вот и все.. а далее уже xHarbour

 Отправлено: 16.10.15 18:25. Заголовок: azoo пишет: может п..

azoo пишет:

цитата:

может проще будет написать программу по выгрузке из Sybase в CSV (или SDF ?) на Delphi например,

Из вики:
Возможно использование ряда драйверов базы данных таких языков программирования как Java, C/C++m, PHP, PERL, Python, Ruby, ADO.Net.

Делай выгрузку на любом языке...

 Отправлено: 28.05.16 10:03. Заголовок: Добрый день, необх..

Добрый день, необходимо перевести из UTF8 в RU866
База DBF уже создана из SYBASE посредством выбора данных по условию и экспортирована в формате DBF.
Программа
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6476)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
фрагмент кода

REQUEST HB_CODEPAGE_RU866
REQUEST DBFCDX,DBFFPT
HB_SetCodePage( "RU866" )
RDDSetDefault('DBFCDX')
Use UTF8 Alias UTF Exclusive NEW
DbGoTop()
Do While Eof()
Repl Name_866 With HB_UTF8TOSTR(Name,"RU866")
DbSkip()
Enddo

Поле Name_866 получается пустым ?
Добрый день, необходимо перевести из UTF8 в RU866
База DBF уже создана из SYBASE посредством выбора данных по условию и экспортирована в формате DBF.
Программа
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6476)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
фрагмент кода

REQUEST HB_CODEPAGE_RU866
REQUEST DBFCDX,DBFFPT
HB_SetCodePage( "RU866" )
RDDSetDefault('DBFCDX')
Use UTF8 Alias UTF Exclusive NEW
DbGoTop()
Do While Eof()
Repl Name_866 With HB_UTF8TOSTR(Name,"RU866")
DbSkip()
Enddo

Поле Name_866 получается пустым ?

 Отправлено: 28.05.16 10:09. Заголовок: Dim Если ставить RE..

Dim

Если ставить
REQUEST HB_CODEPAGE_UTF8EX

Error: Unresolved external '_HB_FUN_HB_CODEPAGE_UTF8EX'

 Отправлено: 28.05.16 10:36. Заголовок: Oskar_AAA пишет: Er..

Oskar_AAA пишет:

цитата:

Error: Unresolved external '_HB_FUN_HB_CODEPAGE_UTF8EX'

Harbour ?

 Отправлено: 28.05.16 10:37. Заголовок: xHarbour Compiler bu..

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6476)

 Отправлено: 28.05.16 14:31. Заголовок: Oskar_AAA пишет: Ба..

Oskar_AAA пишет:

цитата:

База DBF уже создана из SYBASE посредством выбора данных по условию и экспортирована в формате DBF. П

База в харбуре нормально открывается и читабельна ?

 Отправлено: 28.05.16 15:07. Заголовок: HAZ, спасибо за вним..

HAZ, спасибо за внимание.
База создана из SYBASE и спокойно читается в xHarbour, проблема только с символьными полями
В SYBASE есть возможность экспорта результата выборки в различные форматы (Xls, Txt. Dbf...) при экспорте в Xls символьные поля тоже с "кракозябрами"....
формат XLS не подходит по причине ограничения на 65535 строк.

 Отправлено: 28.05.16 15:26. Заголовок: Oskar_AAA пишет: п..

Oskar_AAA пишет:

цитата:

проблема только с символьными полями

Если при текстовом просмотре и выборе UTF содержимое видно правильно, то перекодировку можно написать на Fopen() - FWrite()
Формат DBF известен , читаем блоками и пишем туда же

 Отправлено: 28.05.16 15:31. Заголовок: Oskar_AAA пишет: (X..

Oskar_AAA пишет:

цитата:

(Xls, Txt. Dbf...)

Текстовой кстати легче преобразовать будет.
Тхт - кстати открывается Excel без крякозябров , а в последних версиях Excel нет ограничения на 64К срок

 Отправлено: 28.05.16 15:57. Заголовок: Oskar_AAA попробуйт..

Oskar_AAA
попробуйте посмотреть dbf в harbour (можно взять от MiniGui, если нет hb 3.2 у вас)
REQUEST HB_CODEPAGE_UTF8EX
HB_SetCodePage( "UTF8EX" )
RDDSetDefault('DBFCDX')
Use UTF8 Alias UTF Exclusive NEW
browse()
или

HB_SetCodePage( "RU866" )
USE UTF8 ALIAS INP VIA 'DBFCDX' NEW CODEPAGE 'UTF8EX'
browse()

что то похожее пробовал давно с dbf в utf8 кодировке, но только средствами hb - получалось ok

 Отправлено: 28.05.16 16:01. Заголовок: Друзья, все таки нуж..

Друзья, все таки нужен DBF, с ним потом нужно работать...
Почему не работает функция Hb_Utf8ToStr(Name,"RU866")???

 Отправлено: 28.05.16 16:04. Заголовок: Oskar_AAA пишет: По..

Oskar_AAA пишет:

цитата:

Почему не работает функция Hb_Utf8ToStr(Name,"RU866")???

возможно ей нужен вызов REQUEST HB_CODEPAGE_UTF8EX , в Xharbour 1.2.3 ни чего такого
не нашел (может искал плохо).
Если это разовая операция я бы двигался в сторону которую предложил SergKis

 Отправлено: 28.05.16 16:06. Заголовок: Oskar_AAA пишет:Поче..

Oskar_AAA пишет:

цитата:

Почему не работает функция Hb_Utf8ToStr(Name,"RU866")

Вы уверены, что в поле данные в utf8 ?

 Отправлено: 28.05.16 16:08. Заголовок: Oskar_AAA пишет: По..

Oskar_AAA пишет:

цитата:

Почему не работает функция Hb_Utf8ToStr(Name,"RU866")???

попробуй hb_Translate( cStr, "UTF8", "RU1251" ), использовал ее когда то

 Отправлено: 28.05.16 16:13. Заголовок: SergKis при *REQU..

SergKis

при *REQUEST HB_CODEPAGE_UTF8EX
Error: Unresolved external '_HB_FUN_HB_CODEPAGE_UTF8EX'

такой код проходит,
HB_CDPSelect("UTF8")
HB_SetCodePage( "RU866" )
USE UTF8 ALIAS INP VIA 'DBFCDX' NEW CODEPAGE 'UTF8EX'
browse()

Но, результат - крякозябры

 Отправлено: 28.05.16 16:21. Заголовок: Oskar_AAA возможно ..

Oskar_AAA
возможно надо
USE UTF8 ALIAS INP VIA 'DBFCDX' NEW CODEPAGE 'UTF8'
xHb в руках не держал и в нем не разбираюсь
но возможно перекодировку dbf из SyBase сделать на hb (режим export\import присутсвует по любому), а работать с dbf 866 xHb

 Отправлено: 28.05.16 16:28. Заголовок: попробовал - тоже са..

попробовал - тоже самое...
Есть алгоритм пересчета кодов UTF8 в RU866 ? /может написать самому блок кода по пересчету кодов старше 127.../

 Отправлено: 28.05.16 16:38. Заголовок: Haz попробуй hb_Tran..

Haz
попробуй hb_Translate( cStr, "UTF8", "RU1251" ), использовал ее когда то
не прошло, крякозябры...
может что-то надо подключить из LIB, CH?

# Include 'Achoice.Ch'
# Include 'Inkey.Ch'
# Include 'Directry.Ch'
# Include 'Setcurs.Ch'
# Include 'Dbstruct.Ch'
# Include 'Command.Ch'
# Include 'Dbedit.Ch'
# Include 'Excel.Ch'
# Include 'Hbgtinfo.Ch'

 Отправлено: 28.05.16 16:47. Заголовок: Oskar_AAA Какую код..

Oskar_AAA
Какую кодировку показывает Dbedit из темы ?
http://clipper.borda.ru/?1-4-0-00001125-000-0-0-1463462933

 Отправлено: 28.05.16 16:55. Заголовок: Dima, DBEDIT из темы..

Dima, DBEDIT из темы нет... но при выгрузке из SYBASE в TXT файл, FAR правильно показывает в OEM кодировке, в ANSI крякозябры...

 Отправлено: 28.05.16 16:59. Заголовок: DIMA. скачал DBEDIT ..

DIMA. скачал DBEDIT - показывает верно (F3)!!!
Что делать дальше,,,?

 Отправлено: 28.05.16 17:03. Заголовок: Кодировка 1251 - ОК,..

Кодировка 1251 - ОК, 866 - крякозябры

 Отправлено: 28.05.16 17:05. Заголовок: я уже что то совсем ..

я уже что то совсем потерялся в плане чего нужно сделать если честно
все смешалось в кучу RU866 , UTF8 , CP1251.
какова исходная задача то ?

 Отправлено: 28.05.16 17:13. Заголовок: Oskar_AAA пишет: Ко..

Oskar_AAA пишет:

цитата:

Кодировка 1251 - ОК

и причем тут UTF ?

 Отправлено: 28.05.16 17:13. Заголовок: Dima, извиняюсь... ..

Dima, извиняюсь...

Выгружаю из SYBASE записи в формате DBF, символьные поля в UTF8.
Открываю файл в xHarbour символьные поля не читаются (крякозябры).
Требуется при открытии файла DBF перевести символьные поля в нормальную кодировку (RU866).
Попробовал открыть файл DBEDIT'-ом из темы и выбрать кодировку 1251 все нормально, скопировал файл DBEDIT'-ом в другой файл а затем открыл в DBU.exe - символьные поля в нормальной кодировке...

 Отправлено: 28.05.16 17:16. Заголовок: Oskar_AAA пишет: Вы..

Oskar_AAA пишет:

цитата:

Выгружаю из SYBASE записи в формате DBF, символьные поля в UTF8.

Вот теперь этот DBF открой с помощью DBEDIT , в левом нижнем углу будет написана кодировка в файле.
По ходу там же можно перекодировать файл в меню Поиск - Транслировать

 Отправлено: 28.05.16 17:20. Заголовок: Dima пишет: Вот теп..

Dima пишет:

цитата:

Вот теперь этот DBF открой с помощью DBEDIT , в левом нижнем углу будет написана кодировка в файле.

упс я не прав , думал там автодетект

 Отправлено: 28.05.16 17:21. Заголовок: Dima пишет: По ходу..

Dima пишет:

цитата:

По ходу там

Дима , по ходу там DBF в 1251 из SyBase выгружается и при попытке его прочесть в UTF имеем то что имеем )

 Отправлено: 28.05.16 17:23. Заголовок: Haz пишет: Дима , ..

Haz пишет:

цитата:

Дима , по ходу там DBF в 1251 из SyBase выгружается

Oskar_AAA пишет:

цитата:

Выгружаю из SYBASE записи в формате DBF, символьные поля в UTF8

Кхм
Игорь а где правда ?

 Отправлено: 28.05.16 17:29. Заголовок: Dima пишет: а где п..

Dima пишет:

цитата:

а где правда

где то тут

цитата:

Попробовал открыть файл DBEDIT'-ом из темы и выбрать кодировку 1251 все нормально,

 Отправлено: 28.05.16 17:32. Заголовок: Открываю файл, в ниж..

Открываю файл, в нижней строке RU866. Shift+F3 выбираем RU1251 и все нормально, далее копирую записи в другой файл и открываю его в DBU - символьные поля в норме...

 Отправлено: 28.05.16 17:32. Заголовок: Haz пишет: где то т..

Haz пишет:

цитата:

где то тут

Тогда достаточно Hb_ansitoem()
Вопрос вроде решен.....

 Отправлено: 28.05.16 17:35. Заголовок: Хорошо хоть изначаль..

Хорошо хоть изначально была ошибочно UTF8 а не UCS-2 LE BOM

 Отправлено: 28.05.16 17:56. Заголовок: Dima, Haz,SerKis Сп..

Dima, Haz,SerKis

Спасибо,
HB_AnsiToOem( )
и все ОК, кураторы блока по SYBASE известили нас о кодировке UTF8. Вот и ковырялся и Вас замучил...

 Отправлено: 28.05.16 18:46. Заголовок: Oskar_AAA пишет: и ..

Oskar_AAA пишет:

цитата:

и все ОК, кураторы блока по SYBASE известили нас о кодировке UTF8. Вот и ковырялся и Вас замучил...

Скрытый текст

 Отправлено: 29.05.16 22:06. Заголовок: Haz Что то я потеря..

Haz
Что то я потерялся в истории SuccessWare , Extended System , Sybase и Sap.....
Напомни в 2-х словах ( или больше ) , кого и когда "сожрал" Sap.

 Отправлено: 29.05.16 23:26. Заголовок: Dima пишет: кого и ..

Dima пишет:

цитата:

кого и когда "сожрал" Sap.

Всех прожратых не отслеживал а вот что пишут про ADS
==============================================================
Advantage Database Server is a relational database management system (RDBMS) for small to medium-sized businesses by SAP SE (formerly Sybase iAnywhere, formerly Extended Systems).
==============================================================
https://en.wikipedia.org/wiki/Advantage_Database_Server
по этой же ссылке вся история пожирания ADS. Последняя выпущенная версия ADS - версия 12 и уже SAP. Изменен порядок дистрибуции и скачать даже демку стало сложнее. Нет больше девелоперской версии с ключем на 2 юзера. Невозможно больнше отдельно скачать бесплатный ARC32/64, ADSLOCAL итд Все апгрейды доступны только официальным партнерам SAP ( не понятно как знакомиться с новым функционалом нам - обычным людям ). Вобщем тенденция не радует. Что то мне подсказывает что версии 13 не будет, или будет очень не скоро