После установки 2007 excel не работают макросы. До этого был 2002, все работало.

Сам макрос:
Sub вознаграждения()
'
' вознаграждения макрос
' макрос записан 10.03.2011 (u02635)
'
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim strSQL As String

Dim dd1 As Date
Dim dd2 As Date

dd1 = CDate("01.01.2010")
dd2 = CDate("31.01.2010")

Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DSN=stat", "stat", "stat"

strSQL = "SELECT * from (select t.d_report, t.znac from detail t where t.id_form = 10165 and t.d_report >= to_date(" & Chr(39) & dd1 & Chr(39) & ") and t.d_report <= to_date(" & Chr(39) & dd2 & Chr(39) & ") and t.id_pokaz in (select s.id from s_pokaz s where s.id_form = 10165 and s.code_pokaz = '3' and s.dat_end is null) order by t.d_report desc) where rownum = 1"
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
rst.Close

MsgBox strSQL
End Sub

Ругается на выделенную строку и выдает ошибку:
Драйвер ODBC не поддерживает требуемые свойства
Сам в VBA не разбираюсь, прошу помочь.

Как это сделать?

На что нужно изменить?)

Писал не я, я в этом вообще не разбираюсь, моя задача чтобы работало на 2007 офисе.
из оракловой базы тащатся данные в экселевскую таблицу, по этим данным рассчитываются определенные функции, я указал строку кода , на которую ругается компилятор...
попробую поменять на статик

поменял на статик, не помогло, таже ошибка

Драйвер ODBC не поддерживает требуемые свойства.

Не знаю как это сделать =)
Эта ошибка означает что нет подключения к БД?

Ставил не я, винда 32-я стоит 7-ка, разве 64-й офис можно на 32-ю винду натянуть?
Я вообще как посредник, ну с руководством не поспоришь, пытаюсь разобраться.

хорошо, спасибо вам за помощь

Ошибку кажется нашел, ну не знаю как ее исправить:
Ругается на строку:

rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic

а именно на переменную strSQL, если я убираю эту переменную, то вылезает другая ошибка на соответствие формата данных, если удаляю эти строки:
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
rst.Close

то макрос компилится, возможно ошибка в типе переменной strSQL, ну я не знаю как это исправить, ведь на 2003 офисе все работало.

Shocker.Proпопробуйте



та же ошибка - Драйвер ODBC не поддерживает требуемые свойства.

макрос работает на 2003 офисе, после переустановки работать отказывается.

Konst_Oneоткройте панель управления ODBC и проверьте свой DSN

как это сделать? )

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

Konst_Oneоткройте панель управления ODBC и проверьте свой DSN

Что именно нужно проверить? На других компьютерах этот макрос также не работает, выдает ту же ошибку. Хотя другие макросы работают. Может синтаксис VBA отличаться в различных версиях офиса?

Да, есть

Может проблема в синтаксисе? Для 2007 офиса не могут быть другой синтаксис на обращение к базе?
Он же ругается на строчку:
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic

Вот отрывок из аналогичного макроса, который выполняется без ошибок:
Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DSN=stat", "stat", "stat"
strSQL = "SELECT * from stat.detail d WHERE d.d_report =" & Chr(39) & curdate & Chr(39) & " and d.id_form=" & num_form
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
If rst.BOF = False Then
MsgBox "Äàííûå çà " & curdate & " óæå åñòü â áàçå!"
GoTo ext
End If
RstClose rst



Но мой нужный макрос не работает.

Shocker.ProCrywolfМожет проблема в синтаксисе? Для 2007 офиса не могут быть другой синтаксис на обращение к базе?так вы же сами сказали:
Crywolfпропущено...


та же ошибкау этого синтаксиса точно нет вариантов.

А тестирование соединения средствами самого DSN проходит?

а если

?

DSN я так понимаю настроен.

Если rst.Open strSQL, cnn, adForwardOnly, adReadOnly, то вылазит другая ошибка

Если сделать SELECT 1 , такая же ошибка: Драйвер ODBC не поддерживает требуемые свойства.

Konst_Oneвы не отвечаете на вопросы.

1. вы тестируете свои макросы всегда в одной книге экселя версии 2007?
2. DSN на этом компе рабочий?

Сейчас я тестирую на 2007 офисе, есть два файла, приложил к сообщению. Открываю personal.xls и пытаюсь прогнать макрос.
Я не знаю как проверить DSN , рабочий он или нет.

сам файл personal.xls

Konst_OneUDL файл для проверки создайте, я писал ранее

Вот что выходит, когда пытаюсь проверить подключение к stat

В файле что я приложил, там куча макросов, есть схожие по синтаксису, которые компилятся.

Пароль и пользователь это получается "stat", "stat"?

есть подключение

Разницы нет, синтаксис такой же.

Если в схожем макросе ставлю:

Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DSN=stat", "stat", "stat"
strSQL = "SELECT 1"
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
If rst.BOF = False Then
MsgBox "Äàííûå çà " & curdate & " óæå åñòü â áàçå!"
GoTo ext
End If
RstClose rst


То вылазит моя любимая ошибка про ODBC драйвер.

Посмотрите пожалуйста файлы, которые я скинул на форум, там есть эти макросы. Не могу понять в чем проблема.

Shocker.ProА если
SELECT 1 AS W
?

та же ошибка.

strSQL = "SELECT 1 AS W"
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
rst.Close