大家看看这两行代码由什么不同

Question

Private Sub Form_Load()
    Text1.Text = App.Path & "\db1.mdb"
    Text1.Text = App.Path & "\db1.mdb"
End Sub
Private Sub Command1_Click()
    'On Error Resume Next
    'Dim sNewName As String
    'Dim sBakFile As String
    'sNewName = Text1.Text
    'sdatabase = sNewName
    'brepairMDB = False
    'MousePointer = 11
    'sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Date & ".mdb"
    'If Check1.Value = 1 Then
    '    FileCopy sdatabase, sBakFile     '备份数据库
    'End If
    'DBEngine.RepairDatabase sdatabase      '修复数据库
    'MousePointer = 0
    'MsgBox "已完成数据库的修复工作！"
  
    On Error Resume Next
    Dim sNewName As String
    Dim sBakFile As String
    sNewName = Text1.Text
    
    sdatabase = sNewName
    brepairMDB = fasle
    MousePointer = 11
       'sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Data & ".mdb"
       sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Date & ".mdb"
       'sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Data & ".mdb"
       
    MsgBox "已经备份了"
    
    If Check1.Value = 1 Then
        FileCopy sdatabase, sBakFile
    End If
    DBEngine.RepairDatabase sdatabase
    MousePointer = 0
    MsgBox "已经完成数据库的修复工作"
    
  
End Sub
Private Sub Command2_Click()
    End
End Sub————————————————————————————————————————————
      'sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Data & ".mdb"
       sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Date & ".mdb"
      'sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Data & ".mdb"
为什么只有第2行可以备份？

Answer 1

Data & ".mdb" ---aDate & ".mdb"----e

Answer 2

Date 在VB中为Date()函数,它取得当前的日期,如果用它做文件名的话,每天备份,以后要恢复的话,可以很容易的找到需要的东西

Answer 3

Data是啥?假如是时间,应该用Date
另外需要格式化一下内容,否则会有特殊字符不允许用在文件名称
      sBakFile = Left$(sdatabase, Len(sdatabase) - 4) & Format(Date,"YYYYMMDD") & ".mdb"