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: | A | B | C | D |
adamc@410: {rows}
adamc@410:
adamc@410:
adamc@410:
adamc@410:
adamc@410:
adamc@410:
adamc@410:
adamc@410: and add r =
adamc@410: () <- dml (INSERT INTO t (A, B, C, D)
adamc@410: 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@410: () <- dml (DELETE FROM t
adamc@410: 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: