OpenRecordset中为什么不能使用参数dbSQLPassThrough？

Question

access2003中： 
sql = "select * from table" 
Set STS = db.OpenRecordset(sql, dbOpenDynaset, dbSQLPassThrough) 
运行提示异常 

Answer 1

好象是对大型分布式数据库使用的
你用的是access2003,属于桌面式开发
你不是在一个帖子中问过了么?

Answer 2

我这里在access2003的OpenRecordset中也能用dbSQLPassThrough 

Answer 3

我是这么测试的，完全正常 
Private Sub Command1_Click()    Dim objDB As Database
    Dim rs As Recordset
    Dim strSql As String
    Set objDB = OpenDatabase("F:\test\test.mdb")    strSql = "SELECT * From  a where  num_t = 5;  "
    Debug.Print strSql
    Set rs = objDB.OpenRecordset(strSql, dbOpenDynaset, dbSQLPassThrough)
    Debug.Print rs.Fields(1)
    rs.Close
    Set rs = Nothing
    objDB.Close
    Set objDB = NothingEnd Sub

Answer 4

lz这些天这些奇怪问题我猜可能是升级转化带来的问题，你如果新建access2003数据库可能就不会出现

Answer 5

楼上连接的是access mdb，
我用的是odbc 连接oracle：
即：Set db= DBEngine.Workspaces(0).OpenDatabase("", False, False, "ODBC;DSN=aaaaa;;UID=bbbb;PWD=cccc")
不知道是不是这个原因呢？

Answer 6

你早说啊
你用的是DAO
现在大家都用ADO了

Answer 7

在access2003中编程，用oracle数据库？

Answer 8

我用oracle数据库测试也成功
Private Sub Command1_Click()    Dim objDB As Database
    Dim rs As Recordset
    Dim strSql As String
    Set objDB = DBEngine.Workspaces(0).OpenDatabase("", False, True, "ODBC;UID=test;PWD=123;DSN=testdb;")    strSql = "SELECT * From  test_table where  test_no = 'TEST12345'  "
'    Debug.Print strSql
    Set rs = objDB.OpenRecordset(strSql, dbOpenDynaset, dbSQLPassThrough)
    Debug.Print rs.Fields(1)
    rs.Close
    Set rs = Nothing
    objDB.Close
    Set objDB = NothingEnd Sub

Answer 9

楼上使用的是access2003还是access97？

Answer 10

ODBC
看不出来,这个需要看怎么配置的,连的什么只有他自己知道

Answer 11

在access2007下有问题， 但是在access2003下就没有问题。

Answer 12

DAO很多人都不用了,淘汰了,我说过了吧?

Answer 13

怎么又蹦出个access2007，你到底用什么？一次说清楚不好吗

Answer 14

你的程序在哪里？vb中？
你的数据库用什么？access2003/access2007/oracle？（我晕了，一会儿这个，一会儿那个）

Answer 15

使用的access2007开发的FORM程序， 其中数据库用的是odbc连接oracle