Fatal编程技术网
  • vba/
  • Vba 在Access中使用ADODB

Vba 在Access中使用ADODB

vba ms-access

Vba 在Access中使用ADODB,vba,ms-access,database-connection,adodb,Vba,Ms Access,Database Connection,Adodb,我试图使用access vba的adodb连接，但它没有返回任何数据，我想我的问题是连接，即使我使用的是CurrentProject.connection 需要帮助请，这是我的代码 Dim cnThisConnect As New ADODB.Connection Dim rsExpenses As New ADODB.Recordset Dim sQuery As String sQuery = "SELECT [ShippingSoldPrice] , ShippingPurch

我试图使用access 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
尝试删除包含where子句的行，可能这就是问题所在

'sQuery = sQuery & " Where " & Me.Filter
然后检查返回的记录，如果有记录，则问题在于过滤条件

希望这可以帮助例如
像
操作符：
*
的DAO是
%
用于ADO