SAK 図書館
SAK 図書館
PostgreSQL + VB ADO 編1 - ODBC ドライバ、レコード更新、レコード参照
■PostgreSQL ODBC ドライバインストール
・VB から PostgreSQL にアクセスするため、psqlodbc.exe 日本語版をインス
トールする。PostgreSQL 7.01.00.06 PSQLODBC.DLL となっている。
この日本語ドライバでは、項目名やデータに日本語を指定することができる。
■PostgreSQL ODBC システム DSN 設定
・ODBC システム DSN に PostgreSQL の名前で DSN を設定する。
特に難しいところはない。
■PostgreSQL ODBC + VB ADO テーブル作成
・テーブル作成で、日本語項目名が指定できるかテストする。
問題なく作成できる。
Dim cn as Variant
Dim sql as String
'** ODBC 接続
set cn = 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
■PostgreSQL ODBC + VB ADO レコード更新
・レコード追加で、日本語データが指定できるかテストする。
問題なく追加できる。
Dim cn as Variant
'** ODBC 接続
set cn = 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
■PostgreSQL ODBC + VB ADO レコード参照
・レコード参照で、日本語項目、日本語データが参照できるかテストする。
問題なく参照できる。
Dim cn as Variant
Dim rs as Variant
'** ODBC 接続
set cn = CreateObject ("ADODB.Connection")
cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"
cn.CursorLocation = 3
'** レコードセットオープン
set rs = cn.Execute("select * from testm")
'** レコード処理
do until rs.EOF
print rs("キー").name & " | " & rs("キー")
rs.MoveNext
loop
'** レコードセットクローズ
rs.Close
'** ODBC 接続解除
cn.Close
■その他 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