method foreach ?(params = [| |]) ?(sql = "") f = 
        let (cursor, _) = occi_execute_param_query stmt sql params in 
            try  ora_fetch_foreach cursor f
            with [End_of_file -> ()]