let convert_to_db old dbms = let db = SQL_db.create_empty () in List.iter (convert_table db dbms) old.sch_tables; db