SAK �}�‘ŠÙ
PostgreSQL + ASP ADO •Ò1 - ODBC ƒhƒ‰ƒCƒo�AƒŒƒR�[ƒh�X�V�AƒŒƒR�[ƒhŽQ�Æ
�¡PostgreSQL ODBC ƒhƒ‰ƒCƒoƒCƒ“ƒXƒg�[ƒ‹
�EVB ‚Æ‹¤’ʂł ‚é�B
�¡PostgreSQL ODBC ƒVƒXƒeƒ€ DSN �Ý’è
�EVB ‚Æ‹¤’ʂł ‚é�B
�¡PostgreSQL ODBC + ASP VB Script ADO ƒe�[ƒuƒ‹�ì�¬
�Eƒe�[ƒuƒ‹�ì�¬‚Å�A“ú–{Œê�€–Ú–¼‚ªŽw’è‚Å‚«‚é‚©ƒeƒXƒg‚·‚é�B
–â‘è‚È‚�ì�¬‚Å‚«‚é�B
<%@ Language=VBScript %>
<%
Const title = "PostgreSQL ODBC + ASP VB Script ADO ƒe�[ƒuƒ‹�ì�¬"
Dim cn
Dim sql
'** ODBC �Ú‘±
set cn = Server.CreateObject ("ADODB.Connection")
cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"
cn.CursorLocation = 3
'** ƒe�[ƒuƒ‹�ì�¬
sql = "create table testm ("
sql = sql & "ƒL�[ char(008),"
sql = sql & "ƒf�[ƒ^1 int8,"
sql = sql & "ƒf�[ƒ^2 int8,"
sql = sql & "ƒf�[ƒ^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>�ˆ—��I—¹</P>
</BODY>
</HTML>
�¡PostgreSQL ODBC + ASP VB Script ADO ƒŒƒR�[ƒh�X�V
�EƒŒƒR�[ƒh’ljÁ‚Å�A“ú–{Œêƒf�[ƒ^‚ªŽw’è‚Å‚«‚é‚©ƒeƒXƒg‚·‚é�B
–â‘è‚È‚’ljÁ‚Å‚«‚é�B
<%@ Language=VBScript %>
<%
Const title = "PostgreSQL ODBC + ASP VB Script ADO ƒŒƒR�[ƒh�X�V"
Dim cn
'** ODBC �Ú‘±
set cn = Server.CreateObject ("ADODB.Connection")
cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"
cn.CursorLocation = 3
'** ƒgƒ‰ƒ“ƒUƒNƒVƒ‡ƒ“ŠJŽn
cn.BeginTrans
'** ƒŒƒR�[ƒh�ˆ—�
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)"
'** ƒgƒ‰ƒ“ƒUƒNƒVƒ‡ƒ“�I—¹
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>�ˆ—��I—¹</P>
</BODY>
</HTML>
�¡PostgreSQL ODBC + ASP VB Script ADO ƒŒƒR�[ƒhŽQ�Æ
�EƒŒƒR�[ƒhŽQ�Æ‚Å�A“ú–{Œê�€–Ú�A“ú–{Œêƒf�[ƒ^‚ªŽQ�Ƃł«‚é‚©ƒeƒXƒg‚·‚é�B
–â‘è‚È‚ŽQ�Ƃł«‚é�B
<%@ Language=VBScript %>
<%
Const title = "PostgreSQL ODBC + ASP VB Script ADO ƒŒƒR�[ƒhŽQ�Æ"
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
'** ƒŒƒR�[ƒhƒZƒbƒgƒI�[ƒvƒ“
set rs = cn.Execute("select * from testm")
'** ƒŒƒR�[ƒh�ˆ—�
response.write(rs("ƒL�[").name & "<BR>")
response.write("-------------<BR>")
do until rs.EOF
response.write(rs("ƒL�[") & "<BR>")
rs.MoveNext
loop
response.write("-------------<BR>")
'** ƒŒƒR�[ƒhƒZƒbƒgƒNƒ��[ƒY
rs.Close
'** ODBC �Ú‘±‰ð�œ
cn.Close
%>
<P>�ˆ—��I—¹</P>
</BODY>
</HTML>
�¡‚»‚Ì‘¼ ADO ‘€�ì
�ESQL ‚É‘½�‚̈Ⴂ‚Í‚ ‚Á‚Ä‚à�AADO ‚»‚Ì‚à‚̂̑€�ì‚Í Oracle ‚ƕςí‚ç‚È‚¢�B
�wVB ADO + SQL ‰ž—p•Ò�x�A�wASP VB Script ADO + SQL ‰ž—p•Ò�x
‚ðŽQ�l‚É‚µ‚ĉº‚³‚¢�B
�¡PostgreSQL •Ò�AJAVA Servlet�AJSP •ÒŽ‘—¿
�¡MySQL •ÒŽ‘—¿
�¡SQL Šî‘b•ÒŽ‘—¿
�¡SQL Šî‘bŽÀ’n•ÒŽ‘—¿
�¡SQL ƒ`ƒ…�[ƒjƒ“ƒO•ÒŽ‘—¿
�¡Oracle PL/SQL •ÒŽ‘—¿