0

我束手无策。看了很多论坛但没有找到。

我正在尝试使用 VB 2010 System.Data.OleDb 对象从 Access db 查询数据。下面是代码：

Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT format( dateadd(""m"", -e.tenure, e.expirydate), ""yyyy-mm-dd"")  as Expired, n.customerid , e.type as Description, (select s.type from servicetype s where s.servicecode = e.servicecode) as CodedType,  (select v.servicecode from servicetype v where v.servicecode = e.servicecode) as ServiceCode, e.totalamount INTO [Excel 12.0 Xml;DATABASE=d:\BookTest.xlsx;HDR=Yes;].[Sheet1] " _
        & " From notification n, notificationservice e where " _
        & " e.notificationid = n.notificationid " _
        & " and mid(n.notificationid, 1,2) ='RN' " _
        & " and jn_duplicate = 0 " _
        & " and dateadd(""m"", -e.tenure, e.expirydate) between @1 and @2 " _
        & " and ( n.salesid is null or ( n.salesid is not null and not exists 
          ( select paymentid from payment p where p.invoiceid = n.salesid) ))  ", _
        m_conn)


        AccessCommand.Parameters.Add("@1", OleDbType.Date).Value = New DateTime(2013, 7, 21) '"#20-jul-2013#"  '(InputBox("Enter Expiry DateFrom in dd-mon-yyyy", "", "", 100, 100))
        AccessCommand.Parameters.Add("@2", OleDbType.Date).Value = New DateTime(2013, 7, 31) '"'#30-jul-2013#"  '(InputBox("Enter Expiry DateTo in dd-mon-yyyy", "", "", 100, 100))

但是尝试尽可能多的组合，我总是收到错误，比如没有指定数据等。

我的目标是要求用户输入两个日期，这些日期将在日期之间的查询中形成日期从和日期。

非常感谢任何帮助。

谢谢赵

4

1 回答 1

0

来自配置参数的文档；

用于 OLE DB 的 .NET Framework 数据提供程序和用于 ODBC 的 .NET Framework 数据提供程序不支持将参数传递给 SQL 语句或存储过程的命名参数。在这种情况下，您必须使用问号 (?) 占位符，如下例所示。

换句话说，对于 OleDB，您需要替换between @1 and @2 "为between ? and ? "并仅依赖于参数的顺序。

于 2013-08-07T04:25:07.500 回答