远程备份（还原）SQL2000数据库

１、在企业管理器中：  
  打开你的企业管理器，注册要操作的SQL   Server服务器，然后和本地的操作一样了，不过还原和备份的路径都在服务器所在机上。  
   
  ２、用VB代码实现：  
  利用VB进行SQL2000的数据备份和恢复  
  　数据备份  
  备份有两中形式完全备份和差异备份  
  完全备份：是对数据库进行完整备份，周期比较长，如1周等  
  差异备份：是对更新备份的数据进行备份，周期比较短，如1小时  
  命令介绍：   Backup   Database   [数据库名]   To   Disk=[保存路径和名称]     With   [其他属性]  
  ——————————————————————————————  
  代码注释：ServerIP   :SQLServer所在机器的   IP  
                    jtsg:SQLServer中数据的名称  
  --------------------------------------------------------------------————————  
  Public   Cn   As   ADODB.Connection  
  Set   Cn   =   New   ADODB.Connection  
  strcon   =   "Provider=SQLOLEDB.1;Password=sa;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=jtsg;Data   Source="   +   ServerIp   +   ";"   +   _  
                    "use   procedure   for   prepare=1;auto   translate=true;"   +   _  
                    "use   encryption   for   data=false;tag   with   column   collation   when   possible=false"  
  Cn.ConnectionString   =   strcon  
  On   Error   Resume   Next  
  Cn.Open  
  If   Cn.Errors.Count   >   0   Then  
  For   i   =   0   To   Cn.Errors.Count   -   1  
        If   Cn.Errors(i).Number   =   -2147467259   Then  
          MsgBox   "网络不通或服务器未开，请确认后再试",   vbOKOnly   +   vbInformation,   "提醒"  
          Unload   Me  
          Exit   Sub  
        Exit   For  
        End   If  
  Next   i  
  End   If  
   
  完全备份  
  Private   Sub   BackupAll()  
  Cn.Execute   "backup   database   jtsg   to   disk=‘"   +   App.Path   +   "\backup\myjtsgall.bak‘   with   name=‘jtsg   backup   all‘,description=‘Full   Backup   Of   jtsg‘"  
  MsgBox   "数据完全备份已经完成",   vbOKOnly   +   vbInformation,   "提醒"  
  End   Sub  
   
  差异备份  
  Private   Sub   BackupDif()  
  Cn.Execute   "backup   database   jtsg   to   disk=‘"   +   App.Path   +   "\backup\myjtsgdif.bak‘   with   differential   ,noinit,name=‘jtsg   backup   dif‘,description=‘Differential   Backup   Of   jtsg‘"  
  MsgBox   "数据差异备份已经完成",   vbOKOnly   +   vbInformation,   "提醒"  
  End   Sub  
   
  ■   数据恢复  
  数据恢复，问题很多，要区分用户的备份形式。一般备份的默认形式是   Append   to   media，即添加到备份设备已有内容后面。前面介绍的备份方式就这种。还有一种备份形式是   OverWrite，即覆盖设备原有内容。这两中备份形式决定恢复的方式也不一样。  
  命令介绍：   Restore   Database   [数据库名]   From   [保存备份的路径和名称]   With[其他属性]  
  在其他属性中重点介绍：File   、   NORECOVERY和   RECOVERY  
  1.FILE  
  这是不同备份形式的重要参数，用来指定从设备上的第几个备份中恢复，比如采用APPEND形式备份，作了两次备份，恢复第一个备份时应该在恢复命令中使用“FILE=1”；恢复第二个备份时则使用“FILE=2”的选项。  
  当然如果备份形式是OVERWRITE，备份中就只有一次备份，所以使用   FILE=1的选项；  
  2.RECOVERY  
  如果使用RECOVERY选项，那么恢复完成后，SQLSERVER回滚被恢复数据库中所有未完成的事务，以保证数据库的一致性。在恢复后用户就可以访问数据库。所以RECOVERY用来恢复最后一个备份。NORECOVERY则相反。默认为RECOVERY。  
  ——————————————————————————————————  
  代码解释：还原备份的文件可以选择，完全备份和差异备份  
  ——————————————————————————————————  
  Private   Sub   RestoreData()  
  Cn.Execute   "restore   database   jtsg   from   disk=‘"   +   App.Path   +   "\backup\myjtsgall.bak‘   with   FILE=1"  
  MsgBox   "数据恢复已经完成",   vbOKOnly   +   vbInformation,   "提醒"  
  End   Sub  
   
  完毕