如何在客户机上进行sql server 数据库的备份

Question

建议使用backup database的SQL语句进行例如
BACKUP DATABASE YMDB TO YMBack WITH DIFFERENTIAL详细的请看以下sql server 的帮助，里面写得很详细

Answer 1

你的意思是直接备份的设备ymback里面么？
那这个设备建立时可以建立在客户机上么
如果不行的话
建立在服务器上，这个存放路径怎么样控制？
兄弟，你的qq是多少呀？

Answer 2

看下面的代码：Private Sub backupdatabass(s As String)
    Dim cn As New Connection, strSQL As String
    '-- 将数据库备份至一个文件
    On Error GoTo tErr6
    cn.Open dataname
    strSQL = "backup database " + coninfo(0) + " to disk = '" + s + "'"
    cn.Execute strSQL
    Set cn = Nothing
    Exit Sub
tErr6:
    addtip 0, 1, "备份数据库出错！"
End Sub我也碰到一些问题，主要是如何恢复备份。

Answer 3

备份和恢复数据库数据库我都做过了，不过操作都是在服务器上的
你的指定disk路径，怎么样指定网络路径，或映射的驱动器呢？
请多指教
你的qq?

Answer 4

引用SQLDMO，我这儿有个导出备份的程序。 性能不错地!!我可以发给你。跟我联系吧。
[email protected]

Answer 5

给我发一分吧？
我给你100分,决不食言。[email protected]  

Answer 6

你好，给我发了么，benlovekelly

Answer 7

SQLDMO是什么东东，各位高手能否解释一下。
我也做过SQL备份，在服务器端比较容易实现，但在客户端，备份时涉及网络路径问题，一直没有好的办法

Answer 8

sqldmo vb样例sql server2000盘里面有，我今天试了试，好像还是不能解决上述问题呀

Answer 9

hfamwu(小溪)　我也深有同感呀，55555555555.............

Answer 10

好呀，兄弟，呵呵，谢谢你这么慷慨，大家可以互相切磋
[email protected]

Answer 11

我也要一份
[email protected]
先谢了

Answer 12

sqlserver 7 好象只能把数据库备份到本地服务器,在客户端共享出来copy吧....
或者在服务器端编程,实现备份和拷贝.

Answer 13

可要做的以前是服务器端，可选择路径，现在要在客户端出实现，就不能备份到客户机上么？
sqldmo里的例程我看了，也试过了，方便是方便，也开了眼界（嘿嘿，以前不会是白做了吧），可我说的牵扯网络备份的没有测试成，好像也不成，那位同志试成了，请联系。

Answer 14

sncel(地狱情人)　
谢谢仁兄，你的source code 收到
 浏览一个文件夹的模块不错，可以借鉴（在哪儿弄的）
加上10分先

Answer 15

给份小弟参考一下。
[email protected]

Answer 16

THANK YOU!!
大哥，你的问题想出来了，记得也给小弟一个原程啦

Answer 17

fansenwei(绿茵萤火虫)　
还没有加分，还有什么问题，请说吧！！！！

Answer 18

可不可以给我一份呢??最近正急需用!!
[email protected]

Answer 19

to hfamwu:
    不行

Answer 20

哪位好心人有SQL Server的备份和恢复源码送我一份，最近急用，谢谢啦。
[email protected]

Answer 21

在客户机上装个sql server不就可以备份服务器的数据了吗

Answer 22

同意bear88(玩具熊)的看法，在客户机上的SQL上注册服务器的SQL，就可以直接备份了，不过，在备份路径上，加上网络路径即可，如备份到:\\client1\data\myback.

Answer 23

现在有个问题是如果SQL Server坏了以后，如何恢复数据。

Answer 24

TO:sncel(地狱情人)
我也要一份，[email protected]

Answer 25

我也要!!
[email protected]

Answer 26

我写了些部件来实现备份、恢复功能，无须共享文件夹，也不用在客户端安装SQLSERVER，只须支持DCOM就可以了。有兴趣的朋友请留EMAIL。

Answer 27

to Brunhild
我要!
[email protected]

Answer 28

to Brunhild
我也要!
[email protected] 

Answer 29

to Brunhild
我也要!
[email protected]

Answer 30

'nServer_Name = SQL server name
'nDB_Name = Database name
'nDB_Login = Login name
'nDB_Password = Password
'nBack_Dev =Backup device name
'nBack_Set = Backup set name
'nBack_Desc = Backup discription'Backup device name has to be specified by the SQL ADMIN.
'Which comes under SQL Backup. The name you specified must 
'be same as Passing value of backup device name.'SQL ADMIN can only specify the device type(Tape, HD,...).'* * * * * * * * * * * * * *'* * * * * * * * * * * * * *Option Explicit
Private oSQLServer As SQLDMO.SQLServerPublic Function DB_Backup(ByVal nServer_Name As String, _
  ByVal nDB_Name As String, _
  ByVal nDB_Login As String, ByVal nDB_Password As String, _
  ByVal nBack_Dev As String, ByVal nBack_Set As String, _
  ByVal nBack_Desc As String) As Boolean' nServer_Name = SQL server name
' nDB_Name = Database name
' nDB_Login = Login name
' nDB_Password = Password
' nBack_Dev =Backup device name
' nBack_Set = Backup set name
' nBack_Desc = Backup discription
Dim oBackup As SQLDMO.Backup
  On Error GoTo ErrorHandler
  Set oBackup = CreateObject("SQLDMO.Backup")
  If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then
    oBackup.Devices = "[" & nBack_Dev & "]"
    oBackup.Database = nDB_Name
    oBackup.BackupSetName = nBack_Set
    oBackup.BackupSetDescription = nBack_Desc
    oBackup.SQLBackup oSQLServer
    oSQLServer.DisConnect
    DB_Backup = True
  End If
  
  Exit Function
ErrorHandler:
  DB_Backup = False
End Function
Private Function Connect_SQLDB(ByVal nServer_Name As String, _
    ByVal nDB_Login As String, _
    ByVal nDB_Password As String) As Boolean
  
  ' nServer_Name = SQL server name
  ' nDB_Login = Login name
  ' nDB_Password = Password  Set oSQLServer = CreateObject("SQLDMO.SQLServer")
  On Error GoTo ErrorHandler
  Connect_SQLDB = False
  oSQLServer.Connect nServer_Name, nDB_Login, nDB_Password
  Connect_SQLDB = True
  Exit Function
ErrorHandler:
  oSQLServer.DisConnect
  Connect_SQLDB = False
End Function