FoxClub Forums > Visual Foxpro, Foxpro for DOS > Работа с удаленной БД при помощи курсор-адаптеров ::

• Войти

Работа с удаленной БД при помощи курсор-адаптеров
vlgrech Автор Сообщений: 30 Дата регистрации: 23.09.2009	vlgrech 06.09.18 12:23:35 Прошу дать ссылок (побольше!) с примерами программирования курсор-адаптеров. От самых элементарных до программной настройки КА. Заранее благодарен.

Re: Работа с удаленной БД при помощи курсор-адаптеров
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 06.09.18 12:40:27 forum.foxclub.ru forum.foxclub.ru ------------------ WBR, Igor

Re: Работа с удаленной БД при помощи курсор-адаптеров
прошелмимо Сообщений: 784 Дата регистрации: 21.02.2012	прошелмимо 12.09.18 12:40:59 если интересно, - отдам библиотеку для работы с MS SQL (T-SQL) библиотека позволяет создавать описатели свойств, посредством которых осуществляется подъем КАД (каскадов КАД - цепочек парент-чайлд) Private pcBeginDate, pcEndDate pcBeginDate = '' pcEndDate = '' this.oCad = oServer.CreateCadObject(this, ; "myTable", ; && таблица на сервере "id", ; && ключь-линк в таблице "#allFields#", ; && обновляемые поля в таблице "#AllSqlDataToFox#", ; && схема - преобразов-е типов "", ; && условие в запросе "", ; && поля в строке запроса к таблице сервера "", ; && group by "", ; && order by "", ; && добавчик к SelectCmd "exec mySP @dBeginDate=?pcBeginDate, @dEndDate=?pcEndDate", ; && если уж совсем нестандартный запрос "CursorFromSP") && имя алиаза if vartype(this.oCad)<>"O" RETURN .F. EndIf примеры там forum.foxclub.ru взад мне необходимо развитие моих библиотек с моим участием/диктовкой условий и равные права на эксплуатацию того, что получится мои библиотеки использовались для пром.разработки систем, затем эти разработки/системы были убиты мной лично и перенесены в SAP ERP (сейчас системы не эксплуатируются по причине убийства фокспро и всего софта на нем мной лично). есть идея халтуры в нерабочее время, поэтому и ищу помощника.

Re: Работа с удаленной БД при помощи курсор-адаптеров

прошелмимо

Сообщений: 784
Дата регистрации: 21.02.2012

прошелмимо

12.09.18 12:40:59

если интересно, - отдам библиотеку для работы с MS SQL (T-SQL)

библиотека позволяет создавать описатели свойств, посредством которых
осуществляется подъем КАД (каскадов КАД - цепочек парент-чайлд)


Private pcBeginDate, pcEndDate
pcBeginDate = ''
pcEndDate   = ''

this.oCad = oServer.CreateCadObject(this,                ;
                                 "myTable",                ;    && таблица на сервере
                                 "id",                    ;    && ключь-линк в таблице
                                 "#allFields#",            ;   && обновляемые поля в таблице
                                 "#AllSqlDataToFox#",     ;    && схема - преобразов-е типов
                                 "",                    ;   && условие в запросе
                                 "",                     ;   && поля в строке запроса к таблице сервера
                                 "",                     ;    && group by
                                 "",                    ;    && order by
                                 "",                    ;    && добавчик к SelectCmd
                                 "exec mySP @dBeginDate=?pcBeginDate, @dEndDate=?pcEndDate", ;    && если уж совсем нестандартный запрос
                                 "CursorFromSP")              && имя алиаза
                                 
if vartype(this.oCad)<>"O"
    RETURN .F.
EndIf

примеры там
forum.foxclub.ru

взад мне необходимо развитие моих библиотек
с моим участием/диктовкой условий
и равные права на эксплуатацию того, что получится

мои библиотеки использовались для пром.разработки систем,
затем эти разработки/системы были убиты мной лично и перенесены в SAP ERP
(сейчас системы не эксплуатируются по причине убийства фокспро и всего софта на нем
мной лично).

есть идея халтуры в нерабочее время,
поэтому и ищу помощника.

Re: Работа с удаленной БД при помощи курсор-адаптеров
lulgu Сообщений: 1838 Дата регистрации: 30.11.2016	lulgu 13.09.18 00:32:41 Развить ваши библиотеки нетрудно, только какой в этом смысл, в довольно трудоемкой работе? Исправлено 1 раз(а). Последнее : lulgu, 13.09.18 00:35

Re: Работа с удаленной БД при помощи курсор-адаптеров
прошелмимо Сообщений: 784 Дата регистрации: 21.02.2012	прошелмимо 13.09.18 10:20:48 только какой в этом смысл, в довольно трудоемкой работе извиняюсь, спрошу навсякий: Вы таки пример посмотрели? разработка библиотек и затем использование во множестве проектов множеством разработчиков: - систематизирует/формализует процесс - сокращает много чего... - облегчает ну и т.д. например, посмотрите в сторону 1С, sap... CLEAR wa_pt_fieldcat. wa_pt_fieldcat-fieldname = 'CORRBANKNAME'. wa_pt_fieldcat-scrtext_s = 'БанкКорр.'. wa_pt_fieldcat-scrtext_l = wa_pt_fieldcat-reptext = 'Банк-корреспондент'. wa_pt_fieldcat-col_pos = 24. APPEND wa_pt_fieldcat TO pt_fieldcat. CLEAR wa_pt_fieldcat. wa_pt_fieldcat-fieldname = 'CORRBANKSWIFT'. wa_pt_fieldcat-scrtext_s = 'SWIFT БКорр.'. wa_pt_fieldcat-scrtext_l = wa_pt_fieldcat-reptext = 'SWIFT Банка-корр.'. wa_pt_fieldcat-col_pos = 25. APPEND wa_pt_fieldcat TO pt_fieldcat. CLEAR wa_pt_fieldcat. wa_pt_fieldcat-fieldname = 'CORRBANKCORRACC'. wa_pt_fieldcat-scrtext_s = 'Сч.БКорр.'. wa_pt_fieldcat-scrtext_l = wa_pt_fieldcat-reptext = 'Счет Банка-корр.'. wa_pt_fieldcat-col_pos = 26. APPEND wa_pt_fieldcat TO pt_fieldcat. а потом CALL METHOD grid_1003->set_table_for_first_display EXPORTING is_variant = gvariant_1003 i_save = 'A' i_default = 'X' is_layout = layout_1003 CHANGING it_fieldcatalog = fieldcat_1003 it_outtab = t3[]. т.е. списки не рисуются визуально, например так в SAP АЛВ победил экранные таблички

Re: Работа с удаленной БД при помощи курсор-адаптеров

прошелмимо

Сообщений: 784
Дата регистрации: 21.02.2012

прошелмимо

13.09.18 10:20:48

только какой в этом смысл, в довольно трудоемкой работе

извиняюсь, спрошу навсякий: Вы таки пример посмотрели?

разработка библиотек и затем использование во множестве проектов множеством разработчиков:
- систематизирует/формализует процесс
- сокращает много чего...
- облегчает
ну и т.д.

например, посмотрите в сторону 1С, sap...


    CLEAR wa_pt_fieldcat.
    wa_pt_fieldcat-fieldname = 'CORRBANKNAME'.
    wa_pt_fieldcat-scrtext_s = 'БанкКорр.'.
    wa_pt_fieldcat-scrtext_l =
    wa_pt_fieldcat-reptext   = 'Банк-корреспондент'.
    wa_pt_fieldcat-col_pos = 24.
    APPEND wa_pt_fieldcat TO pt_fieldcat.

    CLEAR wa_pt_fieldcat.
    wa_pt_fieldcat-fieldname = 'CORRBANKSWIFT'.
    wa_pt_fieldcat-scrtext_s = 'SWIFT БКорр.'.
    wa_pt_fieldcat-scrtext_l =
    wa_pt_fieldcat-reptext   = 'SWIFT Банка-корр.'.
    wa_pt_fieldcat-col_pos = 25.
    APPEND wa_pt_fieldcat TO pt_fieldcat.

    CLEAR wa_pt_fieldcat.
    wa_pt_fieldcat-fieldname = 'CORRBANKCORRACC'.
    wa_pt_fieldcat-scrtext_s = 'Сч.БКорр.'.
    wa_pt_fieldcat-scrtext_l =
    wa_pt_fieldcat-reptext   = 'Счет Банка-корр.'.
    wa_pt_fieldcat-col_pos = 26.
    APPEND wa_pt_fieldcat TO pt_fieldcat.

а потом


    CALL METHOD grid_1003->set_table_for_first_display
         EXPORTING
                   is_variant = gvariant_1003
                   i_save = 'A'
                   i_default = 'X'
                   is_layout = layout_1003
         CHANGING  it_fieldcatalog = fieldcat_1003
                   it_outtab       = t3[].

т.е. списки не рисуются визуально,
например так в SAP АЛВ победил экранные таблички

Re: Работа с удаленной БД при помощи курсор-адаптеров
vlgrech Автор Сообщений: 30 Дата регистрации: 23.09.2009	vlgrech 13.09.18 11:46:04 Прошелмимо, наверное мне нужно было добавить, что интересуюсь пока элементарными примерами использования КА. Так что за предложение спасибо, но до такого уровня мне еще далеко.

Re: Работа с удаленной БД при помощи курсор-адаптеров
прошелмимо Сообщений: 784 Дата регистрации: 21.02.2012	прошелмимо 13.09.18 13:02:03 но до такого уровня мне еще далеко. жаль. один в поле не воин без наставника тяжело будет, долго и может никогда не осознаете (трава не такая забористая местная, например :lol а так,- послушай птичка, лучше ... потерять, - потом за пять минут долетим (C)

Re: Работа с удаленной БД при помощи курсор-адаптеров

прошелмимо

Сообщений: 784
Дата регистрации: 21.02.2012

прошелмимо

13.09.18 13:02:03

но до такого уровня мне еще далеко.

жаль.
один в поле не воин

без наставника тяжело будет, долго и может никогда не
осознаете
(трава не такая забористая местная, например :lol

а так,- послушай птичка, лучше ... потерять, - потом за пять минут долетим (C)

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 21 Joys (Гостей: 20)