FiveTech Support Forums

#include "fivewin.ch"
#include "xbrowse.ch"
#include "hbcompat.ch"

REQUEST DBFCDX


function Main()

csvfile:=".\2013.txt"

Create_Db()

   USE WIN4LI.DBF NEW ALIAS DST

APPEND FROM ".\2013.txt"  SDF



REturn Nil 



Function Create_Db()
  //-------------------------------------//
DBCREATE('LI.DBF',{{'CONCORSO','N',004,000},;
         {'DATA','D',008,000},;
                   {'TIME','C',005,000},;
                   {'ESTRA1','N',002,000},;
                   {'ESTRA2','N',002,000},;
                   {'ESTRA3','N',002,000},;
                   {'ESTRA4','N',002,000},;
                   {'ESTRA5','N',002,000},;
                   {'ESTRA6','N',002,000},;
                   {'ESTRA7','N',002,000},;
                   {'ESTRA8','N',002,000},;
                   {'ESTRA9','N',002,000},;
                   {'ESTRA10','N',002,000},;
                   {'NUMERONE','N',002,000}}, 'DBFCDX') 

  close all
      use &('LI') new
      select LI
      if FILE('wIN4LI.DBF')
         delete file &('wIN4LI.cdx')
         append from &('WIN4LI')
         dbcommitall()
         close all
         delete file &('WIN4LI.dbf')
      endif
      close all
      rename &('LI.dbf') to &('WIN4LI.dbf')

  //-------------------------------------//
      Return nil