tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル ADO Data Controlのエラー
投稿日: 2010/08/30(Mon) 11:01
投稿者ひざ男爵
初めて投稿させていただきます。
VB6(SP6)でデータベース(PostgreSQL)からデータを取得して、ADO Data Control 6.0(SP6)(OLEDB)を使ってグレープシティー社のTrueDBGrid7.0に連結してデータを表示するプログラムを作りました。
WindowsXP(Professional)のSP2の環境では正常に動いていたのですが、WindowsUPdateでXPのサービスパックを3に上げたところ
「エラーを特定できません」
というエラーがでてしまうようになりました。
メッセージダイアログのタイトルは「Adodc」です。

以下エラーが出てる箇所のソースです。
※Adodc1はADO Data Control 6.0(SP6)(OLEDB)のオブジェクト名です
※grid1はTrue DBGrid Pro 7.0(OLEDB)のオブジェクト名です

================================================================================
    sql = "select * from XXX"
    
    Adodc1.ConnectionString = "Provider=MSDASQL.1;Password=" & DB_CONNECT_PASS & ";User ID=" & DB_CONNECT_USER & ";Extended Properties=""DRIVER={PostgreSQL};DATABASE=" & DB_CONNECT_DBNAME & ";SERVER=" & DB_CONNECT_SERVER & ";PORT=5432;UID=" & DB_CONNECT_USER & ";PWD=" & DB_CONNECT_PASS & ";READONLY=0;PROTOCOL=6.4;FAKEOIDINDEX=0;SHOWOIDCOLUMN=0;ROWVERSIONING=0;SHOWSYSTEMTABLES=0;CONNSETTINGS="""

    Adodc1.RecordSource = sql    
    Adodc1.Refresh

    Set grid1.DataSource = Adodc1 ←ここで上記のエラーメッセージが出ます
    grid1.Refresh
================================================================================

プロジェクトの参照設定
・Visual Basic for Applications
・Visual Basic runtime objects and procedures
・Visual Basic objects and procedures
・OLE Automation
・Microsoft ActiveX Data Objects 2.8 Library
・Microsoft ActiveX Data Objects Recordset 2.8 Library
・Microsoft ActiveX Ext. 2.8 for DDL and Security
・Microsoft Data Binding Collection VB 6.0(SP4)

これだけの情報で伝わるのか自信はありませんが、どなたか解決策をご存知のかた
おられますでしょうか。

よろしくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。