我发现了一个OLEDB FOXPRO提供商可以连接到MS Access中的VFP表。我想将连接切换为DSN少,因此我要做的就是让客户安装OLEDB驱动程序而不是设置DSN。我将使用什么连接字符串?
这是我使用的代码,但似乎不起作用。它在运行时提示我进行ODBC DSN。
Set db = CurrentDb()
tablecount = db.TableDefs.Count ' Number of tables
' Loop through all tables, reattaching those with nonzero-length Connect strings.
oldconnect = ""
For i = 0 To tablecount - 1
Set td = db.TableDefs(i)
If td.Connect <> "" Then 'Connect is empty if local table
Debug.Print td.Name, td.Connect
td.Connect = "Provider=vfpoledb;Data Source=C:Donor6Data"
td.RefreshLink 'refresh link
End If
Next i
使用类似的连接字符串:
提供者= vfpoledb; data source = c: yourdatafolder
它只是有效的。