UBS DBF Connection 在 Windows 2003 Server 跑 Domain

nillwong

我在 Local Notebook 里用 VB6 connect 去 UBS DBF,成功！我的connection 是这样子的：

  Set DB = New ADODB.Connection
  DB.CursorLocation = adUseClient
  DB.ConnectionTimeout = 0

  CStr = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & vUBSPath & ";SourceType=DBF;WorkArounds2=24;"
  DB.Open CStr

  Set rs = New ADODB.Recordset
  tSQL = "SELECT * FROM GLPOST WHERE CREDITAMT> 0 ORDER BY REFNO"
  rs.Open tSQL, DB, adOpenStatic, adLockReadOnly
   
   
  With rs
      ....
      ....   
      ....
      ....   
  End With

可是，什么我一搬过去 Network Environment 时，一跑到   rs.Open tSQL, DB, adOpenStatic, adLockReadOnly 就会出现 Data Provider or other service returned an E_FAIL status  的 message？ 过后就跳出来了。

[ 本帖最后由 nillwong 于 27-4-2007 11:39 AM 编辑 ]

白日梦

我不熟悉 vb6 指令和错误讯息。
留意下会否是 user permission 或 access rights 的问题 ？

我在 Windows Server 2003 SP1 环境下用 Notebook 的 Visual FoxPro 9.0 连接去 Domain Server 开 UBS 的 DBF/CDX 是没问题，只是 Report .FRX 就 non-compatible，因为 UBS 是用 Visual FoxPro 8.0 来开发的。

建议你改用 VFP8 试一试。

[ 本帖最后由 白日梦 于 28-4-2007 11:58 AM 编辑 ]

nillwong

解决了，只要把这一行：DB.CursorLocation = adUseClient
删除掉就可以了。