ник: ser60
Нашел у микрософта работающий пример связывания таблиц dBase4 для Акцесса через oledb.
Function LinkdBaseFile(strPath As String, _
strLinkPro As String, strRemTab As String)
Dim conn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
' Open the catalog using the current Access database.
cat.ActiveConnection = CurrentProject.Connection
' Create the new table.
tbl.Name = "LinkedBae"
Set tbl.ParentCatalog = cat
' Set the properties to create the link.
tbl.Properties("Jet OLEDB:Create Link") = True
tbl.Properties("Jet OLEDB:Link Datasource") = strPath
tbl.Properties("Jet OLEDB:Link Provider String") = strLinkPro
tbl.Properties("Jet OLEDB:Remote Table Name") = strRemTab
' Append the table to the tables collection of the catalog.
cat.Tables.Append tbl
' Clean up.
Set cat = Nothing
End Function
Однако при попытке прилинковаться к таблам VFP 9.0 через окно “Immediate”: ?LinkdBaseFile("c:\MyDbaseFiles\","Microsoft OLE DB Provider for Visual FoxPro","UVN")
выдает сообщение:
В чем ошибка? У меня стоит акс2007
