SAK �}�‘ŠÙ

SAK Streets ƒ�ƒCƒ“ƒXƒgƒŠ�[ƒg �}�‘ŠÙ�EƒJƒtƒF ˆê—— SAK Streets ŒŸ�õ
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ�[ƒ\ƒtƒg |

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 •ÒŽ‘—¿
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ�[ƒ\ƒtƒg |

SAK Streets ƒ�ƒCƒ“ƒXƒgƒŠ�[ƒg �}�‘ŠÙ�EƒJƒtƒF ˆê—— SAK Streets ŒŸ�õ



Copyright (C) 1999-2018 Y.SAK