Office中国论坛/Access中国论坛

标题: 为什么说我是无效使用关键字NEW????? [打印本页]

作者: qian2004 时间: 2007-10-11 09:34
标题: 为什么说我是无效使用关键字NEW?????
Dim sql As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
sql = "select [生产企业] from [产品档案] where [生产企业]=" & Me.生产企业
rs.Open sql
Me.总计 = rs.Fields.Count

我这个语句有什么错误吗?????
我在ACCESS里操作应该是不用连接数据库了吧.

谁来帮我解答一下,谢谢

我想通过一个按钮事件中,想统计当前生产企业里的名称有多少个,应该是这样做的吧.

[ 本帖最后由 qian2004 于 2007-10-11 09:47 编辑 ]

作者: hi-wzj 时间: 2007-10-11 09:58
直接用dcount函数来统计即可

作者: qian2004 时间: 2007-10-11 10:12
我不是统计一个字段.而是统计当前文件框里的值在这个字段有几个,dcount能做到吗.我先试试看.谢谢

作者: hi-wzj 时间: 2007-10-11 10:17
dcount("*","产品档案","[生产企业]='" & Me.生产企业 & "'")

作者: andymark 时间: 2007-10-11 10:19
打开当前数据库用CurrentProject.Connection
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

作者: qian2004 时间: 2007-10-11 10:35
=DCount("*","产品档案","[生产企业]='" & [Me].[生产企业] & "'") 为什么返回这个的???

:'( :'( 老大救命啊.
这个应该是我想要的那个,但me.生产企业怎么自动加上那个啊,加上了就出不来了.

作者: qian2004 时间: 2007-10-11 11:01
终于好.原来直接写成这样就行了.
=DCount("*","产品档案","[生产企业]='" & [生产企业] & "'")

谢谢老大,帮我解决一个难是了.NND我想了一夜了.

rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
这个应该是可以,但老是说我不能传数值什么的,烦了,就是上面的那个了.

:D 真开心.

作者: tz-chf 时间: 2007-10-11 12:12
me的扩号去掉好了了了了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)