VB备份SQL Server数据库该如何实现?
解决方案 »
- 请问将word模板中的表格数据导入到MSFlexGrid里有没有办法提供速度?
- 如何解除非系统目录(system32)下的已注册ocx控件? 马上结分
- ------------------欢----------迎----------光----------临--------------------------
- 请问如何遍历 MDI窗口的所有子窗口?
- 想学习VB的人注意了!(只限制在大连地区)
- 在treeview控件中单击某一个节点时,怎样知道,该接点是第几级,如果根节点是第一级,根节点的孩子均是第二级
- VB6中的DoEvents函數
- 求SQL语句
- 如何设置DBGrid或DataGrid控件的最大列数和最大行数?
- 请问ADO的动态属性怎么用!!???
- 如何根据文件名获得打开这个文件的应用程序的线程?
- VB也会执行非法操作。
'* 名称:BackupDatabase
'* 功能:备份数据库
'* 控件:一个文本框和两个按钮(备份到和确定)
'*********************************************************
Public Sub BackupDatabase()
Dim cn As New ADODB.Connection
Dim s_path, s_dataexport As String
s_path = App.Path
Me.MousePointer = 11 '设置鼠标指针形状
'student1是需要备份的数据库名称
s_dataexport = "backup database student1 to disk='" + CommonDialog1.FileName + "'"
cn.Open "driver={sql server};server=" & d1 & ";database=student1;persist security info=false; userid=sa" '数据库连接字符串
'这里不需要连接master数据库,即可完成备份
cn.BeginTrans
cn.Execute s_dataexport
Err.Number = 0
If Err.Number = 0 Then
cn.CommitTrans
MsgBox "数据备份成功!", vbInformation, "提示"
MsgBox "数据备份文件存放路径:" & CommonDialog1.FileName, vbOKOnly, "提示"
Unload Me
Else
cn.RollbackTrans
MsgBox "数据备份失败!请检查数据库是否正在打开!", vbCritical, "提示"
End If
cn.Close
Set cn = Nothing
Me.MousePointer = 1
End Sub
CN.ConnectionTimeout = 10
connstr = "Driver={SQL Server};Server=" & LocalServer & ";UID=" & LocalUser & ";PWD=" & LocalPw & ";DATABASE=" & LocalDb
CN.Open connstr
Nowtime = Format(Now, "hh-mm-ss")
dd = Str(Date)
riqi = dd + "-" + NowtimeSql = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
CN.Execute (Sql)BACKUP DATABASE tablename TO restore database......