adamc@410: table t : { A : int, B : float, C : string, D : bool } adamc@410: adamc@410: fun list () = adamc@410: rows <- queryX (SELECT * FROM t) adamc@410: (fn row => adamc@410: {[row.T.A]} {[row.T.B]} {[row.T.C]} {[row.T.D]} adamc@410: [delete] adamc@410: ); adamc@410: return adamc@410: adamc@410: adamc@410: {rows} adamc@410:
A B C D
adamc@410: adamc@410:


adamc@410: adamc@410:
adamc@410: adamc@410: adamc@410: adamc@410: adamc@410: adamc@410: adamc@410:
A:
B:
C:
D:
adamc@410:
adamc@410:
adamc@410: adamc@410: and add r = adamc@434: dml (INSERT INTO t (A, B, C, D) adamc@434: VALUES ({readError r.A}, {readError r.B}, {r.C}, {r.D})); adamc@410: xml <- list (); adamc@410: return adamc@410:

Row added.

adamc@410: adamc@410: {xml} adamc@410:
adamc@410: adamc@410: and delete a = adamc@434: dml (DELETE FROM t adamc@434: WHERE t.A = {a}); adamc@410: xml <- list (); adamc@410: return adamc@410:

Row deleted.

adamc@410: adamc@410: {xml} adamc@410:
adamc@410: adamc@410: fun main () = adamc@410: xml <- list (); adamc@410: return adamc@410: {xml} adamc@410: