高分求助

Question

各位高手：
　　在ＶＢ中如何实现access数据库的备份，请给出代码好吗？
急等着用，谢谢各位，一定给高分！

Answer 1

ACCESS只能叫作文件，谈不上数据库，如果要备份的话将文件拷到备份目录即可(Rename)

Answer 2

filecopy 源文件,目标文件，呵呵

Answer 3

Dim SHFileOp As SHFILEOPSTRUCT
  
  Dim sConnect As String
  Dim strDIR As String
  Dim i As Integer
  Dim ii As Integer
  Dim j As Integer
  Dim iYes As Integer
               sConnect = cnnCMMS.ConnectionString
               sConnect = StrConv(sConnect, vbLowerCase)
               Debug.Print sConnect
               i = InStr(sConnect, "data source")
               ii = InStr(sConnect, "mode")
               Debug.Print i, ii
               j = ii - i - 13
               
                With MDIForm1.dlgDialog
                          .CancelError = True
                          .DialogTitle = "选择输出文件名及路径"
                          .Filter = "*.mdb|*.mdb"
                          .FilterIndex = 1
                        

Answer 4

'''**********************************************************************************
''''备份有两中形式完全备份和差异备份
''''完全备份：是对数据库进行完整备份，周期比较长，如1周等
''''差异备份：是对更新备份的数据进行备份，周期比较短，如1小时
''''命令介绍： Backup Database [数据库名] To Disk=[保存路径和名称]  With [其他属性]
''''——————————————————————————————
''''代码注释: ServerIP: SQLServer所在机器的 IP
''''jtsg:         SQLServer中数据的名称
'''**********************************************************************************

Answer 5

Sign1:
                         .FileName = "backup.mdb"
                         .ShowSave
                        
                        strDIR = Dir(.FileName)
                        If strDIR <> "" Then
                   If MsgBox("该目录下存在同名文件，是否替换？", vbYesNo + vbQuestion, "替换") = vbYes Then
                                Kill .FileName
                            Else
                                GoTo Sign1
                            End If
    '''                    Else
    '''                      MsgBox "请正确选择路径!", vbOKOnly + vbInformation, "信息"
    '''                      Exit Sub
                        End If
              End With