www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Code: Select all | Expand
COPY STRUCTURE TO cnewdbfCode: Select all | Expand
method dbCopyStruct(cDataBase, aFieldList) inline ( ::cAlias )->(__dbCopyStruct(cDataBase, aFieldList))Code: Select all | Expand
// C:\FHW\SAMPLES\DBSTRUCT.PRG
#include "FiveWin.ch"
// Require: RDD.LIB
FUNCTION Main()
/*
// Create a new file that contain part of the original structure
LOCAL aList
USE TEST
aList := { "STATE" }
// dbCopyStruct( "ONLYNAME.dbf", aList ) // xHarbour only
__dbCopyStruct( "ONLYNAME.dbf", aList ) // Harbour / xHarbour
*/
// .and.
// Open a database, then copy its structure to a new file,
// Open the new file and list all its records
USE Test
// dbCopyXStruct( "TestStru" ) // xHarbour Only
__dbCopyXStruct( "TestStru" ) // xHarbour .AND. Harbour
USE TestStru
BROWSE()
RETURN NIL
// FIN / END
Code: Select all | Expand
Harbour:
C:\HBBCC74\src\rdd
03/04/2020 19:58 5.900 dbstrux.prg
xHarbour:
C:\XHBBCC74\source\rdd
25/02/2020 13:20 13.638 dbstrux.prg