通过ADOX建立Access(MDB)数据库 (VB、ASP版)

asp:

<%
On   Error   Resume   Next

Set  adox  =  Server.CreateObject( " Adox.Catalog " )

adox.Create  " Provider=Microsoft.Jet.Oledb.4.0; Data Source= "   &  Server.MapPath( " oyleme.mdb " )

Set  adox =   Nothing
%>

 

VB添加工程－引用 Microsoft ADO Ext.......

Private   Sub  Command1_Click()
   Set  cat  =   CreateObject ( " ADOX.Catalog " )
  cat.Create  " Provider=Microsoft.Jet.OLEDB.4.0;data source=c:abcd.mdb "
   Set  cat  =   Nothing
End Sub