请教怎么用pb实现删除oracle数据库中的表数据，但是不删除表结构

请问如何用pb实现删除oracle数据库中的表数据，但是不删除表结构
您好：
   
  请问：如何删除oracle中的表数据，但是还不能同时删除表结构。假设数据库中有很多表，而且每个表都有大量的数据。
  谢谢！

------解决方案--------------------
truncate table tb;
commit;
------解决方案--------------------
string ls_sql

ls_sql = 'truncate table table_name'
execute immediate :ls_sql using sqlca;

if sqlca.sqlcode = 0 then
messagebox('提示', '成功')
commit using sqlca;
else
messagebox('提示', '失败')
rollback using sqlca;
end if
------解决方案--------------------
string Mysql

Mysql="truncate table yourtable" 

EXECUTE IMMEDIATE :Mysql ;

truncat是ddl不需要commit