アクセスパススルーDSNレスのOracleクエリ

Question

私は、DSNなしでOracleデータベースからの私のテーブルを返すExcelで何かを持っています。私はAccessで同様のアプローチを望んでいた場合でも、私はこれを試してみました：私はここでエラーになってしまい

Dim db As DAO.Database 
    Dim qdf As DAO.QueryDef 
    Dim rs As DAO.Recordset 

    Set db = CurrentDb 
    Set qdf = db.CreateQueryDef("") 
    qdf.Connect = "ODBC;DRIVER={Microsoft ODBC for Oracle};CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=" & IP & ")(PORT=XXXX))(CONNECT_DATA=(SERVICE_NAME=" & svcname & ")));" & _ 
    "Uid=" & Username & ";PWD=" & password &";" 


    qdf.Sql = "---some query" 

    qdf.ReturnsRecords = True 

    Set rs = qdf.OpenRecordset 

：

は、私ができることはここにありますかと等価なものはありませんAccessのクエリテーブルについて

Answer 1

パススルークエリを作成して機能させることをお勧めします。コードなしでPTクエリを作成+実行することができます。アクセスUIで100％動作するPTクエリを取得し、その後にコードを試してみてください。

PTクエリを作成します。アクセスUIでPTクエリをクリックすると機能しますか？ このクエリの作業を取得（そして後にのみ）したら、あなたは、このようなコードでそのPTクエリを実行することができます

Dim rst  As DAO.Recordset 
Set rst = CurrentDb.OpenRecordset("qryPassR") 

は、Oracleクエリの生のSQLを変更する必要がある場合は、あなたが行くことができます：その後、

Dim rst  As DAO.Recordset 

With CurrentDb.QueryDefs("qryPassR") 
    .SQL = "select * from tblHotels" 
    Set rst = .OpenRecordset 
End With 

そして、あなたは店のPROCを実行したい場合、あなたはONE作業PTクエリを作成したら、あなたは上記のようなコードで何度も繰り返し、それを使用することができますので、

With CurrentDb.QueryDefs("qryPassR") 
    .SQL = "exec storeProc" 
    .ReturnsRecords = False 
    .Execute 
End With 

を行きます。したがって、接続文字列をコードに配置する必要はありません。PTクエリを作成するだけで、接続文字列を管理して管理します。