SAK 図書館

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

ASP VB Script 基礎実地編2 - データベース参照、接続、クエリ、リストアップ

■データベース参照

  ・次のテストテーブルを準備して下さい。
    スキーマなどは、ご利用の環境に合わせて修正下さい。

  create table sak.テストm (
    キー     char(4)       primary key,
    データ1  number(9, 0),
    データ2  number(9, 0),
    データ3  number(9, 0)
  );

  insert into sak.テストm values ('a001', 101, 201, 301);
  insert into sak.テストm values ('b002', 102, 202, 302);
  insert into sak.テストm values ('c003', 103, 203, 303);
  insert into sak.テストm values ('d004', 104, 204, 304);
  insert into sak.テストm values ('e005', 105, 205, 305);
  insert into sak.テストm values ('f006', 106, 206, 306);
  commit;

  ・テストm を全件リストアップするには、次のようにします。

<%@ 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>発行 SQL - " & sql & "</P>")
  response.write("<P>")
  i = 0
  do until rs.eof
    i = i + 1
    s = right("000000" & i, 6)
    response.write(s & " 件目 - " & rs("キー") & " " & rs("データ1") & " " & rs("データ2") & " " & rs("データ3") & "<BR>")
    rs.movenext
  loop
  response.write("</P>")

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

  ・const dbw を修正すると、抽出条件をいろいろに変えられます。
    「where キー like 'a%'」にすると、「a」で始まるデータが 1 件だけ、
    抽出表示されます。

  const dbw   = "where キー like 'a%'"

■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 | フリーソフト |

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索



Copyright (C) 1999-2025 Y.SAK