Jet 数据库和传递查询、参数

Question

我正在通过 ODBC 连接到 Jet 4 DB。 Jet DB 使用对 Oracle DB 的直通查询。到目前为止，这是有效的（无法直接访问 pt 查询，但在查询上创建视图可以解决问题）。

我需要 p-ts 返回的数据的一些子集。参数最好，但不支持。

有两个问题：

1）Jet 似乎确实能够将一些 where 子句推送给 Oracle。例如，我有一个返回 100k 行的直通查询。具有单个过滤子句（例如“district = '1010'”）的 pt 视图非常快，因此处理似乎发生在 Oracle 上。添加更多子句可能会使查询速度变慢，在 CPU 利用率很高的情况下循环几分钟。是否有关于 Jet 方面传递的内容和完成的内容的任何文档？

2) 有很多关于如何使用 VBA/Access 创建动态直通查询的教程。是否可以使用通过 ODBC 访问的 Jet 来执行此操作（或任何具有此效果的操作）？

谢谢 马丁

编辑： 抱歉这么不清楚。

我有一个通过 ODBC 访问 Jet 数据库的报告工具。 Jet 数据库包含一些数据和对 Oracle 数据库的多个直通查询。典型的用例是使用 Jet 和 Oracle 的数据为给定部门和给定日期生成报告。从原理上讲，这非常有效。

问题是直通查询不能包含任何参数。直通查询的工作方式类似于视图，因此我可以简单地执行“select * from pt_query where dep = 'a' and date = somedate”。然而，Jet 从 pt 加载所有行并在客户端执行完整扫描。对于 100k 行视图来说，这太慢了，我需要找到一种方法来避免这种情况。

对于一些简单的选择，Jet 似乎确实让 Oracle 完成了艰苦的工作，并且不会加载所有行，因此我的问题 1。

如果这不起作用，我需要找到一种方法来强制 Jet只加载 Oracle 针对给定请求所需的数据。

我知道我可以通过Access VBA修改pts，但我只能通过ODBC连接，所以我只能将SQL传递给Jet，而不能调用vb api（除非可以在SQL语句中内联VB）。

Answer 1

构造查询来引起表扫描并非不可能，这就是导致问题的原因。

您似乎正在使用 VBA 工作。可以在 VBA 中构建相当多有趣的查询作为 SQL 字符串，并将它们保存到新查询、更新现有查询、将它们用作表单的记录源或打开记录集。您可以使用 DAO 或 ADO，具体取决于您想要执行的操作。我有Oracle，所以我所能做的就是使用SQL Server提出想法，方括号中的连接可以通过查看链接表的连接来获得(CurrentDb.TableDefs("NameOfTable").Connect)：

Dim cn As New ADODB.Connection

''You can use Microsoft.ACE.OLEDB.12.0 or Microsoft.Jet.OLEDB.4.0
scn = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" _
    & CurrentProject.FullName
cn.Open scn

''An insert query, but you can see that is would be easy enough to 
''select from two different databases
s = "INSERT into [ODBC;Description=TEST;DRIVER=SQL Server;" _
& "SERVER=ServerName\SQLEXPRESS;Trusted_Connection=Yes;" _
& "DATABASE=test].Table2 (id, atext) select id, atext from table1"

cn.Execute s

或者

''http://www.carlprothman.net/Default.aspx?tabid=87
strConnect = _
    "Provider=sqloledb;" & _
    "Data Source=myServerName;" & _
    "Initial Catalog=Test;" & _
    "Integrated Security=SSPI"
With cmd
    .ActiveConnection = strConnect
    .CommandType = adCmdText
    .CommandText = "SELECT ID, aText FROM table2 " _
                 & "WHERE ID=?"
    .Parameters.Append .CreateParameter _
        ("ID", adInteger, adParamInput, , 1)
    .CommandTimeout = 0
    Set rs = .Execute
End With

Answer 2

您可以在自己的数据库中复制 PT 查询，而不是在另一个数据库中链接到它吗？

PT 查询中的所有 sql 都应该在链接服务器上执行，而 Jet 不会尝试解析或执行它。从杰特的角度来看，这是一种外语。

我将在 PT 中使用这样的代码：

SELECT * FROM DHSVIEWS.ClaimHeaderV    WHERE
DHSViews.claimheaderV.ClaimType = 'p'    AND
DHSViews.claimheaderV.FinalVersionInd = 'y'    AND
DHSViews.claimheaderV.ReimbursementAmount > 0    AND
DHSViews.claimheaderV.majorProgram = 'HH'    AND
DHSViews.claimheaderV.ServiceDateFrom >= [qStart]    AND
DHSViews.claimheaderV.ServiceDateFrom <=  [qEnd];

在 VBA 中使用这样的代码：

Set qdef = db.QueryDefs(qryPT)
sqlOld = qdef.sql
iPosStart = InStr(sqlOld, "[")
sqlNew = sqlOld
Do While iPosStart > 0
    iPosEnd = InStr(iPosStart, sqlNew, "]")
    param = Mid(sqlNew, iPosStart + 1, iPosEnd - iPosStart - 1)
    Select Case param
        Case "qStart"
            paramVal = "'" & rsQuarter("quarterStart") & "'"
        Case "qEnd"
            paramVal = "'" & rsQuarter("quarterEnd") & "'"
    End Select
    sqlNew = Mid(sqlNew, 1, iPosStart - 1) & paramVal & Mid(sqlNew, iPosEnd + 1)
    iPosStart = InStr(iPosEnd, sqlNew, "[")
Loop
If sqlNew <> sqlOld Then
    qdef.sql = sqlNew
End If
db.QueryDefs(rsPTAppend("append")).Execute
If sqlNew <> sqlOld Then
    qdef.sql = sqlOld
End If