DbAppend(): Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
| Zeile 21: | Zeile 21: | ||
== Anwendungsbeispiel == | == Anwendungsbeispiel == | ||
PROCEDURE Main | 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 | |||
Version vom 26. Mai 2013, 16:40 Uhr
Allgemeines
Die DbAppend() Funktion ermöglicht es einen neuen, leeren Datensatz an das Ende einer DBF-Datei zu hängen.
Syntax
DbAppend( [<nLockMode>] ) --> NIL
Parameter
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