Fun_sqliteUse this module for SQLite database queries.
include Fun_sql.Query_sig
with type ('row, 'r) ret = ('row, 'r) Fun_sql.Query.retConvenience for formatting query strings with placeholders. Eg
sql "select name from people where id = %a" placeholder 0type ('row, 'r) ret = ('row, 'r) Fun_sql.Query.retA decoder of a single row of the resultset from running a query.
val unit : ('row, unit) retunit indicates that the query doesn't return any meaningful output.
val ret : ('row -> 'r) -> ('row, 'r Stdlib.Seq.t) retret decode is a custom return type encoding for a resultset into a sequence of values of the type decoded by decode.
decode constructs a value of the custom type if possible, else raises Failure.
Note that the sequence rows of the resultset is unfolded as it is read from the database. It can only be traversed once, with e.g. List.of_seq or Seq.iter. If traversed multiple times, it will raise Failure.
include Fun_sql.Sql
with type db = Sqlite3.db
and type arg = Sqlite3.Data.t
and type row = Sqlite3.Data.t arrayA generic way to write placeholders for different database drivers' prepared statement parameters.
ℹ️ Placeholders are 0-indexed.
val query : db -> string -> arg list -> (row, 'r) Fun_sql.Query.ret -> 'rThe main function through which queries are run is the query function. This function always creates a prepared statement for each partial call to query db sql. This prepared statement can then be called with the actual arguments (if any) and the resultset row decoder:
let add_person =
query db (sql "insert into people (name, age) values (%a, %a)" placeholder 0 placeholder 1)
let add_person name age = add_person Arg.[text name; int age] unitval exec_script : db -> string -> unitexec_script db sql executes the sql script (possibly made up of multiple statements) in the database db. Note that it ignores any rows returned by any of the statements.
The script must not have a trailing semicolon.
These encode OCaml data as data to be bound to the query statement.
module Arg : sig ... endval int : int -> row -> intval bool : int -> row -> boolval int64 : int -> row -> int64val float : int -> row -> floatval text : int -> row -> stringAlso handles values of all other types. Use this when SQLite can change the exact type of value it returns at runtime, e.g. for very large numbers it can return text.
include Fun_sql.S with type db := db and type arg := argval migrate : db -> string -> unitmigrate db dir applies the SQL migration scripts in dir on the given database db, keeping track of those that have already been applied.
To apply the migrations in the correct order, the migration scripts must be given filenames that are sorted in lexicographical order of the desired migration order, e.g. 0000_0001_init.sql will be applied before 0000_0002_sec.sql, and so on.
Note that this uses exec_script internally, which means the migration scripts must not have trailing semicolons either.
Any files with extensions other than .sql are ignored.
val transaction : db -> (unit -> 'r) -> 'rtransaction db f runs f () inside a transaction in the db. If the operation succeeds, it commits the transaction and returns its result. If it fails with an exception, it rolls back the transaction and re-raises the exception.
batch_insert db sql objs obj_args ret inserts into the database db, running the query sql, the row tuples obtained by encoding the list of objs using the obj_args function.
This prepares a new statement each time because the VALUES (...) clause may contain different numbers of placeholders in each call.
The return type of the query is decoded by ret.