28 lines
595 B
QBasic
28 lines
595 B
QBasic
' tb-screen: 80x25
|
|
' tb-tempdir
|
|
' Weitere Bindungen sehen dieselbe Transaktion; CLOSE schreibt nicht fest.
|
|
TYPE R
|
|
Nr AS INTEGER
|
|
END TYPE
|
|
DIM r AS R
|
|
ON ERROR GOTO Handler
|
|
OPEN "open.isam" FOR ISAM R "Alt" AS #1
|
|
BEGINTRANS
|
|
r.Nr = 1
|
|
INSERT #1, r
|
|
OPEN "open.isam" FOR ISAM R "Alt" AS #2
|
|
PRINT "sichtbar="; LTRIM$(STR$(LOF(2)))
|
|
OPEN "open.isam" FOR ISAM R "Neu" AS #3
|
|
INSERT #3, r
|
|
CLOSE
|
|
ROLLBACK ALL
|
|
OPEN "open.isam" FOR ISAM R "Alt" AS #1
|
|
PRINT "nach Ruecknahme="; LTRIM$(STR$(LOF(1)))
|
|
DELETETABLE "open.isam", "Neu"
|
|
CLOSE
|
|
PRINT "fertig"
|
|
END
|
|
Handler:
|
|
PRINT "ERR="; LTRIM$(STR$(ERR))
|
|
RESUME NEXT
|