(* AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
*)
-type connection = MySQL_C of Mysql.dbd
+(* $Id$ *)
+
+type connection = MySQL_C of HMysql.dbd
| Postgres_C of Postgres.connection
| No_C
| Postgres_C c -> MQIPostgres.close c
| No_C -> ()
-let exec handle table cols ct cfl =
+let exec handle out table cols ct cfl =
match pgc handle with
- | MySQL_C c -> MQIMySql.exec c table cols ct cfl
- | Postgres_C c -> MQIPostgres.exec c table cols ct cfl
- | No_C -> [], ""
+ | MySQL_C c -> MQIMySql.exec (c, out) table cols ct cfl
+ | Postgres_C c -> MQIPostgres.exec (c, out) table cols ct cfl
+ | No_C -> []
let connected handle =
pgc handle <> No_C