'工程引用 Microsoft ADO Ext. 2.xOption ExplicitPublic Sub CreateMDB(ByVal sDBFile As String) Dim cat Set cat = CreateObject("ADOX.Catalog") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDBFile Set cat = Nothing End SubPrivate Sub Form_Load() CreateMDB "c:\1.mdb" End Sub
Dim cat
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDBFile
Set cat = Nothing
End SubPrivate Sub Form_Load()
CreateMDB "c:\1.mdb"
End Sub
============做一个固定的mdb文件,每次copy一份新的,效率最高。
http://chenoe.com/blog/article.asp?id=1910
数据库中的字段都是固定的
============做一个固定的mdb文件,每次copy一份新的,效率最高。——————————————————————偶也是这样想的~~~ 吼吼~~~