53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_AppendFrom()
|
|
DEMO APPEND FROM DBF FILE
|
|
|
|
Option for VIA Clause:
|
|
SDENTX 1 CA-Clipper DBT/NTX driver
|
|
SDEFOX 2 FoxPro FPT/IDX/CDX driver
|
|
SDENSX 3 Six SMT/NSX driver
|
|
SDENSX_DBT 4 CA-Clipper DBT with NSX indexes
|
|
COMMA_DELIM 21 Comma-Delimited Text File
|
|
SDF_FILE 22 Space-Delimited (SDF) Text File
|
|
TAB_DELIM 23 Tab-Delimited Text File
|
|
OEMNTX 31 Source SDENTX file translated from OEM
|
|
OEMFOX 32 Source SDEFOX file translated from OEM
|
|
OEMNSX 33 Source SDENSX file translated from OEM
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cSource := "test\test.dbf"
|
|
LOCAL n := seconds()
|
|
|
|
?
|
|
? 'USE cSource'
|
|
? 'COPY STRUCTURE TO sixtest'
|
|
? 'CLOSE DATABASE'
|
|
? 'USE "sixtest"'
|
|
? 'APPEND FROM cSource'
|
|
|
|
USE cSource
|
|
COPY STRUCTURE TO sixtest.dbf
|
|
CLOSE DATABASE
|
|
USE "sixtest"
|
|
APPEND FROM cSource
|
|
// APPEND FROM cSource FOR STATE='IA' VIA SDENSX
|
|
?
|
|
? "Start =", n
|
|
? "Finished =", seconds()
|
|
? "Time =", seconds() - n
|
|
?
|
|
? "BROWSE ... Press any key ..."
|
|
PAUSE
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|
|
CLS
|