ник: ser60
Здравствуйте, Анатолий! Еще раз перечитал статью «Работаем с DBF файлами». Понял, что т.к. я пытаюсь работать с VFP файлами, то ISAM здесь не причем. Нужно пытаться отрабатывать соединение с помощью драйвера или провайдера.
Вопрос по провайдеру. А тот код, что я привел, не означает, что Акс использует внешние провайдеры в строке подключения связанных таблиц? Ведь этот код работает для dBase4.
Хочу попросить Вас просмотреть и откорректировать следующий код. Опыта мало еще, чувствую, что задаю элементарные и сырые вопросы. Например, что рекордсет нужно записывать в таблицу, но ведь мне нужна только линкованная таблица… Просто слепил показанные два фрагмента… ((
Function LinkVFPKiev()
Dim cnn As Object 'ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Set cnn = CreateObject("ADODB.Connection")
cnn.Provider = "Microsoft OLE DB Provider for Visual FoxPro" 'èëè "vfpoledb", èëè "vfpoledb.1"
cnn.Properties("Data Source") = "c:\MyDbaseFiles\" 'Рабочая папка
cnn.Open
' Open the catalog using the current Access database.
cat.ActiveConnection = CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 'adUseClient
rs.Open "MyFile", cnn, 1, 3, 2 'adOpenKeyset, adLockOptimistic, adCmdTable
End Function