by MOISES » Fri Nov 21, 2014 10:07 am
Hello,
I am afraid this sample does not work, it does not créate the dbf:
#include "ads.ch"
REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN
//-------------------------------------------------------------------------------------------------------------
FUNCTION MAIN()
//-------------------------------------------------------------------------------------------------------------
LOCAL aStruct, cFichero, nRet := 0
// Idioma español para Harbour
HB_LangSelect("ES") // Para mensajes, fechas, etc..
HB_CDPSELECT("ESWIN") // Para ordenación, requiere CodePage.lib
REQUEST DBFCDX, DBFFPT
Request ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo, AdsGetRelKeyPos, AdsSetRelKeyPos
RddRegister( "ADS", 1 )
RddSetDefault( "ADS" )
adsSetServerType( 1 ) // ó ADS_LOCAL_SERVER
//setting up the file types
adsSetFileType( ADS_CDX )
// resto de sets
AdsRightsCheck( .F. )
SET DELETED ON
aStruct := { { "NAME", "C", 15, 0 },;
{ "DATE", "D", 08, 0 },;
{ "TIME", "T", 08, 0 },;
{ "TEXTO", "C", 50, 0 } }
cFichero := hb_dirbase() + "MOISES.DBF"
FErase( cFichero )
nRet := DbCreate( cFichero, aStruct ) //, "DBFCDX" )
Alert( "DbCreate() " + cValToChar( nRet ) )
USE &cFichero NEW
APPEND BLANK
REPLACE FIELD->NAME WITH "Test Moises"
REPLACE FIELD->DATE WITH Date()
REPLACE FIELD->TEXTO WITH "Bla bla bla"
DbGoTop()
Browse()
DbCloseAll()
QUIT
RETURN NIL
Any clue?.
Thank you.
Saludos / Regards,
FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40