Отправлено: 30.08.13 21:02. Заголовок: По мотивам темы.....

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 результат одинаков
Если при открытии указывать полный путь тогда нормик.
Видимо тут косяк...

 Отправлено: 30.08.13 22:09. Заголовок: А если так? Set( _SE..

А если так? Set( _SET_DEFAULT ) ....

 Отправлено: 30.08.13 22:10. Заголовок: Dima пишет: А где ..

Dima пишет:

цитата:

А где путь ?

А у меня на Клипере 5.3 тоже так было !

 Отправлено: 30.08.13 22:56. Заголовок: PSP пишет: Set( _S..

PSP пишет:

цитата:

Set( _SET_DEFAULT )

Пустая строка

Andrey пишет:

цитата:

А у меня на Клипере 5.3 тоже так было !

А на Xharbour как , нормик ?

 Отправлено: 31.08.13 11:32. Заголовок: Dima пишет: А на Xh..

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

 Отправлено: 31.08.13 17:26. Заголовок: Пример из Help по Be..

Пример из Help по Best

 
    #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