- 添加引用 Microsoft Jet and Replication Objects 2.6 Library
- 使用以下代码:
read_con.Close() '压缩数据库 引用Microsoft Jet and Replication Objects 2.6 Library
If System.IO.File.Exists(“D:” & “temp.mdb”) Then
System.IO.File.Delete(“d:\temp.mdb”)
End If
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
jro.CompactDatabase(ConnString, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\temp.mdb;Jet OLEDB:Engine Type=5;Password=;”) 'User ID=Admin;
System.IO.File.Delete(System.Windows.Forms.Application.StartupPath & "\" & "sjfx.mdb")
System.IO.File.Move("d:\\temp.mdb", System.Windows.Forms.Application.StartupPath & "\" & "sjfx.mdb")
本文介绍了如何利用Microsoft Jet和Replication Objects 2.6 Library对数据库进行压缩和优化,包括创建JetEngine实例、删除临时文件并移动数据库。重点在于数据库管理与维护技术的应用。
3215

被折叠的 条评论
为什么被折叠?



