declare @a number(4); sselect @a=sum(to_number(COL_VCHAR)) from UR_TABLE where zy='1' 不知道行不行
用ADO的RecordSet对象返回SQL语句的查询结果
用ADO的RecordSet对象返回SQL语句的查询结果
dim Rst AS New Adodb.RecordSet dim Cn AS New Adodb.Connection dim SqlStr as String SqlStr = "select sum(to_number(COL_VCHAR)) as aaa from UR_TABLE where zy='1' " Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" Rst.Open SqlStr , Cn, 1, 3 xxx=Rst.Fields("aaa").Value msgbox xxx
Dim oraConn As OraDatabase Dim odtList As OraDynaset Set odtList = oraConn.CreateDynaset(strSQL, ORADYN_DEFAULT)
sselect @a=sum(to_number(COL_VCHAR)) from UR_TABLE where zy='1'
不知道行不行
dim Cn AS New Adodb.Connection
dim SqlStr as String
SqlStr = "select sum(to_number(COL_VCHAR)) as aaa from UR_TABLE where zy='1' "
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
Rst.Open SqlStr , Cn, 1, 3
xxx=Rst.Fields("aaa").Value
msgbox xxx
Dim odtList As OraDynaset
Set odtList = oraConn.CreateDynaset(strSQL, ORADYN_DEFAULT)