This is an old revision of the document!
PROCEDURE DELETE_ROWS ( p_table_name IN varchar2) IS statement_cursor integer; rows_del number; BEGIN statement_cursor := dbms_sql.open_cursor; dbms_sql.parse(statement_cursor, 'delete from '||p_table_name, dbms_sql.native); rows_del := dbms_sql.execute(statement_cursor); -- dbms_sql.fetch_rows dbms_output.put_line('zeilen geloescht '||rows_del); dbms_sql.close_cursor(statement_cursor); END; -- Procedure
PROCEDURE COUNT_ROWS ( p_table_name in varchar2 ) IS row_count number; sql_code varchar2(1000); BEGIN sql_code := 'select count(*) from '||p_table_name; -- objekt namen koennen nicht als bind variablen verwendet werden execute immediate sql_code into row_count; dbms_output.put_line(p_table_name ||' contains ' ||row_count||' rows'); END; -- Procedure