ÄúµÄλÖãºÊ×Ò³ >> ¼ÆËã»ú » µÈ¼¶¿¼ÊÔ » ²»ÓÃADOXÒ²¿ÉÒÔÅжÏaccess±íÊÇ·ñ´æ >> ÕýÎÄ

<% 

Dim cn ,strCnn,rstSchema 

set cn = server.createobject("ADODB.Connection") 
set strCnn = server.createobject("ADODB.Recordset") 
set rstSchema = server.createobject("ADODB.Recordset") 

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" 
strCnn = strCnn & "Data Source=F:\asptest\tree.MDB;" 
strCnn = strCnn & "Persist Security Info=False" 

cn.Open strCnn 

set rstSchema=cn.openSchema(20) 
rstSchema.movefirst 
Do Until rstSchema.EOF 
if rstSchema("TABLE_TYPE")="TABLE" then 
response.write rstSchema("TABLE_NAME") & "<br/>" 
end if 
rstSchema.movenext 
Loop 
cn.close 

¡®¡¯set rstSchema = nothing 
¡®¡¯set cn = nothing 
%> 

SQL -->ϵͳ±ísysobjects 

access---¡·ÓÃADOXµÄ Àý×Ó£º 

<% 

Dim cn ,strCnn 

set cn = server.createobject("ADODB.Connection") 
set strCnn = server.createobject("ADODB.Recordset") 


strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\asptest\tree.MDB;Persist Security Info=False" 

cn.Open strCnn 
Set tb = Server.CreateObject("ADOX.Table") 
Set cat = Server.CreateObject("ADOX.Catalog") 
Set cat.ActiveConnection = cn 

For Each a In cat.Tables 
Response.Write a.Name & "<br>" 
Next 

cn.close 
%>