Автор | Сообщение |
|
| |
Пост N: 2943
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.04.13 15:03. Заголовок: Cписок алиасов
Как получить список всех открытых баз данных ? Либо в виде алиасов либо номеров рабочих областей. Можно конечно сделать самопал , но вдруг что то готовое есть и эффективное.
|
|
|
Ответов - 32
, стр:
1
2
All
[только новые]
|
|
|
| |
Пост N: 2954
Зарегистрирован: 17.05.05
|
|
Отправлено: 08.04.13 08:43. Заголовок: Pasha Интересно , с..
Pasha Интересно , спасибо. А что делает вот эта функция (из описания не очень понял) function hb_waRelEval(), remove unused local variable int iChildArea Вольный перевод: удаление не используемых локальных переменных в дочерней области
|
|
|
|
| Администратор
|
Пост N: 2835
Зарегистрирован: 23.05.05
|
|
Отправлено: 08.04.13 08:51. Заголовок: Что-то я не найду та..
Что-то я не найду такой функции. Есть метод rdd в workarea.c c таким же названием, но назначение у него другое. Где она находится ?
|
|
|
|
| |
Пост N: 2956
Зарегистрирован: 17.05.05
|
|
Отправлено: 08.04.13 08:57. Заголовок: Pasha пишет: Где он..
Pasha пишет: Откопал в ChangeLog.txt когда искал сведения о hb_waEval()
|
|
|
|
| Администратор
|
Пост N: 2836
Зарегистрирован: 23.05.05
|
|
Отправлено: 08.04.13 09:08. Заголовок: Это базовый метод rd..
Это базовый метод rdd для реализации relations, из харбор-уровня он недоступен. Он касается внутренней реализации rdd. Просто название похожее оказалось.
|
|
|
|
| |
Пост N: 3963
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.04.14 10:21. Заголовок: Haz пишет: adsConne..
Haz пишет: цитата: | adsConnect60( cBasePath + "\" + cBase + ".add", 0, "SystemProcess", 'SystemProcess', nServerType, @hConnection ) |
| похоже это не правильно вот так надо adsConnect60( cBasePath + "\" + cBase + ".add", nServerTypes, "SystemProcess", 'SystemProcess', nOptions, @hConnection ) а у тебя перепутаны местами nServerTypes и nOptions или я не прав ?
|
|
|
|
| |
Пост N: 228
Зарегистрирован: 20.02.11
|
|
Отправлено: 09.04.14 11:53. Заголовок: Dima пишет: похоже ..
Dima пишет: мож быть , не задумывался т.к. работало перепутаны однозначно
|
|
|
|
| |
Пост N: 229
Зарегистрирован: 20.02.11
|
|
Отправлено: 09.04.14 12:33. Заголовок: Дима , спасибо . Исп..
|
|
|
|
| постоянный участник
|
Пост N: 3318
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.04.14 17:30. Заголовок: Dima пишет: Как пол..
Dima пишет: цитата: | Как получить список всех открытых баз данных ? Либо в виде алиасов либо номеров рабочих областей. |
| aBase := {} FOR nI:=1 TO myFILESFREE() // для харбора сделал 1024, т.к. не нашел в своё время замену этой функции SELECT(nI) IF USED() == .T. cStr:=STR(nI,3)+".│"+DBSETDRIVER()+" │"+STR(DBINFO(DBI_GETRECSIZE),7)+; "│"+PADR(DBINFO(DBI_ALIAS),12)+; "│"+PADR(DBINFO(DBI_FULLPATH),45) AADD(aBase, cStr) ENDIF NEXT DO WHILE lExit K := Achoice( aKoordin[1]+3, aKoordin[2]+1, aKoordin[3]-1, aKoordin[4]-1, aBase ) IF K == 0 .OR. LASTKEY() == K_ESC lExit := .F. ELSE SELECT(K) TekBase() ENDIF ENDDO
|
|
|
|
| |
Пост N: 3986
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.04.14 18:18. Заголовок: Andrey А что рабочи..
Andrey А что рабочих областей может уже быть больше 255 или я чего путаю ?
|
|
|
|
| постоянный участник
|
Пост N: 3322
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.04.14 18:47. Заголовок: Dima пишет: А что р..
Dima пишет: цитата: | А что рабочих областей может уже быть больше 255 или я чего путаю ? |
| Думаю, что да. Надо проверять...
|
|
|
|
| |
Пост N: 3987
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.04.14 21:04. Заголовок: Andrey пишет: Думаю..
Andrey пишет: цитата: | Думаю, что да. Надо проверять... |
| Cделал тестик Clipper 5.2e упал при открытии 246 рабочей области с ошибкой DOS ERROR 4 ну это и понятно так как FILES у меня прописан 250 в CONFIG.NT Странно что упал раньше......... Harbour 3.2 упал при открытии 65000 рабочей области с ошибкой Unrecoverable error 6004: Internal error: size of dynamic symbol table exceed ЗЫ Harbour рулит
|
|
|
|
|
| постоянный участник
|
Пост N: 3324
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.04.14 23:24. Заголовок: Dima пишет: Harbour..
Dima пишет:
|
|
|
Ответов - 32
, стр:
1
2
All
[только новые]
|
|