タイトル : 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) これだけの情報で伝わるのか自信はありませんが、どなたか解決策をご存知のかた おられますでしょうか。 よろしくお願いいたします。 |