不用ADOX也可以判断access表是否存在
没有ADOX你也能做到!!
Dim cn,strCnn,rstSchema
set cn = server . createobject(" ADODB。connection ")
set str CNN = server . createobject(" ADODB。recordset ")
set rst schema = server . createobject(" ADODB。记录集”)
strCnn = "Provider=Microsoft。Jet . OLEDB.4.0”
str CNN = str CNN & " Data Source = F:\ asptest \ tree。MDB”
str CNN = str CNN & " Persist Security Info = False "
cn。打开strCnn
set rstSchema = cn . open schema(20)
rst schema . move first
Do直到rst schema。EOF
if rst schema(" TABLE _ TYPE ")= " TABLE " then
response . write rst schema(" TABLE _ NAME ")& "
"
end if
rst schema . movenext
Loop
cn . close
' ' set rst schema = nothing
' ' set = nothing
% >
SQL ->系统表sysobjects
访问-“以ADOX为例:
Dim cn,strCnn
set cn = server . createobject(" ADODB。connection ")
set str CNN = server . createobject(" ADODB。记录集”)
str CNN = " Provider = Microsoft。Jet . OLEDB.4.0数据源=F:\asptest\tree。MDB持久安全信息=False "
cn。Open strCnn
Set tb = Server。CreateObject(“ADOX。table ")
设置cat = Server。CreateObject(“ADOX。catalog ")
设置cat。ActiveConnection = cn
对于每一只猫来说。表
响应。接下来写一个. Name & "
"
cn.close
% >
0条评论