Ocaml db access

test_db.ml

open Sqlite3

let result = ref []

let sqls =
  ["select id || ' ' || name || ' ' || address from x"; "select id from x"]

let _ =
  let db = db_open "t" in
  sqls
  |> List.iter (fun sql ->
         print_endline sql ;
         print_endline "----------------------" ;
         let _ =
           exec db sql ~cb:(fun row _ ->
               match row.(0) with Some a -> result := a :: !result | _ -> () )
         in
         () ; print_endline " " ) ;
  (* print the results *)
  !result |> List.iter (fun x -> Printf.printf "%S\n" x)