备份与恢复直接用filecopy不就可以了!
刚才我也提出了这个问题,我的数据库是sqlserver,
用这种土办法也可以的,觉得不大先进,所以也提问了。

解决方案 »

  1.   

    不过filecopy在文件打开状态会失效比如说用access打开数据库
    如果这时候用filecopy会没有用
      

  2.   

    filecopy在文件打开状态 他也是可以用的 
    不过只拷硬盘上的不能拷内存中的    既只拷打开前 的
      

  3.   

    filecopy在文件打开状态 他也是可以用的 
    不过只拷硬盘上的不能拷内存中的    既只拷打开前 的
      

  4.   

    文件Copy方式有什么不好呢?
    您还可以使用FileSystemObject的Copy方法
    或者API函数
    Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As LongDeclare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long
      

  5.   

    以上是指Access数据库
    MSSQL还是用BACKUP方法比较好:)
      

  6.   

    在VB中对数据库进行备份、压缩应使用JRO,详细的做法请参考《ADO编程技术》这本书的附录A。(不好意思我的打字速度太慢只能给你提供一个方向。)
      

  7.   

    文件拷贝的方法在数据库正在被使用的时候是不允许的啊!
    用api的话我不懂啊,目前我时间很急,所以也没有时间继续学api了,只能等以后了
    请大家想点别的方法啊!!!??
    谢谢谢谢!!!!1
      

  8.   

    不可用文件拷贝,最好用BACKUP DATABASE 的方法,以便于恢复。
      

  9.   

    这样到底是对的还是错的
    private sub backup_click()    '备份
    con.execute
    "BACKUP DATABASE [数据库名] TO DISK='带路径文件名'"  
    endsubprivate sub restore_click()   '恢复
    con.execute
    "RESTORE DATABASE [数据库名] FROM DISK ='带路径文件名'" 
    endsub
    就这样吗!?
    在备份之前要不要事先就建立一个文件当载体呢!?
    还是有别的方法?!
      

  10.   

    Private Sub backup_Click()Dim SourceFile, DestinationFile
    Data1.Database.Close
    SourceFile = App.Path & "/zhangmu.mdb"   ' 指定源文件名。
    CommonDialog1.ShowSave
    DestinationFile = CommonDialog1.FileName    ' 指定目的文件名。
    On Error Resume Next
    FileSystem.Kill CommonDialog1.FileName
    FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。Data1.DatabaseName = App.Path & "/zhangmu.mdb"
    Data1.RecordSource = "select 学院,日期,领用人,增加,减少,增加-减少 as 余额 ,摘要 from zhangmu_table"
    Data1.Refresh
    End SubPrivate Sub callback_Click()
    Dim SourceFile, DestinationFile
    Data1.Database.Close
    CommonDialog1.ShowOpen
    SourceFile = CommonDialog1.FileName    ' 指定源文件名。
    CommonDialog1.ShowSave
    DestinationFile = CommonDialog1.FileName    ' 指定目的文件名。
    FileSystem.Kill App.Path & "/zhangmu.mdb"
    FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。
    Data1.DatabaseName = App.Path & "/zhangmu.mdb"
    Data1.RecordSource = "select 学院,日期,领用人,增加,减少,增加-减少 as 余额 ,摘要 from zhangmu_table"
    Data1.Refresh
    End Sub
    这是我的备份与恢复代码
      

  11.   

    我查询过所有的"数据库备份"问题,
    因为我刚入门vb,那些问题说的太简单,我没能看的懂
    大家有没有源程序发一个给我
    我的email是[email protected]