adamc@410: table t : { A : int, B : float, C : string, D : bool }
adamc@708: PRIMARY KEY A
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@434: dml (INSERT INTO t (A, B, C, D)
adamc@471: 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@471: 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: