GBase 如何批量清空某数据库中部分表的数据？

编写一个存储过程来实现：

dropprocedureifexiststruncate_tables;

delimiter//

CREATEPROCEDUREtruncate_tables(db_namevarchar(50))// 根据情况可以增加参数

BEGIN

DECLAREdoneINTDEFAULT0;

DECLAREtnamevarchar(50);

DECLAREcur1CURSORFORSELECTtable_namefromINFORMATION_SCHEMA.TABLESWHERE

table_schema=db_name;// 根据情况修改条件

DECLARECONTINUEHANDLERFORSQLSTATE'02000'SETdone=1;

OPENcur1;

REPEAT

FETCHcur1INTOtname;

IFNOTdoneTHEN

set@str=concat('truncatetable',tname);

preparestmt1from@str;

executestmt1;

deallocatepreparestmt1;

ENDIF;

UNTILdoneENDREPEAT;

CLOSEcur1;

END//