dBASE IV, проблема с совместным доступом

[Алексей К.]

Ситуация следущая...
База хранится на моем компе, моя прога обрабатывает эту базу.
Так вот, когда кто-то с другого компа моей прогой впервей меня обрашается к базе(по виндовой сети) то выдается ошибка (у меня).
Т.е. у обоих на двух компах запущена моя прога, кто впервей нажал тот и работает - у друго ошибка.(на обоих 98 винды)
Подключение в проге такое:

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

Set dbf = DAO.OpenDatabase(путь, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")
запрос = "select * from " & имя_файла
Set rs = dbf.OpenRecordset(запрос)
rs.GetRows (строк) 'считываем строки
rs.MoveFirst 'встаем на первую запись
...

На строке Set rs = dbf.OpenRecordset(запрос) выдает след. ошибку:

Run-time error "3033" You do not have the necessary permissions to use the "c:\base\010104.dbf"...

Типа нет разрешения на доступ. Может не так подключаю?
Как сделать возможность совместной работы? При работе базу не меняем, только читаем ее. Помогите плиз

[Алексей К.]

Даже на своем компе я загружаю прогу два раза , в первой запускаю запрос и потом во второй запускаю и в ней ругается на отсутствие прав. А когда первая закончила запрос, вторая обрабатывает запрос уже нормально.
Как подключить через ADO, приведите код если не трудно (попробую через него конектится)
Помогите!!!!! Что же делать, как же быть!!!!

[Ennor]

...
А когда первая закончила запрос, вторая обрабатывает запрос уже нормально.
...

Ну так с этого надо было начинать. Это называется "блокировки объектов в режиме многопользовательского доступа". И никуда ты от них не денешься. У тебя просто описание ошибки неправильное, иначе сам догадался бы...

[Алексей К.]

Да нет - денешься. Если я подключаюсь через ADO то все работает нормально (15 программ- процессов загружал и все работают с одной базой одновременно). Вот код подключения:

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

Set dbf = New ADODB.Connection
Set rs = New ADODB.Recordset
dbf.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dbf;Extended Properties=dBase IV"
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.Open "SELECT * FROM k010103", dbf
rs.GetRows (512)
rs.MoveFirst
...

А через DAO не хочет (программа одна и таже, отличие только в способе подключения базы). Вопрос остается открытым...

[alibek]

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

[Алексей К.]

Set rs = dbf.OpenRecordset(a$, dbReadOnly)
Опять так же ругается. Или открывать не монопольно не так? Приведи, если не трудно, код.