Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 将C:\db1.mdb 做Compact / Repair If Compact_MDB("C:\db1.mdb") Then MessageBox.Show("OK !") End Sub
Imports System Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 将C:\db1.mdb 做Compact / Repair If Compact_MDB("C:\db1.mdb") Then MessageBox.Show("O