DbAppend()

Allgemeines

Die DbAppend() Funktion ermöglicht es einen neuen, leeren Datensatz an das Ende einer DBF-Datei zu hängen.

Syntax

DbAppend( [<nLockMode>] ) --> NIL

Anwendungsbeispiel

PROCEDURE Main

         LOCAL cArticle := Space(50) 
         LOCAL cArtNo   := Space(10)

         DbUseArea(.T.,,"artikel","art")
         art->(DbSetIndex("ArtikelA"))
         art->(DbSetIndex("ArtikelB"))

         CLS 
         @ 10,5 SAY "Artikel Nummer     :" GET cArtNo 
         @ 11,5 SAY "Artikel Bezeichnung:" GET cArticle 
         READ 

         IF ! Empty( cArtNo + cArticle ) 
            art->(DbAppend())
            IF NetErr() 
               ? "Datensatz konnte nicht erzeugt werden" 
            ELSE 
               art->ArtNo   := cArtNo
               art->Artikel := cArticle 
            ENDIF 
         ENDIF 
         art->(DbCloseArea())
         RETURN