citect 2018 使用cicode脚本备份sql server数据库

前两天练习过在citect2018使用cicode将记录写入sql server数据库，有时候我们希望数据库可以定期备份，这个工作可以在sql server管理器中设置，也可以在citect2018使用脚本来实现。

还是基于前一个练习的数据库myDB,新建一个cicode函数

FUNCTION backupdatabase()
INT hSQL;
STRING SqlAction;
STRING strdate;
strdate=TimeToStr(TimeCurrent(),3);
SqlAction= "backup database myDB TO disk='d:\backupdb\"+strdate+".bak'"
hSQL = SQLConnect("DSN=myRecord;UID=sa;PWD=sa");
IF hSQL <> -1 THEN
SQLExec(hSQL, SqlAction);
SQLDisconnect(hSQL);
END