Форум » [x]Harbour » По мотивам темы..... » Ответить
По мотивам темы.....
Dima: http://clipper.borda.ru/?1-0-0-00000583-000-0-0#000.001.001 #include "dbinfo.ch" proc main use test new ? DBINFO(DBI_FULLPATH) // test.dbf так и должно быть ? А где путь ? wait return PS Harbour 3.2 , 2 результат одинаков Если при открытии указывать полный путь тогда нормик. Видимо тут косяк...
Ответов - 5
PSP: А если так? Set( _SET_DEFAULT ) ....
Andrey: Dima пишет: А где путь ? А у меня на Клипере 5.3 тоже так было !
Dima: PSP пишет: Set( _SET_DEFAULT ) Пустая строка Andrey пишет: А у меня на Клипере 5.3 тоже так было ! А на Xharbour как , нормик ?
Andrey: Dima пишет: А на Xharbour как , нормик ? На тестовом примере (который вверху) возвращает только test.dbf А у меня в задаче полный путь к базе. Наверно из-за того что базы открываю по другому пути. Вот пример - работает правильно: #include "dbinfo.ch" proc main request DBFCDX RddSetDefault( 'DBFCDX' ) use ("D:\TEMP\test.dbf") new ? "dBase-"+DBINFO(DBI_FULLPATH) ? "Alias-"+DBINFO(DBI_ALIAS) INDEX ON FIELD->KMASTER TO ("D:\TEMP\test2.cdx") ORDLISTADD( "D:\TEMP\test2.cdx" ) ? ? "Index-"+DBORDERINFO( DBOI_NAME ) ? "Path to index-"+DBORDERINFO(DBOI_FULLPATH,DBORDERINFO(DBOI_NAME),ORDNAME( ORDNUMBER( DBORDERINFO(DBOI_NAME) ) ) ) ? "Current focus-"+ORDSETFOCUS() ? " nOrder-"+STR(INDEXORD(),3) wait return
Dima: Пример из Help по Best [pre2] #include "DbInfo.ch" PROCEDURE Main USE Customer ALIAS Cust SET INDEX TO CustA, CustB, CustC ? DbInfo( DBI_ALIAS ) // результат: Cust ? DbInfo( DBI_FULLPATH ) // результат: C:\XPP\DATA\Customer.dbf Интересно как это у них получилось ? ? DbInfo( DBI_TABLEEXT ) // результат: .dbf ? DbInfo( DBO_ORDERS ) // результат: 3 USE RETURN [/pre2]
полная версия страницы