请问有用JSP写过下面这个程序的,可以帮我贴下你的代码吗?或说下你的思路,先谢过了
功能如下:
维护WEB和数据库服务器,备分和存档数据库
(数据库名为A)
功能如下:
维护WEB和数据库服务器,备分和存档数据库
(数据库名为A)
解决方案 »
- 大家看看,求解 汉若塔
- 正则表达式中加号和问号连在一起是什么意思?
- 求一个JAVA高手帮助解决一下EXCEL表格存入数据库问题?
- 求助,读取文件问题
- 一个类初始化顺序的小问题
- 小弟是JAVA的初学者..希望和大家一起交流和学习....群号:13265465
- 毕业设计
- 就一个String就搞死我了``
- Lend me a hand, how to set a timer in my program
- 运行java * ,出现Exception in thread "main" java.lang.NoClassDefFoundError:
- java 的帮助文件在那找? 像.net 的MSDN一样?
- 如何取得图象的高度和宽度?
我自己写的备份函数如下:
Public Function DBBackup() As Boolean
Dim sFile As String
Dim sSQL As String
Dim lTimeOut As Long
Dim adoTempRS As ADODB.Recordset
On Error GoTo ErrHadller
With gDBRecordConn '本连接为ADODB.Recordset类型的连接
'函数gclsInclude.MyGetFileName的功能是得到要备份的程序文件名称,会显示保存画面
sFile = gclsInclude.MyGetFileName(False, _
"数据库备份文件 (*.BAK)|*.bak", , _
gTAppLicInfo.FileDBRestore, _
"请选择存储的数据库备份文件 ")
If sFile <> "" Then '如果文件名称和路径合法的话,函数gclsInclude.MyGetFileName会返回一个非空的字符串
DoEvents '给鼠标足够的时间显示漏斗状态
Screen.MousePointer = vbHourglass '鼠标显示漏斗为忙的状态
DoEvents
gclsCommon.CBNSplashShow '本函数将出现一个画面,显示备份的进度
gclsCommon.CBNSplashSetMessage "正在备份数据库" '在进度上面显示“正在备份数据库……”的文字动画
DoEvents '给函数gclsCommon.CBNSplashShow足够的时间显示文字动画
sSQL = "USE master" '使用master数据库进行工作
.Execute sSQL '同上
'看一下当前有那些系统设备在使用 gTAppLicInfo.SoftSQLDBase 数据库,其中,gTAppLicInfo.SoftSQLDBase 数据库是被备份的SQL数据库名称
Set adoTempRS = gDBRecordConn.Execute("SELECT * FROM sysdevices WHERE name = '" & gTAppLicInfo.SoftSQLDBase & "'")
If adoTempRS.RecordCount = 0 Then '如果没有人在使用要备份的数据库,则建立一个类型为disk的设备,同时开辟一个备份文件名称
sSQL = "EXEC sp_addumpdevice 'disk', '" & gTAppLicInfo.SoftSQLDBase & "','" & sFile & "'"
.Execute sSQL
End If
'由于备份的时间比较长,因此要将ADO连接gDBRecordConn的命令超时延长,但要先将以前的超时使用变量lTimeOut保存下来
lTimeOut = gDBRecordConn.CommandTimeout
'根据需要将超时定为需要的值,这里是500
.CommandTimeout = 500
'开始备份数据库……
sSQL = "BACKUP DATABASE " & gTAppLicInfo.SoftSQLDBase & " TO " & gTAppLicInfo.SoftSQLDBase
.Execute sSQL
'备份完毕后将主ADO连接gDBRecordConn还原
sSQL = "USE " & gTAppLicInfo.SoftSQLDBase
.Execute sSQL
'将主ADO连接gDBRecordConn的超时设置还原
.CommandTimeout = lTimeOut
'如果没有任何错误,本函数将返回TRUE
DBBackup = True
End If
End With
ErrHadller:
If Err Then
MsgBox Error, vbCritical '如果出错,将显示错误
End If
' Resume Next
gclsCommon.CBNSplashUnload '将显示备份进度的Splash窗口卸载
gDBRecordConn.CommandTimeout = lTimeOut '还原连接的超时
Screen.MousePointer = vbNormal '鼠标显示正常
End Function