IDC资讯中心
备份数据库
backupdataname数据库存放的绝对路径
function backupdata(byval backupdataname as string) as string
dim conn as new sqlclient.sqlconnection(modconn.getconn)
dim myselectquery as string = "backup database popcrm to disk =" & backupdataname & ""
dim myreader as sqlclient.sqldatareader
dim cmd as new sqlcommand(myselectquery, conn)
if conn.state = connectionstate.closed then conn.open()
try
cmd.executenonquery()
backupdata = ""
catch exsql as sqlexception
if exsql.number = 3201 then
backupdata = "请正确输入备份文件的存放路径！"
else
backupdata = exsql.message
end if
catch ex as exception
backupdata = ex.message
end try
cmd.connection.close()
cmd.dispose()
conn.dispose()
end function
