紧急求助高手.

Question

以下代码:
Private Sub Command1_Click()
Dim wsd As Workspace
Dim strco As String
Dim co As ConnectionSet wsd = DBEngine.CreateWorkspace("wsdtest", "admin", " ", dbUseODBC)
strco = "ODBC; DSN=MS ACCESS 97 database; DBQ=\\h:\bib.mdb;"
Set co = wsd.OpenConnection("coname", dbDriverNoPrompt, False, strco)
End Sub
为何一执行就错误: 实时错误:3146  ODBC 调用失败.我是初学,怀疑是DBQ=\\h:\bib.mdb;一句有错,但手边无资料可查求高手指导一下谢谢.
还有是不是要设置ODBC? 但已经把指定为了odbcdirect工作区,不会吧??

Answer 1

\\h:\bib.mdb这种绝对路径当然不认，你可以把路径映射为本地驱动器试试

Answer 2

dbq=\\目标计算机名称或ip\目标计算机的共享目录名称\bib.mdb详细请寻找网络资源的通用命名规范(UNC)的相关资料。

Answer 3

谢谢两位，可是我改为："DBQ=\\ne\h:\bib.mdb;"还是不行（NE是我本机名），我该怎么办？

Answer 4

不能用h：的形式，例如，你的目标计算机名是abc，共享了它的xyz目录，而db1.mdb就在xyz目录下面,那么在缺省状态下,网络路径名就是:
\\abc\xyz\db1.mdb
如果共享者把xyz目录的共享名改为plo,那么共享名就是:
\\abc\plo\db1.mdb主要是看共享目录的共享名,根目录和隐藏目录的访问方法一样.