module type DBI_DRIVER =sig..end
type 
val connect : ?host:string ->
       ?port:string ->
       ?user:string ->
       ?password:string -> string -> connection
val close : connection -> unit
val closed : connection -> bool
val commit : connection -> unit
val ping : connection -> bool
val rollback : connection -> unit
        