SAK 図書館
SAK 図書館
PostgreSQL + ASP ADO 編1 - ODBC ドライバ、レコード更新、レコード参照
■PostgreSQL ODBC ドライバインストール
・VB と共通である。
■PostgreSQL ODBC システム DSN 設定
・VB と共通である。
■PostgreSQL ODBC + ASP VB Script ADO テーブル作成
・テーブル作成で、日本語項目名が指定できるかテストする。
問題なく作成できる。
<%@ Language=VBScript %>
<%
Const title = "PostgreSQL ODBC + ASP VB Script ADO テーブル作成"
Dim cn
Dim sql
'** ODBC 接続
set cn = Server.CreateObject ("ADODB.Connection")
cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"
cn.CursorLocation = 3
'** テーブル作成
sql = "create table testm ("
sql = sql & "キー char(008),"
sql = sql & "データ1 int8,"
sql = sql & "データ2 int8,"
sql = sql & "データ3 int8"
sql = sql & ")"
cn.Execute sql
'** ODBC 接続解除
cn.Close
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE><% = title %></TITLE>
</HEAD>
<BODY>
<P><% = title %></P>
<P><% = sql %></P>
<P>処理終了</P>
</BODY>
</HTML>
■PostgreSQL ODBC + ASP VB Script ADO レコード更新
・レコード追加で、日本語データが指定できるかテストする。
問題なく追加できる。
<%@ Language=VBScript %>
<%
Const title = "PostgreSQL ODBC + ASP VB Script ADO レコード更新"
Dim cn
'** ODBC 接続
set cn = Server.CreateObject ("ADODB.Connection")
cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"
cn.CursorLocation = 3
'** トランザクション開始
cn.BeginTrans
'** レコード処理
cn.Execute "insert into testm values ('x001', 1, 2, 3)"
cn.Execute "insert into testm values ('x002', 10, 20, 30)"
cn.Execute "insert into testm values ('日本語', 1, 2, 3)"
cn.Execute "insert into testm values ('かんじ', 10, 20, 30)"
'** トランザクション終了
cn.CommitTrans
'** ODBC 接続解除
cn.Close
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE><% = title %></TITLE>
</HEAD>
<BODY>
<P><% = title %></P>
<P>処理終了</P>
</BODY>
</HTML>
■PostgreSQL ODBC + ASP VB Script ADO レコード参照
・レコード参照で、日本語項目、日本語データが参照できるかテストする。
問題なく参照できる。
<%@ Language=VBScript %>
<%
Const title = "PostgreSQL ODBC + ASP VB Script ADO レコード参照"
Dim cn
Dim rs
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE><% = title %></TITLE>
</HEAD>
<BODY>
<P><% = title %></P>
<%
'** ODBC 接続
set cn = Server.CreateObject ("ADODB.Connection")
cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"
cn.CursorLocation = 3
'** レコードセットオープン
set rs = cn.Execute("select * from testm")
'** レコード処理
response.write(rs("キー").name & "<BR>")
response.write("-------------<BR>")
do until rs.EOF
response.write(rs("キー") & "<BR>")
rs.MoveNext
loop
response.write("-------------<BR>")
'** レコードセットクローズ
rs.Close
'** ODBC 接続解除
cn.Close
%>
<P>処理終了</P>
</BODY>
</HTML>
■その他 ADO 操作
・SQL に多少の違いはあっても、ADO そのものの操作は Oracle と変わらない。
『VB ADO + SQL 応用編』、『ASP VB Script ADO + SQL 応用編』
を参考にして下さい。
■PostgreSQL 編、JAVA Servlet、JSP 編資料
■MySQL 編資料
■SQL 基礎編資料
■SQL 基礎実地編資料
■SQL チューニング編資料
■Oracle PL/SQL 編資料
Copyright (C) 1999-2024 Y.SAK