DbAppend(): Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
(6 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 3: | Zeile 3: | ||
Die DbAppend() Funktion ermöglicht es einen neuen, leeren Datensatz an das Ende einer DBF-Datei zu hängen. | 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 == | == Syntax == | ||
DbAppend( [<nLockMode>] ) --> NIL | DbAppend( [<nLockMode>] ) --> NIL | ||
== Parameter == | == 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 == | == Querverweise == | ||
Zeile 21: | 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(.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 43: | Zeile 44: | ||
ENDIF | ENDIF | ||
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