[已解决]如何将查询出的值属值给标签~

ty_1029

并且我将地二中的条件加进去后,显示错误，汗~
条件为:
where 销售.jzdate >= Forms!DBquery!DTPicker1.Value And 销售.jzdate <= Forms!DBquery!DTPicker2.Value

ycxchen

当记录有一万几千条以上时用7楼的Sql = "SELECT sum(销售.xs) AS 累计销售 FROM 销售"估计求得合计的速度会较慢，用ADO 或DAO代码还应更快

ty_1029

当记录有一万几千条以上时用7楼的Sql = "SELECT sum(销售.xs) AS 累计销售 FROM 销售"估计求得合计的速度会较慢，用ADO 或DAO代码还应更快
ycxchen 发表于 2009-2-2 10:39

能不能给出个代码啊,我现在的水平就是拿来主义,呵呵~

ycxchen

其实，我对ADO 或DAO代码还不大熟悉，只是提个意见，看看其它高手的意见吧

ty_1029

各位斑竹大人,还有ACMAIN_CHM 大人~~快来帮忙解决一下啊,就省这一点小问题了~~
我又试了好多次,还是不可以,我把附件重新上川一下~~

ACMAIN_CHM

Option Compare Database
Option Explicit


Private Sub Command2_Click()
    Me.allxs.Caption = Nz(DSum("xs", "销售", _
        "jzdate between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"))
End Sub

Private Sub dbcx_Click()

    Dim Rs As New ADODB.Recordset
    Dim Sql As String
    Dim Conn As New ADODB.Connection
    Set Conn = CurrentProject.Connection
   
    Sql = "SELECT sum(销售.xs) AS 累计销售 FROM 销售 where jzdate between #" _
        & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
   
    Rs.Open Sql, Conn, adOpenForwardOnly, adLockReadOnly
    If Not Rs.EOF Then
        Me.allxs.Caption = Rs.Fields("累计销售").Value
    End If
        
    Rs.Close
    Set Rs = Nothing
    Set Conn = Nothing

End Sub






******************
*  一切皆有可能  *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

ycxchen

CHM兄真是位热心肠的高手！16楼的代码能否加个注释？

ycxchen

另，除了用SUM（）函数外，还有其它办法吗？我觉得用域合计函数当记录多时速度总觉慢

ty_1029

Option Compare Database
Option Explicit


Private Sub Command2_Click()
    Me.allxs.Caption = Nz(DSum("xs", "销售", _
        "jzdate between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & ...
ACMAIN_CHM 发表于 2009-2-2 11:58

再次对ACMAIN_CHM表示极大的感谢~~~

有人能告诉我一下,用第一种占用系统资源少,速度快,还是第二种??

ACMAIN_CHM

再次对ACMAIN_CHM表示极大的感谢~~~

有人能告诉我一下,用第一种占用系统资源少,速度快,还是第二种??
ty_1029 发表于 2009-2-2 14:27

实践是检验的标准。你自己一试就知道了。 利用NOW()函数得到当前时间，在运行前后打出时间就行了。比如

Private Sub Command2_Click()
    debug.print now()
    Me.allxs.Caption = Nz(DSum("xs", "销售", _
        "jzdate between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"))
    debug.print now()
End Sub

自己做试验吧，多准备一些记录在表中，否则也看不出差别。






******************
*  一切皆有可能  *
******************
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .