数据库备份怎么做，请教大侠

教大侠们帮忙 问题点数：100、回复次数：2Top

1 楼gump2000（阿甘）回复于 2002-11-18 14:36:13 得分 20

Access请使用FileCopy(必须先关闭所有连接)  
  或者使用API   (???忘记了:)可以不关闭连接  
   
  MSSQL用BACKUP，具体请参考SQL   连机帮助文档  
  Top

2 楼wzsswz（岌岌荆棘）回复于 2002-11-18 14:42:19 得分 80

sqlserver:  
   
  Public   Sub   backup_db()  
          Dim   st   As   String  
          Dim   bksql   As   String  
          Dim   bkfolder   As   String  
          Dim   bkfso  
          If   MsgBox("确认对当前数据库进行备份？",   vbYesNo,   "提示信息")   =   vbNo   Then  
                Exit   Sub  
          End   If  
          st   =   MDIFm.Lb_gd.Caption  
          MDIFm.Lb_gd.Caption   =   "开始数据库备份。。。。。。。"  
          Set   bkfso   =   CreateObject("Scripting.FileSystemObject")  
          If   (bkfso.FileExists("d:\data_backup\readme.txt"))   Then  
                  Dim   xold   As   String  
                  Dim   xnew   As   String  
                  xnew   =   "d:\data_backup\zydb.bak"  
                  xold   =   "d:\data_backup\old\zydb.bak"  
                  If   bkfso.FileExists(xnew)   Then  
                        If   bkfso.FileExists(xold)   Then   bkfso.deletefile   (xold)  
                        Dim   ff  
                        Set   ff   =   bkfso.GetFile(xnew)  
                        Sleep   1000  
                        ff.Move   xold  
                  End   If  
                  bksql   =   "   USE   master"   +   _  
                            "   EXEC   sp_addumpdevice   'disk',   'backdb1',   '"   +   xnew   +   "'"   +   _  
                            "   BACKUP   DATABASE   "   +   bakdb   +   "   TO   backdb1       exec     sp_dropdevice       'backdb1'"  
                  cnn_base.Execute   (bksql)  
                  MDIFm.Lb_gd.Caption   =   "数据库备份备份完毕。"  
                  Sleep   1000  
                  MsgBox   "数据库备份完毕。新备份文件完整路径为："   +   xnew,   vbOKOnly,   "提示"  
          Else  
                  Call   Create_db_back_Folder  
                  bksql   =   "   USE   master"   +   _  
                            "   EXEC   sp_addumpdevice   'disk',   'backdb1',   '"   +   xnew   +   "'"   +   _  
                            "   BACKUP   DATABASE   "   +   bakdb   +   "   TO   backdb1         exec     sp_dropdevice     'backdb1'"  
                    cnn_base.Execute   (bksql)  
                  MDIFm.Lb_gd.Caption   =   "数据库备份备份完毕。"  
                  MsgBox   "数据库备份完毕。备份文件完整路径为："   +   xnew,   vbOKOnly,   "提示"  
            End   If  
            MDIFm.Lb_gd.Caption   =   st  
            Set   bkfso   =   Nothing  
            cnn_base.Execute   ("use   zyzy")  
  End   SubTop

相关问题

• 数据库
• bkfso
• xold
• xnew
• backup
• fileexists
• dim
• ff
• then
• as string

• 帖主：myrry
• gump2000
• wzsswz

• Visual Basic类图书
• Visual Basic类源码下载