[pgsql-jp: 39608] VB6 の OLEDB で Addnew Method が失敗する

YAMADA Takashi rinakichi_kun @ yahoo.co.jp
2008年 10月 8日 (水) 22:43:36 JST


山田ともうします。

過去にVB6+MSDEで、ソフトを作成していたのですが、今度
DBをPostgreSQLに変更しようと作業を行っています。

VB6のプログラムはそのままに、DBのConnectString を変更し
プログラムを実行するのですが、AddNew メソッドの所で、
以下のエラーが発生します。
対処方法を、ご教授願えないでしょうか。

開発環境:VB6 SP6
DB:PostgreSQL 8.3.4
OLEDB Provider:PostgreSQL OLE DB Provider

ConnectString=Provider=PostgreSQL OLE DB Provider;Data
Source={Server IP Address};User
Id=ps;Password={password};Location={database_name}

プログラムコード
dim cn as ADODB.Connection
dim as as ADODB.Recordset

Set cn = CreateObject("ADODB.Connection")
cn.Open ConnectString

cn.Execute "CREATE TABLE table1 (did smallint,headpos
int)"

Set adoRS = New ADODB.Recordset
rs.Open "select * from table1" , adoConnect,
adOpenDynamic, adLockOptimistic

rs.AddNew   '← ここでエラーが発生

発生するエラー
実行時エラー '3251':
現在の Recordset は更新をサポートしていません。
プロバイダか、選択されたロックタイプの限界の可能性があり
ます。

です。
以上、ご教授のほど、よろしくお願い致します。


--------------------------------------
Enjoy MLB with MAJOR.JP! Ichiro, Matsuzaka, Matsui, and more!
http://pr.mail.yahoo.co.jp/mlb/



pgsql-jp メーリングリストの案内