DbAppend(): Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
(→Syntax) |
|||
| Zeile 20: | Zeile 20: | ||
== Anwendungsbeispiel == | == 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 | |||
Version vom 26. Mai 2013, 16:33 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)
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