🚀 go-pugleaf

Romain Strieff [TeamB] wrote:

> Mmm, didn't he want to know how it is done with SQL, especially if the 
> order is an expression and no field? How'd you do that? 

Apparently not. He posted the solution using USE

> Or is VdB the only program in the world using expression indexes? 

DBFs are the only ones (that I know of) that use _expression_ indexes:

  last_name + first_name
  last_name + "asdfasd" + upper( substr( ltrim( first_name ), 2, 4 ))

Most other databases support compound, or multi-field indexes:

  last_name, first_name

> and show us an example of DbiGetSysConfig which should be possible now 
> that we have the BDE session and cursor handle available?

That function has nothing to do with BDE handles. Perhaps you mean 
something else? Anyway, after some tinkering <g> here is the call using 
my VSTRUCT stuff, which I will post in the Programming section.

#include <VSTRUCT.H>

#define DBIRESULT 	CSHORT
#define DBIBOOL   	TYPE_BOOL16

#define DBIMAXNAMELEN           31
#define DBIMAXPATHLEN           260
#define DBIMAXUSERNAMELEN       14

#define DBIPATH         TYPE_STRING(DBIMAXPATHLEN+1)
#define DBINAME         TYPE_STRING(DBIMAXNAMELEN+1)
#define DBIUSERNAME     TYPE_STRING(DBIMAXUSERNAMELEN+1)

set procedure to VSTRUCT additive

VSTRUCT_DEF( "BDESysConfig", ;
  "LocalShare" , DBIBOOL, ;
  "NetProtocol", TYPE_USHORT, ; // Not currently used.
  "NetShare"   , DBIBOOL, ;     // Not currently used.
  "NetType"    , DBINAME, ;	
  "UserName"   , DBIUSERNAME, ;
  "IniFile"    , DBIPATH, ;
  "LangDriver" , DBINAME ;
)

extern DBIRESULT DbiGetSysConfig ( CPTR ) IDAPI32

c = new VStruct( "BDESysConfig" )

if ( DbiGetSysConfig( c ) == 0 )
  a = { "LocalShare", "NetType", "UserName", "IniFile", "LangDriver" }
  for n = 1 to a.size
    ? transform( a[ n ], replicate( "X", 12 ) + ":" ), c.getMem( a[ n ] )
  endfor
endif


The hard part was figuring out all the buffer sizes, which are listed in 
the BDE API Help under "Constants" and "Buffer:typedefs". The booleans 
are also 16 bits instead of 32.

-- 
//Ken[0]@Borland
<Please follow-up to newsgroup; do not reply to email>