AccessでのDAOレコードセットの基礎となるSQL Serverパススルークエリ

Question

最近、Accessデータベースのバックエンドを作成してSQL Serverに移行しました。私は、VBAコードを使用して、SQL Serverバックエンドへの接続を作成し、VBレコードセットに格納された結果でパススルークエリを実行しようとしています。これを試すと、クエリは通過しません。

Dim db As DAO.Database 
Dim rs As DAO.Recordset 
Dim strConnect As String 

strConnect = "DRIVER=SQL Server;SERVER=55.55.55.55 SQLExpress;UID=UserName;PWD=Password" 

Set db = OpenDatabase("DBName", dbDriverNoPrompt, True, strConnect) 

Set rs = db.OpenRecordset("SELECT GetDate() AS qryTest", dbOpenDynaset) 

MsgBox rs!qryTest 

rs.Close 
db.Close 
Set rs = Nothing 
Set db = Nothing 

私は取得しています問題は完全に適切なGetDate() SQL Serverの機能は、「式でユーザー定義関数 『のGetDate』」ランタイムエラー3085を返しているということです。 MS-Access Query Builderのパススルーと同じクエリをVBAコードの外に作成すると、正常に実行され、サーバーの日付と時刻が返されます。

Answer 1

QueryDefオブジェクトを使用してパススルークエリを作成し、次にQueryDefの.OpenRecordsetメソッドを使用してRecordsetを開く必要があります。次のコードは私のために働いています：

Dim qdf As DAO.QueryDef, rst As DAO.Recordset 
Set qdf = CurrentDb.CreateQueryDef("") 
qdf.Connect = "ODBC;Driver=SQL Server;Server=.\SQLEXPRESS;Trusted_Connection=Yes;" 
qdf.SQL = "SELECT GetDate() AS qryTest" 
qdf.ReturnsRecords = True 
Set rst = qdf.OpenRecordset 
Debug.Print rst!qryTest 
rst.Close 
Set rst = Nothing 
Set qdf = Nothing 

Answer 2

Gord、渡されたパラメータと挿入文でprocを実行するコードのmodを提供できますか？私はそれに取り組んできましたが、それを打ち負かすことはできませんでした。私は基本的なコードが働いているので、私はサーバーと正しく話しています、私はちょうどOpenRecordsetを正しいものにしていません。

基本的には、私は3段階のプロセスを行っています：SPの実行の開始を記録し、SPを実行し、最後を記録します。これらは私のSQL文字列です：

私はあなたの意見をいただければ幸いです。そして、Access/SQLプログラミングに関する良い本をお勧めしますか？私はSQL Server側での経験のgobsを持っている、私のアクセスFuは少し弱いです。

Answer 3

パススルークエリを使用してローカルテーブルにINSERT INTOを実行することはできません。結果のクエリ（Querydefで生成したもの）をINSERTのソースとして使用します。