回复人:Jackyin(农民) (2001-5-11 18:19:00) 得20分
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim strSql As String
Dim strConn As String
Dim fileName As StringOn Error GoTo errEnd
strConn = "driver={sql server};server=wdawei;uid=sa;pwd="
conn.Open strConn
strSql = "RESTORE DATABASE orientTv FROM DISK='C:\WINDOWS\Desktop\最新东方台\DbOrientTv" & CStr(Format(Date, "m-d")) & ".bak'"
Label1.Visible = True
Label1.Caption = "正在恢复数据库,请稍侯......"
DoEvents
conn.Execute strSql
DoEvents
Label1.Caption = ""
DoEvents
conn.Close
Set conn = Nothing
MsgBox "导入本机数据库完成!", vbOKOnly Or vbInformation, "导入成功"
Exit SuberrEnd:
Label1.Caption = ""
MsgBox Err.Description, vbInformation, "Error"
conn.Close
Set conn = Nothing
Exit Sub
End Sub 以时间为备件文件名,这样就不会重复.
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim strSql As String
Dim strConn As String
Dim fileName As StringOn Error GoTo errEnd
strConn = "driver={sql server};server=wdawei;uid=sa;pwd="
conn.Open strConn
strSql = "RESTORE DATABASE orientTv FROM DISK='C:\WINDOWS\Desktop\最新东方台\DbOrientTv" & CStr(Format(Date, "m-d")) & ".bak'"
Label1.Visible = True
Label1.Caption = "正在恢复数据库,请稍侯......"
DoEvents
conn.Execute strSql
DoEvents
Label1.Caption = ""
DoEvents
conn.Close
Set conn = Nothing
MsgBox "导入本机数据库完成!", vbOKOnly Or vbInformation, "导入成功"
Exit SuberrEnd:
Label1.Caption = ""
MsgBox Err.Description, vbInformation, "Error"
conn.Close
Set conn = Nothing
Exit Sub
End Sub 以时间为备件文件名,这样就不会重复.
解决方案 »
- 如何修改字符串里某一个字符
- Select top 1 a from s where c>0
- 请问?
- 如何修改系统日期及时间啊
- 100分求解vb中调用带参数的存储过程的源代码!明天下午就要交了!急死了!!!
- 获取 WINNT & WIN2000 下 CPU 使用率的 OCX 发放 !
- 在vb中在excel表存入数据遇到的问题,求助高手
- 在richtextbox中,为什么无段前空阁????????
- 紧急求助:excel转word
- Delphi中如何给Office Word中添加宏?
- 下午要去面试了,兄弟们给点建议!
- 怎么能编程展开一个treeview控件的所有节点,treeview控件的node得到焦点是什么事件
或利用isql 执行“backup database aa to disk='c:\'”并利用Schedule 来达到定时的目的。
在MMC中怎样定义呢,可以讲详细点么
在 ms sql server 7.0 的EnterPrise manager 下:
进入后 Manager 下的 Backup 点击右键 ‘Backup a new database... ’
注意选中 Schedule 并定义好 备份的时间。
不过,我想 还是用isql 执行“backup database aa to disk='c:\'”并利用Schedule 比较好点。
的方法最简单
TO : wrjun(wrjun)
怎么设定SQL SERVER AGENT自动运行