Read Access Database Table Name

ASP ← Back to layout:

<%

StrConn = "dbq =" server.mappath ("kendylan.mdb") "; defaultdir =; driver = {Microsoft Access driver (* .mdb)};"

Set objconn = server.createObject ("adoDb.connection")

Objconn.open strconnnn

SET RSSChema = Objconn.Openschema (20)

rsschema.movefirst

Do Until Rsschema.eof

IF Rsschema ("Table_Type") = "Table" THEN

Response.write Rsschema ("Table_name") & "
"

END IF

Rsschema.movenext

Loop

Set objconn = Nothing

%>