以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  备份ACCESS数据库后，主键没有了。怎么办？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61629)
--  作者：nbfool
--  发布时间：2014/12/16 12:31:00
--  备份ACCESS数据库后，主键没有了。怎么办？
Dim dlg As New SaveFileDialog   \'指定一个新的SaveFileDialog
dlg.Filter= "Access文件|*.MDB"   \'设置筛选器
dlg.title= "备份数据"
dlg.OverwritePrompt = True  \'对于已经存在的文件名,是否出现覆盖警告
If dlg.ShowDialog = DialogResult.Ok Then   \'如果用户单击了确定按钮
    If FileSys.FileExists(dlg.filename) Then    \'如果指定的文件存在
        FileSys.DeleteFile(dlg.filename,2,2)     \'则彻底删除之
    End If
    For Each dt As DataTable In DataTables
         Dim ex As New Exporter
         ex.SourceTableName=dt.name
          ex.filepath =  dlg.filename 
          ex.Export()  
    Next
    MessageBox.Show("备份数据生成完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

End If
,,------------以上备份了一个ACCESS数据库，内有8张表。

备份ACCESS数据库后，主键没有了。把此数据库覆盖原来的数据库后就不能在系统中运行了，因为，没有了主键。怎么解决？
--  作者：有点甜
--  发布时间：2014/12/16 14:24:00
--  

 备份Access数据库，可以直接拷贝数据库即可，没必要你这样麻烦。

 

 http://www.foxtable.com/help/topics/0342.htm