PostgresのViewをExcelのVBAでレコード取得できない

質問

はじめまして。mady1234と申します。

Postgresを利用した社内ツールを作成しています。
Postgresのテーブルからレコード取得は出来ますが、Viewからの取得が出来ません。エラーが発生します。
実行時エラー'-2147467259(8004005)':
環境はサーバーはVine4.2　Postgres8.3　クライアントのOSはXP　Excelは2003です。
色々と検索しましたが、テーブルのレコード取得の方法はあってもビューは見つけれませんでした。

ご教授の程、宜しくお願いいたします。

--------------------------以下、VBAの記述です-------------------　
Dim row1,col1, as integer
row1=1
col1=1
Dim adoCON As New ADODB.Connection
Dim adoRS As ADODB.Recordset
Set adoCON = New ADODB.Connection
adoCON.CommandTimeout = 0
adoCON.ConnectionString = "DSN=PostgreSQL30;" & _
"uid=postgres;" & _
"pwd=;"
adoCON.Open

Set adoRS = New ADODB.Recordset
adoRS.Source = " SELECT * from View1;"
adoRS.ActiveConnection = adoCON
adoRS.CursorType = adOpenKeyset
adoRS.LockType = adLockOptimistic

adoRS.Open

Do Until adoRS.EOF
Worksheets("sheet1").Cells(row1, col1).Value = adoRS!usuryou
adoRS.MoveNext
row1 = row1 + 1
Loop

adoRS.Close
adoCON.Close

Set adoRS = Nothing
Set adoCON = Nothing

回答No.1

nda23 · ベストアンサー

Viewは更新可能ではないので、カーソルタイプやロックタイプに
指定できる値が限られています。とりあえず以下を試してください。
adoRS.CursorType = adOpenKeyset　→　adOpenForwardOnly
adoRS.LockType = adLockOptimistic　→　adLockReadOnly

お礼

アドバイス通り、設定しなおしたところ無事レコードの取得が出来ました！
ここの設定とは盲点でした。
本当にありがとうございましたm(_ _)m