Tabelas e Indices

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

tonicm
Usuário Nível 2
Usuário Nível 2
Mensagens: 55
Registrado em: 08 Mar 2016 21:51
Localização: Porto

Tabelas e Indices

Mensagem por tonicm »

Boas,
Tenho uma aplicação em clipper que estou a passar para harbour.
Ainda estou a testar todas as opções pois de vez em quando encontro algumas diferenças.

E tenho outra aplicação para criar os índices (DBFCDX).
Terei algum tipo de problema se eu criar os índices nesta segunda aplicação compilada em harbour e continuar a utilizar a outra aplicação em clipper?

Obrigado desde já.
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Tabelas e Indices

Mensagem por sygecom »

Use no Harbour: SET DBFLOCKSCHEME TO

DB_DBFLOCK_DEFAULT 0 Default locking scheme
DB_DBFLOCK_CLIP 1 Clipper 5.2 locking scheme
DB_DBFLOCK_CL53 2 Clipper 5.3 locking scheme
DB_DBFLOCK_VFP 3 Visual FoxPro locking scheme
DB_DBFLOCK_CL53EXT 4 Emulated shared locking
DB_DBFLOCK_XHB64 5 Locking scheme for files > 4GB

exemplo do manual do xharbour:

Código: Selecionar todos

 #include "DbInfo.ch"

   REQUEST DBFCDX

   PROCEDURE Main()
      LOCAL aStruct := { { "FIELD1", "C", 30, 0 }, ;
                         { "FIELD2", "N", 10, 2 } }

      RddSetDefault( "DBFCDX" )

      SET DBFLOCKSCHEME TO DB_DBFLOCK_CL53
      DbCreate( "test", aStruct, "DBFCDX")

      USE Test SHARED
      APPEND BLANK

      IF ! NetErr()
         FIELD1->"This is a test"
         FIELD2->100
         ? "Append operation completed"
         COMMIT
      ELSE
         ? "Append operation failed"
      ENDIF
   RETURN
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Responder