联合查询

[VulcanTerry]

数据库用的是ACCESS，查询语句在ACCESS中正常，但在VB.NET中提示“其他信息: ORDER BY 子句语法错误。”
代码如下：

    Private Sub FillCustomersAccounts()
        strCustomersAccountsSQL = "Select Customer, EarningDate as AccountDate, Description as Desc, Amount as DR, 0 as CR From " &
            "tblCustomersEarns Where EarningDate Between #2014-1-1# And #2014-1-31# " &
            "UNION ALL Select Customer, OrderDate as AccountDate, Remark as Desc, 0 as DR, Account as CR From " &
            "S:\Order.accdb.tblOrder Where OrderDate Between #2014-1-1# And #2014-1-31#"
        conCustomer.Open()
        Dim CustomersAccountsDataAdapt As New OleDb.OleDbDataAdapter(strCustomersAccountsSQL, conCustomer)
        Dim CustomersAccountsDataset As New DataSet
        CustomersAccountsDataAdapt.Fill(CustomersAccountsDataset, "CustomersAccounts")
        dgvCustomerAccount.DataSource = CustomersAccountsDataset
        dgvCustomerAccount.DataMember = "CustomersAccounts"
        conCustomer.Close()
    End Sub

求大神正解。

[bdmh]

是不是\被转义了

[VulcanTerry]

我其他涉及跨文件的查询都有“\”并且正常的，并且如果不是联合查询，就能正常执行，不知道是不是VB.NET对联合查询的语句有什么特殊要求。

[liuchaolin]

直接在Access中做视图(查询表)不就可以了

[VulcanTerry]

引用 1 楼 bdmh 的回复:

是不是\被转义了

如果单独执行“Select Customer, OrderDate as AccountDate, Remark as Desc, 0 as DR, Account as CR From S:\Order.accdb.tblOrder”SQL语句，也是正常的。