[ADO OpenSchema] 指定テーブルのカラム名一覧

OpenSchema メソッド


<HTML><BODY>
<%

	Set cn = Server.CreateObject("ADODB.Connection")
	strMdb = Server.MapPath( "sample.mdb" )
	strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source=" & strMdb & ";"

	cn.Open strConnection

	Set rs = cn.OpenSchema( 4, Array( Empty, Empty, "IADDRESS", Empty ) )

%>
	<TABLE  cellpadding=3>
	<tr><td bgcolor=silver>[IADDRESS] COLUMN_NAME</td></tr>
<%
	Do while NOT rs.EOF
%>
		<tr>
		<td><% = rs.Fields( 3 ).Value %></td>
		</tr>
<%
		rs.MoveNext
	Loop
%>
	</TABLE>
<%

	rs.Close
	cn.Close

%>
</BODY></HTML>

Recordset オブジェクト


<HTML><BODY>
<%

	Set cn = Server.CreateObject("ADODB.Connection")
	strMdb = Server.MapPath( "sample.mdb" )
	strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source=" & strMdb & ";"

	cn.Open strConnection

	Set rs = Server.CreateObject( "ADODB.Recordset" )
	SqlQuery = "select * from IADDRESS"
	rs.Open SqlQuery,cn

%>
	<TABLE  cellpadding=3 bgcolor=white>
	<tr><td bgcolor=silver>[IADDRESS] COLUMN_NAME</td><td bgcolor=silver>TYPE</td></tr>
<%
	For I = 0 to rs.Fields.Count - 1
%>
		<tr>
		<td><% = rs.Fields( I ).Name %></td>
		<td><% = rs.Fields( I ).Type %></td>
		</tr>
<%
		rs.MoveNext
	Next
%>
	</TABLE>
<%

	rs.Close
	cn.Close

%>
</BODY></HTML>

Recordset オブジェクトでの実行結果

[IADDRESS] COLUMN_NAME	TYPE
IADDRESS_CODE	202
IADDRESS_LEVEL	2
IADDRESS_NAME	202
IADDRESS_KANA	202
IADDRESS_ADD	202
IADDRESS_TEL	202
IADDRESS_FAX	202
IADDRESS_EMAIL	202
IADDRESS_IGROUP	202
IADDRESS_KEY	3
IADDRESS_POST	202
IADDRESS_ADD2	202