Результат запроса из *.mdb в массив

[Тимофей]

Имеется *.mdb база. По результатам запроса из таблицы выбирается часть записей. Их нужно скинуть в массив. Возможно ли это способом отличным от перебора всех записей:
If .RecordCount > 0 Then
.MoveLast
.MoveFirst
For NumKom = 1 To .RecordCount
' функция обработки
.MoveNext
Next NumKom
End If
Аналогично для записи из массива в таблицу БД.

[Konst_One]

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

Dim rs as ADODB.Recordset

...
rs.Save app.Path & "\saved.xml",adpersistxml
...


[Тимофей]

А если DAO, и насколько я понял результат сбрасывается в файл *.xml ?

[Konst_One]

c DAO слишком муторно и давно уже не использовал.
а в ADO технологий следующая:
1. открываешь соединение
2. получаешь клиентский рекордсет
3. сохраняешь его в файл (ADTG, XML - это по-вкусу)
4. если нужно уже после можешь загрузить указанный рекордсет из этого файла и внести нужные изменения
5. подключаешь его обратно к коннекшену
6. апдейтишь свои внесенные изменения
7. закрываешь рекордсет и коннекшн

[Тимофей]

А я к сожалению не работал с DAO.
Все что написал, понятно. Но как это программно выглядит? И еще. Мой вопрос я задал потому что
заполнение объекта рекордсет происходит сравнительно долго (записей 200 например). Будет ли быстрее твой вариант с записью файла на диск, затем чтением данных из него ?

[Konst_One]

конечно

[Konst_One]

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

dim cn as ADODB.Connection
Dim rs as ADODB.Recordset
Dim sConnect as string
Dim SQL as string

sConnect="Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & app.Path & "\my.mdb;Persist Security Info=True"

set cn=New ADODB.Connection
cn.Open sConnect


SQL="SELECT * FROM MyTable"

set rs=New ADODB.recordset
rs.CursorLocation=adUseClient
set rs.ActiveConnection=cn
rs.Open SQL, , adOpenStatic, adLockReadOnly, adCmdText
set rs.ActiveConnection=Nothing

rs.Save App.Path & "\saved.xml", adPersistXML

...



[Тимофей]

Ламерский вопрос, но как еще подключить к проекту ?

[Тимофей]

Имел в виду ADODB.
И как скинуть потом данные из *.xml в массив.

[Konst_One]

Project\References\Microsoft ActiveX Data Objects 2.5(или 2.6,2.7,2. Library

[Konst_One]

а зачем тебе из XML в массив кидать?
ты же его также и откроешь прямо в рекордсете:

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


...
rs.open app.path & "\saved.xml", "Provider=MSPersist",adOpenDynamic, adLockBatchOptimistic, adCmdFile
...