PB中，如何定时清空数据库，比如每天的12:00:00清空数据库

PB中，如何定时清空数据库，比如每天的12:00:00清空数据库

在主窗口里面的 timer事件中写代码
string ls_time
string ls_sql
ls_time =string(now(),'HH:MM:SS')
if ls_time='12:00:00' then
ls_sql = 'truncate table1'
execute immediate :ls_sql;
end if
end if
在窗口的Open 事件里面代码:
timer(1)

你所谓的“pb自带的数据库”应该指的是adaptive server anywhere数据库，如果你安装了adaptive server anywhere，那么就：开始菜单-程序-sybase-sybase central，在界面的主菜单中tools-connect，输入用户名和密码，打开你的库。 当然，你也可以在pb环境中建立好连接，然后用shift+f7打开数据库画板，一样可以完成你想要的操作。

做定时清空,实际上两个程序,一个是引子,是个执行:这是我每天下班前自动打开网页和邮箱的程序供你参考 Private Sub auto_open() Application.OnTime TimeValue("16:50:00"), "my_Procedure" End Sub Public Sub my_Procedure() Shell "C:\Program Files\Internet Explorer\iexplore.exe", 1 Shell "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE", 1 End Sub 如果想当然的把这两个合在一起是无法运行的