各位好汉帮我看一下这个查询

RussellMX 2004-10-08 09:25:55

Public Function GetValue(ByVal StyleNO As Long) As Integer
Dim rsShowData As ADODB.Recordset
Dim sqlShowData As String
sqlShowData = "select count(*) as ReCount from "&_
"( select count(*) from t_TABLE "&_
"where styleid=" & StyleNO & " group by No) cc"
Set rsShowData = GetRecordSet(sqlShowData)
If Not rsShowData.EOF Then
GetValue = rsShowData("Recount")
Else
GetValue = 0
End If
End Function

Run-time error '-2147217900(80040e14)':
No column was specified for column 1 of 'cc'.

...全文

149 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

海洋微风 2004-10-08

打赏
举报

为什么要嵌套呢.
Public Function GetValue(ByVal StyleNO As Long) As Integer
Dim rsShowData As adodb.Recordset
Set rsShowDate = New adodb.Recordset
Dim sqlShowData As String
sqlShowData = "select count(*) as ReCount from t_TABLE " _
& " where styleid=" & StyleNO & " group by No"
Set rsShowData = GetRecordSet(sqlShowData)
If Not rsShowData.EOF Then
GetValue = Trim(rsShowData!Recount) & vbNullString
Else
GetValue = 0
End If
End Function

xldata 2004-10-08

打赏
举报

当在select中select时，别名前一定要加个AS
因此CC前面应该加个AS

asom 2004-10-08

打赏
举报

语法有点错误啊,select 后面跟的不对啊,你看看楼上说的吧as ReCount from "&_
"( select count(*)'这里应该是表名啊,你这样做电脑会报错啊,FRom后面要跟表名或者视图名

mingday 2004-10-08

打赏
举报

as ReCount from 后面是表或视图名呀

mingday 2004-10-08

打赏
举报

第一个select 后的表名不对

sakurako 2004-10-08

打赏
举报

看不明白

vbman2003 2004-10-08

打赏
举报

Select Count(*) As ReCount From
(Select Count(*) As Re From t_TABLE
Where styleid=" & StyleNO & "
Group by [No]) As cc

我在SQL上试过了，没问题。你贴我的语句试试。还要注意 styleid字段是int类型

fslyw 2004-10-08

打赏
举报

没有必然这样写呀，你直接“select count(*) from t_TABLE where styleid=" & StyleNO & " group by No”这段，再看看Recordset的Count属性就可以了。

of123 2004-10-08

打赏
举报

sqlShowData = "Select Count(*) As ReCount From " & _
"(Select Count(*) As f1 From t_TABLE " & _
"Where styleid=" & StyleNO & " Group By No) cc"

RussellMX 2004-10-08

打赏
举报

这个查询原来是用于ACCESS数据库,现在用到sql server里面就不行了,sql server数据库是没有什么问题的,问题就在这个查询上面.

常遇道 2004-10-08

打赏
举报

Public Function GetValue(ByVal StyleNO As Long) As Integer
Dim rsShowData As adodb.Recordset
Set rsShowDate = New adodb.Recordset
Dim sqlShowData As String
sqlShowData = "select count(*) as ReCount from " _
& "(select count(*) from t_TABLE " _
& " where styleid=" & StyleNO & " group by No) cc"
Set rsShowData = GetRecordSet(sqlShowData)
If Not rsShowData.EOF Then
GetValue = Trim(rsShowData!Recount) & vbNullString
Else
GetValue = 0
End If
End Function

RussellMX 2004-10-08