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数据库后，主键没有了。把此数据库覆盖原来的数据库后就不能在系统中运行了，因为，没有了主键。怎么解决？
加好友 
发短信
Post By：2014/12/16 12:31:00 [只看该作者]
