ASP를 사용하여 데이터베이스에서 모든 테이블 이름과 필드 이름을 얻는 방법

set rs = server.createobject (adodb.recordset)

db = db.mdb

'데이터베이스 이름을 직접 변경하면 효과가 표시됩니다.

set conn = server.createobject (adodb.connection)

connstr = provider = microsoft.jet.oledb.4.0; data source = & server.mappath (db)

CONN.OCEN CONNSTR

SET RS = CONN.OPENSCHEMA (20)

rs.eof까지하십시오

rs (3) = 테이블이면

응답 테이블 이름 : & rs (2) & <br />

set rs1 = server.createobject (adodb.recordset)

sql = select * from & rs (2)

RS1 = Conn.Execute (SQL) 설정

응답. 필드 이름 :

i = 0 ~ rs1.fields.count-1의 경우

응답. rs1.fields (i) .name &

다음

응답 <br />

Rs1.eof가 아닌 상태에서하십시오

응답. 쓰기

i = 0 ~ rs1.fields.count-1의 경우

t = rs1.fields (i). 이름

응답. Rs1 (t)를 쓰기 &

다음

응답. 쓰기

rs1.movenext

고리

응답. 쓰기

끝 If

rs.movenext

고리

RS = 아무것도 설정하지 않습니다

Conn = 아무것도 설정하지 않습니다

%>