table t : { A : int, B : float, C : string, D : bool }
fun list () =
rows <- queryX (SELECT * FROM t)
(fn row =>
| {[row.T.A]} | {[row.T.B]} | {[row.T.C]} | {[row.T.D]} |
[delete] |
);
return
and add r =
dml (INSERT INTO t (A, B, C, D)
VALUES ({[readError r.A]}, {[readError r.B]}, {[r.C]}, {[r.D]}));
xml <- list ();
return
Row added.
{xml}
and delete a =
dml (DELETE FROM t
WHERE t.A = {[a]});
xml <- list ();
return
Row deleted.
{xml}
fun main () =
xml <- list ();
return
{xml}