Histórico da Página

STATIC FUNCTION CreateTable()
  TCDelFile('T1')
  
  DBCreate('T1', {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE"   , "C", 10, 0}}, 'TOPCONN')
RETURN

FUNCTION Example()
  Local cT1 := "T1"
  
  TCLink()
  
  CreateTable()

  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name2"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name3"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  DBGoTop()
  DBSkip(-1)
  
  if Bof() == .T.
    conout("InicioInício da Tabela/Arquivo")
  endif
 
  DBCloseArea()
  
  TCUnlink()
RETURN