Histórico da Página

...

Pagetitle

	GetDBExtension
	GetDBExtension

Retorna a extensão dos arquivos de banco de dados.em uso para as tabelas acessadas através do driver ou RDD "DBFCDX"

Sintaxe

Bloco de código

collapse	false

GetDBExtension()

...

Nome	Tipo	Descrição
cRet	caractere	Retorna a extensão dos arquivos de banco de dadosem uso.

Informações

icon	true
title	Observações

A função irá ler os valores que estão nas chaves LocalDBExtension e LocalFiles na seção do ambiente no arquivo ini do Application Server.
O valor padrão da chave LocalDBExtension, para quando a mesma não for informada, será ".dtc" se LocalFiles tiver valor CTree e for um Protheus 8 ou superior; caso contrário, será ".dbf".
Se o valor em LocalDBExtension não começar com "." (ponto) e não tiver

...

pelo menos 2 caracteres (além do ponto), o valor retornado será ".dbf".
Em builds geradas a partir de 07/05/2018, a validação da configuração foi flexibilizada para permitir extensões com tamanho a partor de 3 caracteres contando com o ".", e caso a extensão informada não for válida, ela passa a ser a extensão default do driver informado na configuração LocalFiles.
Para o Driver ADS, a extensão default é ".dbf", para o Driver CTREE a extensão default é ".dtc", e para os Drivers SQLITE e/ou SQLITECLI, a extensão default é ".db".

Exemplos

Bloco de código

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

user function test1()
  Local cLocal := ""
  Local cDBExt := ""
  Local cRet := ""
  
  if IsSrvUnix() .Or. IsSrv64()
    cLocal := GetSrvProfString( "LocalFiles", "CTREE" )
  else
    cLocal := GetSrvProfString( "LocalFiles", "ADS" )
  endif
  cLocal := Upper( cLocal )
  
  if cLocal == "CTREE"
    cDBExt := GetSrvProfString( "LocalDBExtension", ".dtc" )
  else
    cDBExt := GetSrvProfString( "LocalDBExtension", ".dbf" )
  endif
  cDBExt := Lower( cDBExt )
  
  if ( Len( cDBExt ) !=< 43 ) .Or. ( Left( cDBExt, 1 ) != "." )
    cDBExt := ".dbf"
  endif
  
  cRet := GetDBExtension()
  
  if cRet == cDBExt
    conout( "Valores iguais: " + cRet )
  else
    conout( "Valores diferentes" )
    conout( "Esperado: " + cDBExt )
    conout( "Retornado: " + cRet )
  endif
return

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

Sintaxe

Exemplos