Нужно открыть dbf - файл одновременно DOS- программой на FOX и на VB.


КАк правильно настроить строку подключения - чтобы не было монопольного захвата в VB ?

Так НЕ РАБОТАЕТ, если при выполнении этого фрагмента файл уже открыт в режиме shared DOSовской программой.

cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Initial Catalog=O:\TMP.ALL\VB"
Set Cmd.ActiveConnection = cn


aaa_ = "SELECT * FROM REZ1"

rs.Source = aaa_
rs.ActiveConnection = cn
rs.Open

кузе
Я так уже пробовал, не помогает.

Кузе:

Вот мой фрагмент: (вылетает ошибка на rs.OPEN)
В ошибке сказано, что файл открыт монопольно другим пользователем или нет прав на доступ. Я открываю DOS фоксом как shared.



Private Sub Form_Load()
Dim Cmd As ADODB.Command
Dim Prm As ADODB.Parameter
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
Set Cmd = New ADODB.Command
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset

rs.LockType = adLockReadOnly
rs.CursorType = adOpenForwardOnly

cn.CursorLocation = adUseClient

cn.Open "Provider=MSDASQL.1;Persist Security Info=False;mode=19;Data Source=Файлы dBASE;Initial Catalog=c:\0street"

Set Cmd.ActiveConnection = cn

aaa_ = "SELECT * FROM streets"

rs.Source = aaa_
rs.ActiveConnection = cn

******* ошибка выдается здесь !!!*****************
rs.Open
***************************

Set DataGrid1.DataSource = rs

End Sub