bs-sql-composer

A library for SQL composition in BucklesScript

Usage

Basic Select

  SqlComposer.Select.(
    select
    |. field("*")
    |. from("test")
    |. to_sql
    |. Js.log
  );

[@@@ocaml.ppx.context { cookies = [] }]
let _ =
  let open SqlComposer.Select in
    (((select |. (field (("*")[@reason.raw_literal "*"]))) |.
        (from (("test")[@reason.raw_literal "test"])))
       |. to_sql)
      |. Js.log

SELECT
  *
FROM test
WHERE 1=1

Where Clause

  SqlComposer.Select.(
    select
    |. field("*")
    |. from("test")
    |. where("AND test.foo = ?")
    |. to_sql
    |. Js.log
  );

[@@@ocaml.ppx.context { cookies = [] }]
let _ =
  let open SqlComposer.Select in
    ((((select |. (field (("*")[@reason.raw_literal "*"]))) |.
         (from (("test")[@reason.raw_literal "test"])))
        |.
        (where (("AND test.foo = ?")[@reason.raw_literal "AND test.foo = ?"])))
       |. to_sql)
      |. Js.log

SELECT
  *
FROM test
WHERE 1=1
AND test.foo = ?

Join Clause

  SqlComposer.Select.(
    select
    |. field("*")
    |. from("test")
    |. join("JOIN foo ON test.foo_id = foo.id")
    |. to_sql
    |. Js.log
  )

SELECT
  *
FROM test
JOIN foo ON test.foo_id = foo.id
WHERE 1=1

Adding to a base query

  let base_query = SqlComposer.Select.(
    select
    |. from("test")
    |. field("foo")
    |. field("bar")
  );

  SqlComposer.Select.(
    base_query
    |. where("AND test.foo = ?")
    |. to_sql
    |. Js.log
  );

[@@@ocaml.ppx.context { cookies = [] }]
let base_query =
  let open SqlComposer.Select in
    ((select |. (from (("test")[@reason.raw_literal "test"]))) |.
       (field (("foo")[@reason.raw_literal "foo"])))
      |. (field (("bar")[@reason.raw_literal "bar"]))
let _ =
  let open SqlComposer.Select in
    ((base_query |.
        (where (("AND test.foo = ?")[@reason.raw_literal "AND test.foo = ?"])))
       |. to_sql)
      |. Js.log

SELECT
  foo
, bar
FROM test
WHERE 1=1
AND test.foo = ?

Alias a field

SqlComposer.Select.(
  select
  |. from("test")
  |. field("foo AS bar")
  |. to_sql
  |. Js.log
);

[@@@ocaml.ppx.context { cookies = [] }]
let _ =
  let open SqlComposer.Select in
    (((select |. (from (("test")[@reason.raw_literal "test"]))) |.
        (field (("foo AS bar")[@reason.raw_literal "foo AS bar"])))
       |. to_sql)
      |. Js.log

SELECT
  foo AS bar
FROM test
WHERE 1=1

Order By

SqlComposer.Select.(
  select
  |. from("test")
  |. field("*")
  |. order_by(`Asc("foo"))
  |. order_by(`Desc("bar"))
  |. to_sql
  |. Js.log
);

SqlComposer.Select.(
  select
  |. from("test")
  |. field("*")
  |. order_by(`Asc("foo"))
  |. order_by(`Desc("bar"))
  |. to_sql
  |. Js.log
);

SELECT
  *
FROM test
WHERE 1=1
ORDER BY
  foo ASC
, bar DESC

Group By

SqlComposer.Select.(
  select
  |. from("test")
  |. field("foo AS bar")
  |. group_by("foo")
  |. group_by("thing")
);

[@@@ocaml.ppx.context { cookies = [] }]
let _ =
  let open SqlComposer.Select in
    (((select |. (from (("test")[@reason.raw_literal "test"]))) |.
        (field (("foo AS bar")[@reason.raw_literal "foo AS bar"])))
       |. (group_by (("foo")[@reason.raw_literal "foo"])))
      |. (group_by (("thing")[@reason.raw_literal "thing"]))

SELECT
  foo AS bar
FROM test
WHERE 1=1
GROUP BY
  foo
, thing

Select Distinct

SqlComposer.Select.(
  select
  |. field("foo")
  |. from("test")
  |. modifier(`Distinct)
);

[@@@ocaml.ppx.context { cookies = [] }]
let _ =
  let open SqlComposer.Select in
    ((select |. (field (("foo")[@reason.raw_literal "foo"]))) |.
       (from (("test")[@reason.raw_literal "test"])))
      |. (modifier `Distinct)

SELECT DISTINCT
  foo
FROM test
WHERE 1=1

How do I install it?

Inside of a BuckleScript project:

yarn install --save bs-sql-composer

Then add bs-sql-composer to your bs-dependencies in bsconfig.json:

{
  "bs-dependencies": [ "bs-sql-composer" ]
}