ASP VB Script 基礎実地編3 - データベース参照、テーブル、フラットテーブル


\| VB \| SQL \| Perl \| PHP \| ASP \| JSP \| C \| PC \| HP \| FAQ \| フリーソフト \|

ASP VB Script 基礎実地編3 - データベース参照、テーブル、フラットテーブル

■データベース参照 - テーブル表示

  ・テーブルを使用して、綺麗に表示するには、次のようにします。
    <TABLE rules=ALL> と、「rules=ALL」を使うのがミソである。
    「rules=ALL」で、項目が NULL のときでも綺麗に表示できる。
    <TD align=right> は、数値項目を右詰めするのに指定している。

<%@ Language=VBScript %>
<%
  const title = "データベース参照"
  const dsn   = "dsn=SAK3_ADO;uid=SAK;pwd=SAK"
  const dcr   = 3  '** adUseClient
  const dbi   = "*"
  const dbf   = "sak.テストm"
  const dbw   = ""  '** where キー like 'a%'
  const dbo   = "order by キー"
  dim sql, rs, i, s

'** データベース接続
  if isempty(session("s3cn_ado")) then
    set session("s3cn_ado") = server.CreateObject ("ADODB.Connection")
    session("s3cn_ado").Open dsn
    session("s3cn_ado").CursorLocation = dcr
  end if

'** クエリ発行
  sql = "select " & dbi & " from " & dbf & " " & dbw & " " & dbo
  set rs = session("s3cn_ado").Execute(sql)
%>
<HTML>
<HEAD>
<TITLE><% = title %></TITLE>
</HEAD>
<BODY>
<%
'** データリストアップ
  response.write("<P>")
  response.write("<TABLE rules=ALL><TBODY>")
  response.write("<TR>")
  response.write("<TD>リスト番号</TD>")
  response.write("<TD>キー</TD>")
  response.write("<TD>データ1</TD>")
  response.write("<TD>データ2</TD>")
  response.write("<TD>データ3</TD>")
  response.write("</TR>")
  i = 0
  do until rs.eof
    i = i + 1
    s = right("000000" & i, 6)
    response.write("<TR>")
    response.write("<TD>" & s & "</TD>")
    response.write("<TD>" & rs("キー") & "</TD>")
    response.write("<TD align=right>" & rs("データ1") & "</TD>")
    response.write("<TD align=right>" & rs("データ2") & "</TD>")
    response.write("<TD align=right>" & rs("データ3") & "</TD>")
    response.write("</TR>")
    rs.movenext
  loop
  response.write("</TBODY></TABLE>")
  response.write("</P>")

'** レコードセットクローズ
  rs.close
%>
</BODY>
</HTML>

■データベース参照 - フラットテーブル表示

  ・テーブルをフラット表示する場合は、次のようにします。

<%@ Language=VBScript %>
<%
  const title = "データベース参照"
  const dsn   = "dsn=SAK3_ADO;uid=SAK;pwd=SAK"
  const dcr   = 3  '** adUseClient
  const dbi   = "*"
  const dbf   = "sak.テストm"
  const dbw   = ""  '** where キー like 'a%'
  const dbo   = "order by キー"
  dim sql, rs, i, s

'** データベース接続
  if isempty(session("s3cn_ado")) then
    set session("s3cn_ado") = server.CreateObject ("ADODB.Connection")
    session("s3cn_ado").Open dsn
    session("s3cn_ado").CursorLocation = dcr
  end if

'** クエリ発行
  sql = "select " & dbi & " from " & dbf & " " & dbw & " " & dbo
  set rs = session("s3cn_ado").Execute(sql)
%>
<HTML>
<HEAD>
<TITLE><% = title %></TITLE>
</HEAD>
<BODY>
<%
'** データリストアップ
  response.write("<P>")
  response.write("<TABLE rules=ALL bgcolor=#b0b0b0 border=0 cellPadding=3 cellSpacing=2><TBODY>")
  response.write("<TR bgcolor=#d0d0d0>")
  response.write("<TD>リスト番号</TD>")
  response.write("<TD>キー</TD>")
  response.write("<TD>データ1</TD>")
  response.write("<TD>データ2</TD>")
  response.write("<TD>データ3</TD>")
  response.write("</TR>")
  i = 0
  do until rs.eof
    i = i + 1
    s = right("000000" & i, 6)
    response.write("<TR bgcolor=#f0f0f0>")
    response.write("<TD>" & s & "</TD>")
    response.write("<TD>" & rs("キー") & "</TD>")
    response.write("<TD align=right>" & rs("データ1") & "</TD>")
    response.write("<TD align=right>" & rs("データ2") & "</TD>")
    response.write("<TD align=right>" & rs("データ3") & "</TD>")
    response.write("</TR>")
    rs.movenext
  loop
  response.write("</TBODY></TABLE>")
  response.write("</P>")

'** レコードセットクローズ
  rs.close
%>
</BODY>
</HTML>

■ASP VB Script 基礎実地編資料

■ASP VB Script 基礎編資料

■ASP VB Script ADO + SQL 応用編資料

■ASP VB Script oo4o + SQL 応用編資料

■SQL 基礎編資料

■SQL 基礎実地編資料

■SQL チューニング編資料

■Oracle PL/SQL 編資料

■PostgreSQL 編、JAVA Servlet、JSP 編資料

■MySQL 編資料


\| VB \| SQL \| Perl \| PHP \| ASP \| JSP \| C \| PC \| HP \| FAQ \| フリーソフト \|