高分请教：Adodb的超难度问题！

[huangyj]

在Visual Basic 6.0中，利用ADODB进行数据库操作，RecordSet执行一条Sql查询语句时，居然返回一个错误描述信息为：“非单组分组函数”的错误，这条语句在Oracle中执行没有问题。

[czwwh]

具体的是什么语句，在VB和Oracle中有的语法是不一样的

[huangyj]

代码如下：
Dim rstHead As ADODB.Recordset
Dim strSQL As String

Set rstHead = New ADODB.Recordset
strSQL = "SELECT COUNT(*) AS iRecordCount FROM DZBZ WHERE BANHAO='" & varHead(0) & "' AND TONGHAO='" & varHead(1) & "' AND GONGHAO='" & varHead(2) & "'AND KZNY='" & varHead(3) & "'"

rstHead.Open strSQL, mAdoConn, adOpenDynamic, adLockOptimistic

With rstHead
If .Fields("iRecordCount") = 0 Then
GetDZBZInfo = 0
Else
GetDZBZInfo = 1
End If
.Close
End With
Set rstHead = Nothing
Exit Function
E:
strError(0) = CStr(Err.Number)
strError(1) = Err.DescriptionstrError(3) = "ModDengZhang.clsInputZb.GetDZBZInfo"
GetDZBZInfo = -1

[huangyj]

不知道语法有何不一样，直接提交给Oracle执行的语句而已

[饮水需思源]

strSQL = "SELECT * FROM DZBZ WHERE BANHAO='" & varHead(0) & "' AND TONGHAO='" & varHead(1) & "' AND GONGHAO='" & varHead(2) & "'AND KZNY='" & varHead(3) & "'"

rsthead.movenext
rsthead.movefirst
If rsthead.recordset.recordcount= 0 Then
GetDZBZInfo = 0
Else
GetDZBZInfo = 1
End If

[huangyj]

Leftie(Yutou) :
果然是这样一个问题！！！

[huangyj]

看来Visual Basic和Oracle之间还存在很多的配合问题。