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á.
Tabelas e Indices
Moderador: Moderadores
- sygecom
- Administrador

- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
Tabelas e Indices
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:
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
xHarbour.org + Hwgui + PostgreSql
