Прочитал статейку с рекомендациями использовании в сетевых приложениях "отсоединенного рекордсета" для связанной формы и пакетного обновления. (К сожалению, не указано для mdb или adp). Что это за зверь "отсоединенный рекордсет"? Есть примеры?

Re: В хелпах есть все. Ну, почти все Порылся в хелпах. Простят меня модераторы приведу пример целиком
Option Compare Database
Option Explicit

These three examples demonstrate how the Save and Open methods can be used together.

Assume you are going on a business trip and want to take along a table from a database.
Before you go, you access the data as a Recordset and save it in a transportable form.
When you arrive at your destination, you access the Recordset as a local,
disconnected Recordset. You make changes to the Recordset, then save it again.
Finally, when you return home, you connect to the database again and update it
with the changes you made on the road.

First, access and save the Authors table.

BeginSaveVB

To integrate this code
replace the data source and initial catalog values
in the connection string

Public Sub Main()
On Error GoTo ErrorHandler

recordset and connection variables
Dim rstAuthors As ADODB.RecordSet
Dim Cnxn As ADODB.Connection
Dim strCnxn As String
Dim strSQLAuthors As String

Open connection
Set Cnxn = New ADODB.Connection
strCnxn = "Provider=sqloledb;Data Source=MySqlServer;" & _
"Initial Catalog=Pubs;Integrated Security=SSPI;"
Cnxn.Open strCnxn

Set rstAuthors = New ADODB.RecordSet
strSQLAuthors = "SELECT au_id, au_lname, au_fname, city, phone FROM Authors"
rstAuthors.Open strSQLAuthors, Cnxn, adOpenDynamic, adLockOptimistic, adCmdText

For sake of illustration, save the Recordset to a diskette in XML format
rstAuthors.Save "c:Pubs.xml", adPersistXML

clean up
rstAuthors.Close
Cnxn.Close
Set rstAuthors = Nothing
Set Cnxn = Nothing
Exit Sub

ErrorHandler:
clean up
If Not rstAuthors Is Nothing Then
If rstAuthors.State = adStateOpen Then rstAuthors.Close
End If
Set rstAuthors = Nothing

If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing

If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
EndSaveVB

At this point, you have arrived at your destination.
You will access the Authors table as a local, disconnected Recordset.
Dont forget you must have the MSPersist provider on the machine that
you are using in order to access the saved file, a:Pubs.xml.
BeginSave2VB
Public Sub Main()
On Error GoTo ErrorHandler

Dim rst As ADODB.RecordSet
Set rst = New ADODB.RecordSet

For sake of illustration, we specify all parameters
rst.Open "c:Pubs.xml", "Provider=MSPersist;", adOpenForwardOnly, adLockBatchOptimistic, adCmdFile

Now you have a local, disconnected Recordset - Edit as you desired
(In this example the change makes no difference)
rst.Find "au_lname = Carson"
If rst.EOF Then
Debug.Print "Name not found."
Exit Sub
End If

rst!city = "Chicago"
rst.Update

Save changes in ADTG format this time, purely for sake of illustration.
Note that the previous version is still on the diskette, as a:Pubs.xml.
rst.Save "c:Pubs.adtg", adPersistADTG

clean up
rst.Close
Set rst = Nothing
Exit Sub

ErrorHandler:
clean up
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
End If
Set rst = Nothing

If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
EndSave2VB

Finally, you return home. Now update the database with your changes.
BeginSave3VB
Public Sub Main()
On Error GoTo ErrorHandler

To integrate this code
replace the data source and initial catalog values
in the connection string

Dim Cnxn As New ADODB.Connection
Dim rst As ADODB.RecordSet
Dim strCnxn As String

Set rst = New ADODB.RecordSet
The lock mode is batch optimistic because we are going to
use the UpdateBatch method.
rst.Open "c:Pubs.adtg", "Provider=MSPersist;", adOpenForwardOnly, adLockBatchOptimistic, adCmdFile

Connect to the database, associate the Recordset with the connection
then update the database table with the changed Recordset
strCnxn = "Provider=SQLOLEDB;Data Source=MySqlServer;Integrated Security=SSPI;Initial Catalog=pubs;"
Cnxn.Open strCnxn

rst.ActiveConnection = Cnxn
rst.UpdateBatch

clean up
rst.Close
Cnxn.Close
Set rst = Nothing
Set Cnxn = Nothing
Exit Sub

ErrorHandler:
clean up
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
End If
Set rst = Nothing

If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing

If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
EndSave3VB


Демонстрация мощи и гибкости ADO
В комментариях нужды нет

В кратце, без полного перевода, так... [blue]первый Sub Main[/blue]
создается рекордсет на основании данных таблицы c MS SQL Server
и этот рекордсет сохраняется в XML файл [green](c:Pubs.xml)[/green] с помощью метода .save

[blue]второй Sub Main[/blue]
Открывается рекордсет на основе xml файла [green](c:Pubs.xml)[/green] созданного в первом sub Main
Это и есть отсоединенный рекордсет
Затем ищится запись со значением Carson в поле au_lname
[green](rst.Find "au_lname = Carson")[/green]если не найдено [green](If rst.EOF Then )[/green] то вываливаемся из процедуры, если найдено
то вносим изменение в поле [blue]city[/blue], вписываем туда "Chicago"
В принципе можно вносить любые изменения
и сохраняем изменения в рекордсете [green](rst.Update)[/green]
а затем сохраняем в файле ADTD [blue](c:Pubs.adtg)[/blue]
ADTD специальный транспортый формат. В принципе это сделано для демонстрации возможностей, можно было сохранить в тот же XML файл


[blue]третий Sub Main[/blue]

открываем рекордсет на основании файла c:Pubs.adtg
Создаем коннекшет к sql server
Изменяем у рекордсета свойство [green]ActiveConnection[/green] на созданный коннекшет к SQL server
Делаем обновление rst.UpdateBatch

вот собствено и все...

Отчету в лоб по моему не получится, во всяком случае в MDB... если я еще не все забыл, то отчет на хочет принимать ADO recordset...
но точноне знаю надо проверять

а форме пожалуйста
на загрузку формы нужно написать что-то подобное:

Dim rst As ADODB.Recordset
Private Sub Form_Load()
Set rst = New ADODB.Recordset
rst.Open "c:Pubs1.xml", "Provider=MSPersist;", adOpenDynamic, adLockOptimistic, adCmdFile
Set Me.Recordset = rst
End Sub

Вот только, опять же не точно, этот рекордсет будет не обновляемым (во всяком случае в MDB)...
Забыл я все... не помню деталей...
насчет удобства не знаю, никогда так не делал

Re: И еще 1 вопрос - а что это за провайдер Provider="MSPersist"

Re: Сохранение изменений в базе Как раз весь фокус в простоте внесения изменений в базе rst.UpdateBatch(так называемое пакетное обновление).
НЕмножко поработал на выходных. Все получилось, почти как в хелпе
Кратко комментарии
1. Создаем рекордсет adRst(чтобы не путать с DAO) Важно:
adRst.LockType =adLockBatchOptimistic
adRst.CursorType = adOpenKeyset
на других выдавал ошибку
2. Сохраняем adRst в файле Bath.rst на диске
3. Закрываем активное соединение
4. Открываем сохраненный рекордсет adRst из файла(создаем временный объект Connection)
5. Открываем форму. Назначаем Me.Recordset=adRst. Все связанные контролы также придется присоединять(adRst.Fields). Прописать Me.UniqueTable
6. Работаем с формой. Можно вносить изменения, добавлять или удалять записи
7. Закрываем соединение с файлом
8. Открываем активное соединение(с базовой таблицей)
9. adRst.UpdateBatch - вносим изменения

Re: Работа в сети Формат базы mdb
Данные на Jet (ну поменять провайдера, если данные на SQL )
Переходил на adp & SQL Server - убил два месяца... и вернулся к Jet.

Ага, вся фишка в UniqueTable ... только у меня в связке с MSSQL перестаeт работать счетчик.