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
%>
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
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=c:abcd.mdb"
Set cat = Nothing
End Sub