пытаюсь взять Excel 2003 и подключить его к SQL Server 2000, чтобы выполнить несколько динамически генерируемых SQL-запросов, которые в конечном итоге заполняют определенные ячейки.

Я пытаюсь сделать это через VBA через ADO (яя пробовал 2,8-2,0) но яя получаю сообщение об ошибке при настройкеActiveConnection переменная, которая находится внутриADODB.Connection объект. Мне нужно решить это довольно быстро ...

Запрошенная операция требует объекта сеанса OLE DB, который не поддерживается текущим поставщик.

Я, честно говоря, не уверен, что означает эта ошибка, и сейчас я нене волнует.Как добиться успеха этого соединения, чтобы я мог выполнять свои запросы?

Вот мой код VB:

Dim SQL As String, RetValue As String
SQL = " select top 1 DateTimeValue from SrcTable where x='value' " 'Not the real SQL
RetValue = ""


Dim RS As ADODB.Recordset
Dim Con As New ADODB.Connection
Dim Cmd As New ADODB.Command

Con.ConnectionString = "Provider=sqloledb;DRIVER=SQL Server;Data Source=Server\Instance;Initial Catalog=MyDB_DC;User Id=;Password=;"
Con.CommandTimeout = (60 * 30)


Set Cmd.ActiveConnection = Con   ''Error occurs here.

' I'm not sure if the rest is right. I've just coded it. Can't get past the line above.
Cmd.CommandText = SQL
Cmd.CommandType = adCmdText

Con.Open
Set RS = Cmd.Execute()

If Not RS.EOF Then

    RetValue = RS(0).Value
    Debug.Print "RetValue is: " & RetValue

End If
Con.Close

Я думаю, что что-то не так со строкой подключения, но яМы попробовали более десятка вариантов. Сейчас я'м просто стрелял в темноте ....

Примечание / Обновить: Чтобы еще больше сбить с толку, если я закажу Google из приведенной выше цитаты об ошибках, я получу много обращений, но ничего не уместно, или яЯ не уверен, какая информация имеет отношение .... Я

у меня есть код VBA "Лист1" под "Объекты Microsoft Excel. «Я»мы делали это раньше, но обычно помещаем вещи в модуль. Может ли это иметь значение?