Vb6NY8rc

1----AMB CURSORS----
2create database if not exists Control_cursor;
3use Control_cursor;
4delimiter !!
5create procedure Crear_taula_control()
6begin
7declare done tinyint default 0;
8declare tmptable_schema varchar(20);
9declare tmptable_name varchar(20);
10declare tmptable_rows int;
11declare c1 cursor for
12select table_schema,table_name,table_rows from information_schema.tables;
13declare continue handler for not found
14set done=true;
15
16drop table if exists taula_control;
17create table taula_control(
18table_schema varchar(20),
19table_name varchar(20),
20table_rows int
21);
22
23open c1;
24c1_loop:loop
25fetch c1 into tmptable_schema,tmptable_name,tmptable_rows;
26if(done)then
27leave c1_loop;
28end if;
29
30insert into taula_control values(tmptable_schema,tmptable_name,tmptable_rows);
31end loop c1_loop;
32close c1;
33end
34!!
35delimiter ;