Добрый день.
Можно ли сделать такой запрос?

Dim Sql As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

Sql = " select [code], sum([Day])+sum([Night])+sum([Holidays]) as Summ, [NameFile], [IDTabel] into [#temp] " _
+ " from [tabel_temp$] where year([Date]) <> '1900' group by [code],[NameFile],[IDTabel],month([Date]) " _
+ " " _
+ " select * from [tabel_temp$] " _
+ " where [IDTabel] in ( " _
+ " select [a].[IDTabel] " _
+ " from [#temp] [a] " _
+ " where [a].[Summ] = (select max([b].[Summ]) from [#temp] [b] where [b].[code] = [a].[code] group by [b].[code])) "

Range("A2").Value = Sql

я пытаю создать временную таблицу и сразу ее использовать.

Вызов я конечно делаю дальше (просто не вставил код)

1. При варианте с временной таблицей возникает ошибка -

Ошибка синтаксиса в выражении запроса ‘month([Date]) select * from [tabel_temp$] where [IDTabel] in ( select [a].[IDTabel] from [#temp] [a] where [a].[Summ] = (select max([b].[Summ]) from [#temp] [b] where [b].[code] = [a].[code] group by [b].[code]))’

Странно что запрос в сообщении ошибки отображается не весь.
Если выполняю результат переменной Sql на сервере, то все отрабатывает.

2. Попробовал вариант с with as (пытаюсь отойти от временной таблицы)

Dim Sql As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

Sql = "with temp_table ([code], [Summ], [NameFile], [IDTabel]) " _
+ " as (select [code], sum([Day])+sum([Night])+sum([Holidays]) as Summ, [NameFile], [IDTabel] " _
+ " from [tabel_temp$] where year([Date]) <> '1900' group by [code],[NameFile],[IDTabel],month([Date]) )" _
+ " " _
+ " select * from [tabel_temp$] " _
+ " where [IDTabel] in ( " _
+ " select [a].[IDTabel] " _
+ " from [temp_table] [a] " _
+ " where [a].[Summ] = (select max([b].[Summ]) from [temp_table] [b] where [b].[code] = [a].[code] group by [b].[code])) "

Range("A2").Value = Sql

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ";" & _
"Extended Properties=""Excel 8.0;"""

rst.Open Sql, cnn

Call ClearSheets("tabel")
Sheets.Add
ActiveSheet.Name = "tabel"

Sheets("tabel").Activate
Range("A1").CopyFromRecordset rst

rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing

В данном варианте возникает ошибка -
Ошибочная инструкция SQL; предполагалось DELETE, INSERT, PROCEDURE, SELECT или UPDATE

Если выполняю результат переменной Sql на сервере, то все отрабатывает.

Shocker.ProSasha2007Если выполняю результат переменной Sql на сервере, то все отрабатывает.стоп, на каком еще сервере?

cnn.Open "Provider= Microsoft.Jet .OLEDB.4.0;" & _
"Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ";" & _
"Extended Properties="" Excel 8.0 ;"""

Просто пробую выполнить запрос на SQL Server, cоздал табличку с данными (аналог листа с данными)

Shocker.ProВ общем, синтаксис того, что ты пишешь - TSQL

Для JET такие фокусы не прокатят - это ж совершенно другой движок, синтаксис языков разный, временные таблицы не поддерживаются (вот тут могу соврать, пусть камрады поправят, если чо)

понятно. А где можно почитать при синтаксис?

Всем спасибо.
Сделал все без временной таблицы, сделал временный лист )
Для меня тема закрыта.