一备份程序在窗体上建一文本框sle_1，用来显示备份的文件名，并添加两个按钮：cb_1(浏览)、cb_2(备份)。相应的事件代码如下：//cb_1.clicked()stringfname,nameGetfileSaveName('保存',fname,name,“db”,'数据库备份文件(*.1),*.1')sle_1.text=fname//cb_2.clicked()stringmysql,bfnamebfname=trim(sle_1.text)bfname=left(bfname,len(bfname)-2)mysql=“BACKUPDATABASETO'”bfname“'”executeimmediate:MysqlUSINGSQLCA;//运用SQL语句立刻执行备份ifsqlca.sqlcode=0thenmessagebox(“信息提示”,'备份成功！',information！,OK！)//给出备份成功与否的相关信息elsemessagebox(“信息提示”,'备份失败！',information！,OK！)endif二恢复程序在窗体上建一文本框sle_1，显示用来恢复的备份文件名，并添加两个按钮：cb_1(查找)、cb_2(恢复)。声明一个修改文件属性的API函数：FUNCTIONulongSetFileAttributes(refstringlpFileName,ulongdwFileAttributes)LIBRARY“kernel32.dll”ALIASFOR“SetFileAttributesA”相应的事件代码如下：//cb_1.clicked()stringfname,nameGetfileOPenName('查找',fname,name,“1”,“数据库备份文件(*.1),*.1”)sle_1.text=fname//cb_2.clicked()stringmysql,bfname,gznameulongsxz=32,kb//sxz为文件的属性值，32
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
示可读写booleantmpbfname=trim(sle_1.text)bfname=left(bfname,len(bfname)-2)//d:\slgz为示例中数据库文件所在目录，tmp.db为临时的数据库文件mysql=“RESTOREDATABASE'd:\slgz\tmp.db'FROM'”bfname“'”executeimmediate:MysqlUSINGSQLCA;//同样是运用SQL语句来立刻执行恢复数据库的工作ifsqlca.sqlcode＜＞0thenmessagebox(“信息提示”,'数据恢复失败！',information！,OK！)returnendifdisconnect;//断开数据库连接gzname='d:\slgz\gz.db'//包含路径的数据库文件SetFileAttributes(gzname,sxz)//去掉只读属性tmp=filedelete('d:\slgz\gz.db')//删除恢复前的数据库iftmp=falsethenmessagebox(“信息提示”,'备份失败！',information！,OK！)returnendif//将临时的数据库复制到当前的数据库文件上bfname=“d:\slgz\tmp.db”gzname=“d:\slgz\gz.db”kb=filecopy(bfname,gzname,true)ifkb=1thenmessagebox(“信息提示”,'数据库恢复成功！',information！,OK！)elsemessagebox(“信息提示”,'数据库复制失败！',information！,OK！)returnendiffiledelete('d:\slgz\tmp.db')//删除临时的数据库文件connect;
浙公网安备 33021202002483