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