0

以下のコードを使用すると、「オブジェクトが閉じているときは操作は許可されません」というエラーが表示されます。ここで何が欠けていますか？

 Dim dbconnect, dbresults

 Set dbconnect = CreateObject("ADODB.Connection")
 Set dbresult = CreateObject("ADODB.Recordset")

dbconnectString =  "driver=iSeries Access ODBC Driver;System=***;UID=***;PWD=***;Naming=1"
dbconnect.Open (dbconnectString)        
mySQLQuerry ="Select XOORIG  from FIQDLIB.FSFPXO as400xo WHERE as400xo.xoefdt = 1130418 and as400xo.xotrsq in (75440)"
dbresult.Open mySQLQuerry, dbconnect
4

1 に答える 1

0

接続を開いた後、接続状態を確認します。WScript.Echo dbconnect.Stateまた、接続文字列がオフに見えます。このページによると、ドライバー名は中括弧で囲む必要があります。

于 2013-04-19T07:59:10.697 に答える