type date = Dbi.date = { year : int; month : int; day : int; }
type time =
  Dbi.time = {
  hour : int;
  min : int;
  sec : int;
  microsec : int;
  timezone : int option;
}
type datetime = date * time
module Decimal :
  sig
    type t = Dbi.Decimal.t
    val to_string : t -> string
    val to_float : t -> float
    val of_string : ?scale:int -> string -> t
    val of_int : ?scale:int -> int -> t
    val add : t -> t -> t
    val sub : t -> t -> t
    val mul : t -> t -> t
    val div : t -> t -> t
    val compare : t -> t -> int
  end
type sql_t =
    [ `Bigint of Big_int.big_int
    | `Binary of string
    | `Bool of bool
    | `Date of date
    | `Decimal of Decimal.t
    | `Float of float
    | `Int of int
    | `Interval of datetime
    | `Null
    | `String of string
    | `Time of time
    | `Timestamp of datetime
    | `Unknown of string ]
val sql_t_to_string : sql_t -> string
val sdebug : sql_t list -> string
val intoption : int option -> sql_t
val stringoption : string option -> sql_t
type precommit_handle = Dbi.precommit_handle
type postrollback_handle = Dbi.postrollback_handle
val string_escaped : string -> string
val placeholders : int -> string
exception SQL_error of string
class virtual statement :
  connection ->
  object
    method connection : connection
    method virtual execute : sql_t list -> unit
    method virtual fetch1 : unit -> sql_t list
    method fetch1bool : unit -> bool
    method fetch1hash : unit -> (string * sql_t) list
    method fetch1int : unit -> int
    method fetch1string : unit -> string
    method fetchall : unit -> sql_t list list
    method finish : unit -> unit
    method fold_left : ('a -> sql_t list -> 'a) -> 'a -> 'a
    method fold_right : (sql_t list -> 'b -> 'b) -> 'b -> 'b
    method iter : (sql_t list -> unit) -> unit
    method map : (sql_t list -> 'c) -> 'c list
    method virtual names : string list
    method virtual serial : string -> int
  end
and virtual connection :
  ?host:string ->
  ?port:string ->
  ?user:string ->
  ?password:string ->
  string ->
  object
    method close : unit -> unit
    method closed : bool
    method commit : unit -> unit
    method database : string
    method virtual database_type : string
    method debug : bool
    method ex : string -> sql_t list -> statement
    method host : string option
    method id : int
    method password : string option
    method ping : unit -> bool
    method port : string option
    method virtual prepare : string -> statement
    method prepare_cached : string -> statement
    method register_postrollback : (unit -> unit) -> postrollback_handle
    method register_precommit : (unit -> unit) -> precommit_handle
    method rollback : unit -> unit
    method set_debug : bool -> unit
    method unregister_postrollback : postrollback_handle -> unit
    method unregister_precommit : precommit_handle -> unit
    method user : string option
  end
val split_query : string -> string list
val make_query :
  string -> (sql_t -> string) -> string list -> sql_t list -> string