Excel VBA（クエリテーブル同じブック）のクエリ文字列を使用してSQLプロシージャコードを実行します。

Question

新規SQL with SQL。私は同じブックのシートに格納されているテーブルから動的ピボットクエリをテストするためにExcel VBAを介してクエリ文字列を介してSQLコードを実行しようとしています。通常のクエリは完全に（SELECT）動作していますが、SQL文は正しく動作していません。

私は私が達成したい何を、何度も何度も

Invalid SQL statement expected; 'DELETE','INSERT' ...エラーを受け取るには、動的なピボット（変数の列に行）を取得するためのSQLクエリです。私はピボットテーブルでこれを達成したくありません。私はVBAのSQL文字列クエリでそれをやりたいと思います。これを行うことができますどのように

Sample data

？

On Error GoTo ErrorConexion 
    objAdoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
    "Data Source=" & ThisWorkbook.path & "\" & ThisWorkbook.Name & ";" & _ 
    "Extended Properties=""Excel 8.0;HDR=YES;FMT=Delimited; IMEX=1;""" 

    strSQL = "SET NOCOUNT ON " & Chr(13) _ 
     & "CREATE TABLE #tempdata(tmpf1 date, tmpf2 int)" _ 
     & " INSERT INTO #tempdata(tmpf1,tmpf2)" _ 
     & " SELECT [DATE], [AMOUNT] FROM " & GetTableRange(StrTable) 

    On Error GoTo ErrorSQL 
    objAdoRS.Open strSQL, objAdoConn 

私はこのようなコードを実行したいと思います：

DECLARE @Category AS VARCHAR(MAX) 
SELECT @Category = 
    COALESCE(@Category + ', ', '') + CAST(Category AS VARCHAR(20)) 
    FROM (SELECT DISTINCT Category FROM mytable) Books 
DECLARE @DynamicPIVOT AS VARCHAR(MAX) 
SELECT @DynamicPIVOT = 'SELECT ' + @Category + 
' FROM (
    SELECT amount, Category FROM mytable 
) Books 
PIVOT (
    MAX(amount) FOR Category IN (' + @Category + ') 
) Result;' 

EXEC (@DynamicPIVOT) 

よろしく、 ヴィンスを。

Answer 1

単に動的ピボットクエリを実行するためにcrosstab queryJET/ACE SQLの非常に自身を使用しています。

strSQL = "TRANSFORM MAX(t.[AMOUNT]) AS MaxAmount" _ 
      & " SELECT t.[DATE] " _ 
      & " FROM [SheetName$] t" _ 
      & " GROUP BY t.[DATE]" _ 
      & " PIVOT t.[PEOPLE]" 

注意：255個の制限があります。 PEOPLEが254を超える場合、調整が必要です。

Answer 2

これを試しましたか？一時テーブルを作成し、挿入して選択するよりもずっと簡単です。 1つのselect文でtempテーブルに直接挿入しています。

& "SELECT [DATE], [AMOUNT] INTO #TempData FROM " & 
    GetTableRange(StrTable)