Как из файла dbf отобрать данные и результат поместить сразу в переменную?
Есть файл main.dbf из которого надо выбрать записи, соответствующие некоторым условиям. Например, периоду с 01.01.2007 по 31.01.2007 и (или) по какому-то другому признаку.
Если из Excel выполнить запрос (Данные -> Внешние данные -> Создать запрос), в Мастере запросов указать требуемые поля и условия файла main.dbf, указать в «заключительный шаг» пункт «Просмотр или изменение данных в Microsoft Query», то окно Microsoft Query с уже отобранными данными появляется быстро. А вот сам перенос отобранных данных на лист Excel происходит очень долго.
Сами отобранные данные не являются окончательным результатом и далее происходит их обработка. Для убыстрения работы сначала данные переносятся в переменные (массив), а затем сам массив обрабатывается.
Хотелось бы эти ненужные и очень медленные стадии переноса данных на лист и с листа в массив убрать, а сразу из запроса в массив.
Макрорекордер записывает только код с QueryTables.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;Driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB=d:;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Coll" _
), Array("ate=RUSSIAN;Null=Yes;Deleted=Yes;")), Destination:=Range("A1"))
.Sql = Array( _
"SELECT main.dataoper, main.summa" & Chr( 13 ) & "" & Chr( 10 ) & "FROM main main" & Chr( 13 ) & "" & Chr( 10 ) & "WHERE (main.dataoper>={d '2007-01-01'} And main.dataoper<={d '2007-01-31'})" & Chr( 13 ) & "" & Chr( 10 ) & "ORDER BY main.dataoper" _
)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
Похожие темы были и раньше, в т.ч. и на этом форуме, но применить их не получилось.
Читать помощь по ADODB.Recordset мне не лень - просто обычный пользователь в нагромождении той информации никогда не разберётся.
Перепробовал кучу вариантов, но ничего не получилось. Где-то возникает затык, никак не могу побороть его. Хотя для знающих людей этот затык сразу, наверное, виден.
Если можно, то прошу конкретно работающий код с конкретным файлом при конкретных условиях.
Т.е., файл main.dbf. В массив загнать все данные из полей Dataoper и Summa, удовлетворяющие условию с 1 по 31 января 2007 г. Дальше будет легче, я думаю.
Т.е., что-то типа:
1.
2.
3.
4.
Dim db As Database, rs As Recordset ' ... и другие нужные для запроса описания
Dim Data() As Variant ' массив переменных, куда надо поместить полученные запросом занные
' код подключения к main dbf и строки запроса - ТУТ НЕ МОГУ СООБРАЗИТЬ, ЧТО НАПИСАТЬ!
' в итоге нужен заполненный массив Data(), например, для:
MsgBox Data( 10 , 0 ) ' отображение 11 -го элемента даты
