数据库中数据备份问题？？？？？

Question

在vb中，怎样实现acess数据的存储功能，也就是说每次输入进去的数据都要保存下来，但下次使用时，数据库的数据不显示在datagird里，请问这是不是数据的备份，如果是请问怎样用一个按钮实现这个功能，还有要想看以前的数据怎样又调用回来。

Answer 1

这叫添加吧  只显示现在的 用 time 进行查询就行了  或者干脆 输入完后 直接
set datagird=nothing
 赫赫]：

Answer 2

那你的Datagrid又是用来干什么的呢？
如果是用来显示的话，那要达到你想要的那个要求就比较麻烦！

Answer 3

用一个ini文件保存你输入的数据，但没有真正写到数据库，想保存的时候再保存的数据库，这样，想显示以前的数据也非常容易了
不知道这样能达到你的要求不

Answer 4

在需要用datagird显示的表里添加一个标识字段，类型为整型，当保存时将改字段存为1，datagird不要再属性里设数据源，使用SQL语句，select * form database where [字段]<>1,OK.

Answer 5

晕,这什么鸟备份?
备份还会跟datagrid拉上关系

Answer 6

acess直接保存
新建一模块Option Explicit
Public Function BackupDB() As Boolean
    
    Dim fso As New FileSystemObject
    Dim SourceFileName As String
    Dim BackFileName As String
    Dim b As Boolean
    
    'Set fso = CreateObject("Scripting.FileFileSystemObject")
    
    SourceFileName = App.Path & "\设备管理.mdb"
    BackFileName = App.Path & "\设备管理.mdb" & ".bak"
    
    fso.CopyFile SourceFileName, BackFileName, True
    
    BackupDB = True
End FunctionPublic Function ComebackDB() As Boolean
    
    
    Dim fso As New FileSystemObject
    'Dim fil As File
    Dim SourceFileName As String
    Dim BackFileName As String
    Dim b As Boolean
        
    SourceFileName = App.Path & "\设备管理.mdb"
    BackFileName = App.Path & "\设备管理.mdb" & ".bak"
       
    'Set fil = fso.GetFile(BackFileName)
    If fso.FileExists(BackFileName) Then
    
        fso.CopyFile BackFileName, SourceFileName, True
    
        ComebackDB = True
    Else
        MsgBox "没有可恢复的数据库文件,请确保备份过文件", vbOKOnly + vbCritical, "数据恢复"
        ComebackDB = False
    End If
    
End Function