Excel & ADO

[lord0n]

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


db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & lblDispTab.Caption & ";Mode=Read;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""

Set RS = New Recordset
RS.Open "select f1, f2, f8, f13, f16 from [Приход$a4:y65536] where f1 between #" & nd & "# and #" & kd & "# and f16 = '" & lstKlad.List(x) & "' order by f1 asc", db, adOpenStatic, adLockOptimistic


не пойму к чем дело: если книга, которую я открываю, открыта другим пользователем то открытие рекордсета длится около минуты, а потом выдает ошибку.
если книга закрыта - моментально и без ошибок

вроде файл открываю только для чтения

[Konst_One]

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

db.Mode=adModeRead
...
set rs.ActiveConnection=db
rs.open SQL, db, adOpenStatic, adLockReadOnly,adCmdText
...

[Ennor]

Ты-то, может, и только для чтения открываешь, а ты уверен, что первый пользователь эксклюзивный режим не выставляет?

Далее, adOpenStatic, adLockOptimistic - это не тру. Тру - это adOpenForwardOnly, adLockReadOnly.

[Konst_One]

сорри, кое-что забыл выкинуть:

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

db.Mode=adModeRead
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & lblDispTab.Caption & ";Mode=Read;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""

SQL="select f1, f2, f8, f13, f16 from [Приход$a4:y65536] where f1 between #" & nd & "# and #" & kd & "# and f16 = '" & lstKlad.List(x) & "' order by f1 asc"

Set RS = New Recordset
set rs.ActiveConnection=db
rs.open SQL, , adOpenStatic, adLockReadOnly,adCmdText
...

[Konst_One]

и проверь, что тебе ennor советует:

что первый пользователь эксклюзивный режим не выставляет?

[lord0n]

Ты-то, может, и только для чтения открываешь, а ты уверен, что первый пользователь эксклюзивный режим не выставляет?

Далее, adOpenStatic, adLockOptimistic - это не тру. Тру - это adOpenForwardOnly, adLockReadOnly.

не уверен, первый пользователь это простой оператор открывающий таблицу в Excel и заполняющий её в ручную

а как эксель открывает файл я незнаю

[Konst_One]

если галочку случайно на Эксклюзивный доступ не поставили, то должен открывать как обычно, правда, я не помню как там в старых офисах это дело было

[lord0n]

офис вроде новый + этот файл можно еще раз в экселе открыть, правда только для чтения (или уведомить пользователя)

[Konst_One]

так в чем проблема то?

[lord0n]

да вот благодаля вам проблемы уже нет, а до этого была
ОГРОМНОЕ СПАСИБО