xgyyZcV5

1let conn = Connection.make ~host:"127.0.0.1" ~port:3306 ~user:"root" ()
2
3let test_handler = function
4  | Driver.Error e ->
5    let _ = Js.log "ERROR: " in Js.log e
6  | Driver.Select s ->
7    let _ = Js.log "Select: " in Js.log s
8  | Driver.Mutation m ->
9    let _ = Js.log "Mutation: " in Js.log m
10
11
12let _ = MySql.raw conn "SHOW DATABASES" test_handler
13
14let table_sql = {|
15  CREATE TABLE IF NOT EXISTS test.simple (
16    id bigint(20) NOT NULL AUTO_INCREMENT
17  , code varchar(32) NOT NULL
18  , PRIMARY KEY(id)
19  )
20|}
21
22let _ = MySql.raw conn table_sql test_handler
23
24let simple_insert_sql = "INSERT INTO test.simple (code) VALUES ('foo')"
25
26let _ = MySql.raw conn simple_insert_sql test_handler
27
28let simple_update_sql = "UPDATE test.simple SET code='foo2' WHERE code='foo'"
29
30let _ = MySql.raw conn simple_update_sql test_handler
31
32let _ = MySql.raw
33  conn
34  "SELECT NULL FROM test.simple WHERE false"
35  test_handler
36
37let _ = MySql.raw conn "SELECT * FROM test.simple" test_handler
38
39let _ = Connection.end_ conn