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

答案:3 悬赏:20 手机版

解决时间 2021-02-05 12:01

提问者网友：难遇难求
2021-02-05 03:56

最佳答案

五星知识达人网友：独行浪子会拥风
2021-02-05 04:42

在主窗口里面的 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)

全部回答

1楼网友：污到你湿
2021-02-05 06:17

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

2楼网友：掌灯师
2021-02-05 05:34

做定时清空,实际上两个程序,一个是引子,是个执行:这是我每天下班前自动打开网页和邮箱的程序供你参考 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 如果想当然的把这两个合在一起是无法运行的

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息