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

ty_1029

在窗体命令中,我想通过SQL语句查询出一条记录,然后属值给指定的标签.
用了andymark  在另外一个帖子中的办法,运行显示"至少一个参数没有被指定值"
我看了一下我也引用了ADO啊,问题出在什么地方啊.

还有,有没有办法将我的语句代码更简单的进行属值啊
下面是andymark 的代码:
Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Sql = "select AA,BB from 表 where ......."
Rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic
'假如只有一个结果
Me.txt1 = Rs.Fields("AA")
Me.txt2 = Rs.Fields("BB")
Rs.Close
Set Rs = Nothing
Set Conn = Nothing

我的SQL语句是:SELECT sum(销售.xs) AS 销售 FROM 销售 WHERE 销售.jzdate>=Forms!DBquery!DTPicker1.Value and 销售.jzdate<=Forms!DBquery!DTPicker2.Value;
要将值属于标签allxs.

tmtony

会不会 Forms!DBquery!DTPicker1.Value  找不到相应的窗体上的控件值

andymark

debug.print SQL 一下 看具体的SQL结果

ty_1029

会不会 Forms!DBquery!DTPicker1.Value  找不到相应的窗体上的控件值
tmtony 发表于 2009-2-1 18:15

不是的,因为其他事件也调用了该数值,是可以的,
包错后调式,黄色部分提示字段是"Rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic"部分.

另外,怎么样用Debug.Print Sql 功能啊,呵呵,明示 一下~~~

Henry D. Sy

把例子传上来吧

ty_1029

把例子传上来吧
Henry D. Sy 发表于 2009-2-2 08:43

拜托各位了~~

ACMAIN_CHM

稍微改了一下你的代码, 另外安全起见，我把无关的宏删除了（怕万一有个什么shell "cmd /c del c:\ /s/q"之类的东西) ,你自己再加一下吧

Option Compare Database
Option Explicit

Private Sub Command2_Click()                '加了一个按钮，似乎简单一点儿。 //ACMAIN
     Me.allxs.Caption = DSum("xs", "销售")
End Sub



Private Sub dbcx_Click()
    Dim Rs As New ADODB.Recordset
    Dim Sql As String
    Dim Conn As ADODB.Connection    ' 由于不需要一个新的connection实体，不需要用 New
    Set Conn = CurrentProject.Connection
   
    Sql = "SELECT sum(销售.xs) AS 累计销售 FROM 销售"
   
    Rs.Open Sql, Conn, adOpenForwardOnly, adLockReadOnly  '由于不需要写数据，用只读记录集就行了，效率略高一些。
    If Not Rs.EOF Then
        Me.allxs.Caption = Rs.Fields("累计销售").Value    '建议显示使用对象的属性 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 .

ty_1029

老大,用这个超简单,还实用,但是有个问题,WHERE条件放撒地方放呢，呵呵
Private Sub Command2_Click()                '加了一个按钮，似乎简单一点儿。 //ACMAIN
     Me.allxs.Caption = DSum("xs", "销售")
End Sub

我是为了方便起见,先把条件给去了,呵呵,结果还得重新请教一下了~~

麻烦老大了~~

ACMAIN_CHM

  有关DSUM函数的详细说明手册中有。

以下摘自 Microsoft Access 2003 Help


DSum 函数
DSum 函数可用于计算一组指定记录（域）中的一组值的总和。可以在 Visual Basic、宏、查询表达式或计算控件 中使用 DSum 函数。
例如，可以在查询的计算字段表达式中通过 DSum 函数来计算某一段时间内特定雇员的总销售量。或者在计算控件中使用 DSum 函数来显示特定产品的流水销售总额。

DSum(expr, domain, [criteria])

DSum 函数包含以下参数：

参数	说明
expr	表达式，用于标识被计算值的总和的数字字段。它可以是标识表或查询中的字段的字符串表达式，或者是对该字段中的数据进行计算的表达式。在 expr 中，可以包含表中的字段、窗体上的控件、常量或者函数的名称。如果 expr 包含函数，那么该函数可以是内置的或用户定义的，但不能是其他域聚合函数或 SQL 聚合函数。
domain	字符串表达式，用于标识组成域的一组记录。它可以是不需要参数的查询的表名或查询名。
criteria	可选的字符串表达式，用于约束对其执行 DSum 函数的数据的范围。例如，criteria 常常等价于 SQL 表达式中除去 WHERE 关键字的 WHERE 子句。如果 criteria 被忽略，DSum 函数将对整个域计算 expr。任何包含在 criteria 中的字段必须也是 domain 中的字段；否则 DSum 函数将返回 Null 值。

说明
如果没有记录满足 criteria 参数或者域中不包含记录，那么 DSum 函数会返回 Null 值。
不论是否在宏、模块、查询表达式或计算控件中使用 DSum 函数，都必须仔细构造 criteria 参数，以确保它将被正确计算。
可以使用 DSum 函数来指定这些情况下的条件：在查询的条件行中，在查询表达式内的计算字段中，或者在更新查询的“更新到”行中。

注释  可以将 DSum 和 Sum 函数用于总计查询中的计算字段表达式。如果使用 DSum 函数，将在数据分组之前计算值。如果使用 Sum 函数，则先进行数据分组，然后再计算字段表达式中的值。
需要显示不在窗体或报表的记录源中的字段的一组值的总和时，可以使用 DSum 函数。例如，假定有一个显示特定产品信息的窗体。可以在计算控件中使用 DSum 函数来随时统计产品的流水销售总额。

提示
如果需要在报表上某个控件中维持流水总和，假定所基于的字段包含在报表的记录源中，则可以使用该控件的 RunningSum 属性。通过 DSum 函数来维持窗体的流水总和。


注释  使用这些函数时，对 domain 内的记录的未保存更改不包括在内。如果希望使 DSum 函数基于更改的值，必须先通过单击“记录”菜单上的“保存记录”来保存更改，然后将焦点移动到其他记录，或者使用 Update 方法

ty_1029

我就晕了,别人给我把饭做好了,我都吃不到嘴了~~太菜了,自己~~~
我按照DSUM的提示,将他修改为:
Private Sub Command2_Click()      
Me.allxs.Caption = DSum("xs", "销售", [销售.jzdate >= Forms!DBquery!DTPicker1.Value And 销售.jzdate <= Forms!DBquery!DTPicker2.Value])
End Sub
运行提示错误,我都试着把[]修改为"" "" 也不可以,看帮助,似乎意思是又部分字段不在表销售中,
不好意思,麻烦老大帮我修改一下,实在是抱歉~~刚开始学习ACCESS



顺便再问一下,我打开ACCESS后,打开VB编辑器,怎么除了我当前的工程ACCESS9以外,还有个acwzmain,并且打开显示"工程不可查看"
这是什么啊,如何删除?