DbAppend(): Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
| Zeile 22: | Zeile 22: | ||
== Anwendungsbeispiel == | == Anwendungsbeispiel == | ||
PROCEDURE Main | [[PROCEDURE]] [[Main]] | ||
LOCAL cArticle := Space(50) | [[LOCAL]] cArticle := [[Space()|Space]](50) | ||
LOCAL cArtNo := Space(10) | LOCAL cArtNo := Space(10) | ||
CLS | CLS | ||
[[DbUseArea()|DbUseArea(.T.,,"artikel","art") | [[DbUseArea()|DbUseArea]](.T.,,"artikel","art") | ||
art->(DbSetIndex("ArtikelA")) | art->[[DbSetIndex()|(DbSetIndex]]("ArtikelA")) | ||
art->(DbSetIndex("ArtikelB")) | art->(DbSetIndex("ArtikelB")) | ||
@ 12,5 SAY "Nummer :" GET cArtNo PICTURE "99999999" | @ 12,5 [[SAY]] "Nummer :" [[GET]] cArtNo [[PICTURE]] "99999999" | ||
@ 13,5 SAY "Bezeichnung:" GET cArticle PICTURE "@K !" + Repl("X",19) | @ 13,5 SAY "Bezeichnung:" GET cArticle PICTURE "@K !" + Repl("X",19) | ||
READ | [[READ]] | ||
IF ! Empty( cArtNo + cArticle ) | [[IF]] [[!]] [[Empty()|Empty]]( cArtNo + cArticle ) | ||
art->(DbAppend()) | art->(DbAppend()) | ||
IF NetErr() | IF [[NetErr()]] | ||
? "Datensatz konnte nicht erzeugt werden" | ? "Datensatz konnte nicht erzeugt werden" | ||
ELSE | ELSE | ||
| Zeile 45: | Zeile 45: | ||
ENDIF | ENDIF | ||
art->([[DbCloseArea()]]) | art->([[DbCloseArea()]]) | ||
RETURN | [[RETURN]] | ||
Aktuelle Version vom 15. Juni 2013, 10:47 Uhr
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