DbAppend()

Aus Wiki des Deutschsprachige Xbaseentwickler e. V.
Zur Navigation springen Zur Suche springen

Allgemeines

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

Als Gegenstück kann auch APPEND BLANK verwendet werden.

Syntax

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

Parameter

<nLockMode> Wenn für <nLockMode> der Wert 1 gesetzt wird, bleiben Satzsperren bestehen, die beim Aufruf von DbAppend() gesetzt waren. Im anderen Fall werden alle, zu dem Zeitpunkt vorhandenen Satzsperren, aufgehoben.

Querverweise

benötigte DLLs bzw. Include-Dateien

Anwendungsbeispiel

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

           CLS
           DbUseArea(.T.,,"artikel","art")

           art->(DbSetIndex("ArtikelA"))
           art->(DbSetIndex("ArtikelB"))
       
           @ 12,5 SAY "Nummer     :" GET cArtNo   PICTURE "99999999"
           @ 13,5 SAY "Bezeichnung:" GET cArticle PICTURE "@K !" + Repl("X",19)
           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