时间戳

首页 > 解决方案 > 在 Access 中使用 ADODB

vba - 在 Access 中使用 ADODB

问题描述

我正在尝试使用带有访问vba的adodb连接，它没有返回任何数据，我想我的问题是连接，即使我使用的是CurrentProject.Connection。

需要帮助，这是我的代码

Dim cnThisConnect As New ADODB.Connection
Dim rsExpenses As New ADODB.Recordset
Dim sQuery As String

    sQuery = "SELECT  [ShippingSoldPrice] , ShippingPurchaseTaxe FROM Vehicles LEFT JOIN Contacts AS C ON 
    Vehicles.CustomerID = C.ID"
    sQuery = sQuery & " Where " & Me.Filter

     Set cnThisConnect = CurrentProject.Connection

     rsExpenses.Open sQuery, cnThisConnect, adOpenDynamic, adLockOptimistic

    If Not rsExpenses.EOF Then

标签： vbams-accessdatabase-connectionadodb

解决方案

尝试删除包含 where 子句的行，这可能是问题所在

'sQuery = sQuery & " Where " & Me.Filter

然后检查返回的记录，如果有记录则问题出在过滤条件上。

希望这可能会有所帮助

推荐阅读