Excel 2003. Заполнение ячеек листа результатами запроса

[КрузенштернИ.Ф.]

Приветствую!
есть необходимость в цикле выводить результаты запросов в ячейки листа Excel(запрос выводит одно значение). Запросы направляются в базу MS SQL 2000. Для решения задачи был использован следующий кусок кода:

Код: Выделить всё

sCommandText = " blablabla "
        Worksheets(sList).Cells(iY, iX).ClearContents
        Worksheets(sList).Cells(iY, iX).Formula = ""
        Sheets(sList).Select
        Cells.Select
        Range("A1").Select
        With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER=SQL Server;SERVER=" + sServName + ";UID=" + sServName + ";APP=Microsoft Office 2003;WSID=" + _
sServName + ";DATABASE=" + sDBName + ";Trusted_Connection=Yes" _
            , Destination:=Sheets(sList).Cells(iY, iX))
            .CommandText = sCommandText
            .Name = "bla"
            .FieldNames = False
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlOverwriteCells 'xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = False
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .Refresh BackgroundQuery:=False
        End With


всё вроде бы хорошо, но цикл большой (сотни итераций), а данные выводятся крайне медленно, так как видимо для каждого запроса устанавливать каждый раз соединение к базе накладно по времени. Вопрос знатокам - есть ли возможность как-то ускорить этот процесс? может быть можно один раз установить соединение для всех запросов или вообще как-то по-другому данные тащить?...

[GSerg]

Каждая QueryTable тянет в своём (новом) connection.

Либо написать запрос, возвращающий все записи сразу, либо использовать ADO вручную.

[КрузенштернИ.Ф.]

спасибо
Приведите, пожалуйста, кратенький кусок кода на соединение с базой MSSQL2000 и работой с RecordSet (+ вытряхивание результата запроса на лист Excel )
PS: пробую пример из справки - система ругается "User-defined type not defined" - видимо какая-то библиотека нужна?

[GSerg]

Видимо нужна (неужели были сомнения...)
И в списке библиотек подходящих не так много. Там, где ActiveX Data Objects встречается...

[КрузенштернИ.Ф.]

Господа, во время коннекта к базе использую следующий код:

Код: Выделить всё


    Dim Conn As New ADODB.Connection
    Conn.Open "Provider=SQLOLEDB;Password=1;Persist Security Info=True;User ID=sa;Initial Catalog=" + sDBName + ";Data Source=" + sServName + ";Network Library=dbmssocn"


можно ли использовать вместо логина\пароля горячо любимый Trusted Connection во время соединения?

[GSerg]

www.connectionstrings.com

[alibek]

На www.connectionstrings.com есть различные примеры строки подключения. В том числе и с Windows-авторизацией.