该怎样才能返回得数呢,请大家帮我解决一下,谢谢了!!!原函数如下:
Function sum_table()
matrix_server = "aa"
matrix_base = "aa"
u_id = ""
u_pass = ""
Dim ssql As String
Dim Command5 As ADODB.Command
Dim cn As ADODB.Connection
Set Command5 = New ADODB.Command
Set cn = New ADODB.Connection
With cn
.ConnectionString = "driver={SQL server};server=" + matrix_server + ";uid=" + u_id + ";pwd=" + u_pass + ";database=" + matrix_base + ""
.Open
.CommandTimeout = 30
End With
If (Option1.Value = True) Then
ssql = "select sum(列1) from [表1]"
ElseIf (Option2.Value = True) Then
ssql = "select sum(列2) from [表1]"
End If
cn.Execute ssql
cn.Close
End Function
Function sum_table()
matrix_server = "aa"
matrix_base = "aa"
u_id = ""
u_pass = ""
Dim ssql As String
Dim Command5 As ADODB.Command
Dim cn As ADODB.Connection
Set Command5 = New ADODB.Command
Set cn = New ADODB.Connection
With cn
.ConnectionString = "driver={SQL server};server=" + matrix_server + ";uid=" + u_id + ";pwd=" + u_pass + ";database=" + matrix_base + ""
.Open
.CommandTimeout = 30
End With
If (Option1.Value = True) Then
ssql = "select sum(列1) from [表1]"
ElseIf (Option2.Value = True) Then
ssql = "select sum(列2) from [表1]"
End If
cn.Execute ssql
cn.Close
End Function
不要这样写
你可以写成
set rs=cn.execute ssql
或
rs.open ssql,cn,1,1
这时rs(0).value这是你要的