Ubound を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはUbound です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>ADO .GetRowsで全件読み込み、Uboundで行列チェック</title>
</head>
<body>
<h1>.GetRowsで全件読み込み、Uboundで行列チェック</h1>
test086-2.asp<br>
ASPからADOを使用してExcel(*.xls)に接続して、<br>
[Sheet1$]でシートにアクセスして、レコードセットを作成後、<br>
<strong>rs.GetRows</strong>でレコードセットから配列を作成する<br>
読み込むシートのイメージは、<br>
<img src="http://www.ken3.org/backno/gif/asp084-01.gif"><br>
です。
[<a Href="test084.xls" TARGET="_blank">test084.xls</a>]←がファイルです<br>
<br>
<hr>
読み込んだ配列に対して、Ubound関数で、行列の最大値を調べて<br>
データを表示してみました。<br>
<hr>
<%
'ADO DB Recordset オブジェクトを作成する、英文そのままじゃん
Set rs=Server.CreateObject("ADODB.Recordset")
'接続文字
Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _
Server.MapPath("test084.xls") & ";"
Response.Write "作った、使った接続文字列は<br>"
Response.Write "<CODE>Con = <b>" & Con & "</b></CODE><hr>"
'SQL文 Sheet1$として、シートのみ指定してみます
strSQL = "select * from [Sheet1$]"
Response.Write "作った、使ったSQL文字列は<br>"
Response.Write "<CODE>strSQL = <b>" & strSQL & "</b></CODE><hr>"
'接続文字列、SQLを渡して、レコードセットを開く
Rs.Open strSQL, Con, 0 '0=adOpenForwardOnly
Response.Write "<CODE>Rs.Open strSQL, Con, 0</CODE>"
Response.Write "で、レコードセットを作成しました<hr>"
'rs.GetRowsで読み込む
dataBOX = Rs.GetRows() 'レコードセットを配列にする
Response.Write "<CODE>dataBOX = <b>rs.GetRows</b></CODE>"
Response.Write "で、レコードセットを配列イメージで読み込む<hr>"
Response.Write "配列のイメージを表示する<br>"
Dim y, x
Response.Write "<Table border=1>" 'テーブルで表示
For y = 0 To Ubound(dataBOX, 2)
Response.Write "<TR>" '行の開始
For x = 0 To Ubound(dataBOX, 1)
Response.Write "<TD>" & dataBOX(x, y) & "<TD>"
Next
Response.Write "</TR>" '行の終わり
Next
Response.Write "</Table>" 'テーブルの終了
Rs.Close
%>
こんな感じで、<b>.GetRows</b>で配列に取り込みUboundで個数を調べることが可能です<br>
※あと、先頭行は、やはり項目名として使われているので注意が必要ですが。<br>
<hr>
</body>
</html>
| 最近発売の雑誌を紹介する
女性誌を紹介します。数少ない女性プログラマー向けの広告でした(笑)
- TOMOTOMO (トモトモ) 2008年 08月号
- Lingkaran (リンカラン) 2008年 08月号
- NHK おしゃれ工房 2008年 08月号
- KERA ! (ケラ) 2008年 08月号
- ES POSHH ! (エスポッシュ) 2008年 09月号
- 生意気KiLaLa (キララ) 2008年 09月号
- JELLY (ジェリー) 2008年 09月号
- Happie nuts (ハピー ナッツ) 2008年 09月号
- Clubism (クラビズム) 2008年 08月号
|
