SAK 図書館
| 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 | フリーソフト | |