怎么把 SELECT count的值賦給一個變量？

fatmingli

請問怎么把SQL查詢的語句的值賦給變量AA
查詢的語句是，也不知寫得對不對，請問代碼如何寫下去
SELECT  COUNT(DISTINCT 代碼)  as AA FROM 交易記錄 WHERE (((交易記錄.日期) >= [Forms]![交易記錄]![Text4])) GROUP BY 交易記錄.代碼 HAVING (((交易記錄.代碼)<>'其他' And (交易記錄.代碼)<>'1810'));

tmtony

SQL語句的值 不能直接賦給變量的
要 用ADO 或DAO
如 dim rs as dao.recordset
set rs=currentdb.openrecordset("select count(*) as aa from 表名 where 條件")
dim aa as long
aa=rs("aa")

fatmingli

謝謝，試一試試了,下面語句正常
Set rs = CurrentDb.OpenRecordset("SELECT count(*) as AA FROM 明威廣州證券交易記錄 where 證券代碼<>'其他' and 證券代碼<>'131810'")

但如果加上distinct就不正常了，
Set rs = CurrentDb.OpenRecordset("SELECT count(distinct 證券代碼) as AA FROM 交易記錄 where 證券代碼<>'其他' and 證券代碼<>'131810'")

我的目的是在計算表“交易記錄”中的字段“證券代碼”有多少條不同證券代碼。請問代碼怎么改，謝謝

fatmingli

找到了一個方法，好像這樣可以
Set rs = CurrentDb.OpenRecordset("select count(*) as AA from (select distinct 證券代碼 from 交易記錄 where 交割日期>='" & Text4 & "' and 證券代碼<>'其他' and 證券代碼<>'131810')")

tmtony

然后再 讀 rs("aa")的值 就可以了