压缩:复制同时压缩了删除的记录 引用Microsoft Jet and Replication Objects X.X library Dim jro As jro.JetEngine Set jro = New jro.JetEngine jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4"
ACCESS不支持事物!不属于服务器类型的数据库!建议使用SQL Server或Oracle
引用Microsoft Jet and Replication Objects X.X library
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4"
兄弟大概是高手,一直都用Oracle,没有用过ACCESS吧