高手快来，解决VB+Access的超级难题(问好多人了)！！！！！！！

[mmxmmx1122]

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sq As String

sq = "SELECT 店铺名称, 产品编号, 类别, IIF(ISNULL(Sum(fh.期初发货)),0,Sum(fh.期初发货)) AS 期初发货, From (SELECT 店铺名称, 产品编号, 类别, SUM(IIF(发货日期<#1999-01-01#, 发货数量,0)) AS 期初发货, SUM(IIF(发货日期>=#1999-01-01# and 发货日期<=#2009-3-23#, 发货数量,0)) AS 本期发货 From 产品发货表 WHERE 店铺名称 BETWEEN '北辰' And '重庆MM' AND 产品编号 BETWEEN '101-SA001-0801-0146' And '618-CO052-0901-90XXL' GROUP BY 店铺名称,产品编号,类别"

rs.Open sq, cn, adOpenKeyset, adLockOptimistic

rs.RecordCount 记录集总取不到数据。经VB断点调试：<rs.RecordCount=对象关闭时，不允许操作>

大家快来帮帮忙吧，谢谢了！！！

[jhone99]

你的sql有问题

SELECT 店铺名称
     , 产品编号
     , 类别
     , IIF(ISNULL(Sum(fh.期初发货)),0,Sum(fh.期初发货)) AS 期初发货
 From (SELECT 店铺名称
            , 产品编号
            , 类别
            , SUM(IIF(发货日期 <#1999-01-01#, 发货数量,0)) AS 期初发货
            , SUM(IIF(发货日期>=#1999-01-01# and 发货日期 <=#2009-3-23#, 发货数量,0)) AS 本期发货
         From 产品发货表 
        WHERE 店铺名称 BETWEEN '北辰' And '重庆MM'
          AND 产品编号 BETWEEN '101-SA001-0801-0146' And '618-CO052-0901-90XXL'
       GROUP BY 店铺名称,产品编号,类别
       )

[hzg0113]

你好像漏了一句
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sq As String
Dim strCN As String
sq = "SELECT 店铺名称, 产品编号, 类别, IIF(ISNULL(Sum(fh.期初发货)),0,Sum(fh.期初发货)) AS 期初发货, From (SELECT 店铺名称, 产品编号, 类别, SUM(IIF(发货日期 <#1999-01-01#, 发货数量,0)) AS 期初发货, SUM(IIF(发货日期>=#1999-01-01# and 发货日期 <=#2009-3-23#, 发货数量,0)) AS 本期发货 From 产品发货表 WHERE 店铺名称 BETWEEN '北辰' And '重庆MM' AND 产品编号 BETWEEN '101-SA001-0801-0146' And '618-CO052-0901-90XXL' GROUP BY 店铺名称,产品编号,类别"
strCN = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\###.mdb;persist Security Info=False"
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.Open strCN
rs.Open sq, cn, adUseClient,adOpenKeyset, adLockOptimistic

[dufuguang]

加两句
set cn = New ADODB.Connection
set rs = New ADODB.Recordset

[sstlwg]

楼主引擎没打开...

Set Cn = New ADODB.Connection

Set Rs = New ADODB.Recordset

Cn.CursorLocation = adUseClient

Rs.CursorLocation = adUseClient

[reliang]

定义

[dxy2798]

rs.Open sq, cn, adOpenKeyset, adLockOptimistic

CN怎么没定义

[饮水需思源]

'cn没有与数据库关联
dim cn as new adodb.connection
With cn
    If .State = adStateOpen Then .Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source="& app.path &"\test.mdb;Mode=ReadWrite;Persist Security Info=False"    
    .Open
End With