DbAppend(): Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Keine Bearbeitungszusammenfassung |
|||
(9 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 | |||
== 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 19: | Zeile 21: | ||
== Anwendungsbeispiel == | == Anwendungsbeispiel == | ||
[[PROCEDURE]] [[Main]] | |||
[[LOCAL]] cArticle := [[Space()|Space]](50) | |||
LOCAL cArtNo := Space(10) | |||
CLS | |||
[[DbUseArea()|DbUseArea]](.T.,,"artikel","art") | |||
art->[[DbSetIndex()|(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()|Empty]]( cArtNo + cArticle ) | |||
art->(DbAppend()) | |||
IF [[NetErr()]] | |||
? "Datensatz konnte nicht erzeugt werden" | |||
ELSE | |||
art->ArtNo := cArtNo | |||
art->Artikel := cArticle | |||
ENDIF | |||
ENDIF | |||
art->([[DbCloseArea()]]) | |||
[[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