帮解决一个小问题:adoq1.sql.text='select count(*) from TcultureDomicile' 查询结果赋给一个变量 ( 积分

帮解决一个小问题:adoq1.sql.text='select count(*) from TcultureDomicile' 查询结果赋给一个变量 ( 积分: 50 )<br />如题:
adoq1.sql.text='select count(*) from TcultureDomicile' 查询返回的数据赋给一个变量

为什么要赋给变量啊？
var
df:_Recordset;
定义一个Recordset类型的变量赋过来不就可以了吗？
df:=ADOQuery1.Recordset;

var
cc:integer;
begin
adoq1close;
adoq1.sql.text='select count(1) as cc from TcultureDomicile'
adoq1.open
cc:=adoq1.fieldbyname('cc').asinteger;

将sql改成：'select count(*) as cnt from TcultureDomicile
然后
var
i:integer;
begin
with adoquery do
begin
i:=FieldByName('cnt').value;
end;
end;

var
i:integer;
begin
with adoquery do
begin
Active:=false;
sql.text='select count(*) from TcultureDomicile' ;
Active:=true;
i:=Fields[0].value;
end;
end;

楼上差不多都对

低价提供计算机专业视频教程,所有教程由业内名家讲解，
物超所值,保证所有视频高清晰，特快专递三天内到.
联系方式:手机：13576145612(手机联系佳) QQ:108410943
E-mail:ncncldjjg@126.com
1、Oracle9iOCP(Oracle认证专家DBA)视频教程(23CD)
2、SQL语言、数据挖掘、SQLServer2000视频教程(6CD)
3、计算机网络原理视频教程(4CD)
4、计算机实用组网技术视频教程(3CD)
5、MCSE（微软认证系统工程师）认证视频教程(11CD)
6、windows2003即学即会视频教程(6CD)
7、J2EE Web程序开发定向班/Java就业班视频教程
(java基础jsp核心技术UML设计)(13CD)
8、赛迪网校J2EE基础高级案例分析视频教程(9CD)
9、马士兵J2SE入门与精通(含坦克大战、BBS实例)视频教程(6CD)
10、孙鑫java语言深入详解视频教程(12CD)
11、张效详java技术从入门到精通视频教程(21CD)
12、张效详javascript全接触视频教程(13CD)
13、code365网站源程序(9CD)
14、unix原理视频教程(3CD)
15、Linux软件开发工程师(C语言)视频教程(4CD)
16、Linux配置、管理、优化实战工程师视频教程(8CD)
17、Linux内核编程视频教程(11CD)
18、C语言详解视频教程(2CD)
19、孙鑫VC++6.0开发技术术详解视频教程(6CD)
20、ASP.NET中文视频教程(3CD)
21、洪恩C#入门多媒体教程(1CD)
22、XML技术视频教程(2CD)
23、吉大操作系统视频教程(3CD)
24、吉大网络技术基础视频教程(2CD)
25、吉大数据结构视频教程(5CD)
26、清华大学计算机专业多媒体教程（数据结构、汇编、编译原理等）(13CD)
27、大学数学[离散数学线性代数概率与数理统计微积分]视频教程(22CD)
28、LearnKey Asp.Net (老外用英语讲课)(13CD)
29、LearnKey Asp.Net Webservice(老外用英语讲课)(5CD)
30、AppDev Asp.Net2.0 UsingC# (老外用英语讲课)(1CD)
31、APPDev .Net Framework(老外用英语讲课)(2CD)
32、林清安pro/e2001(野火版)视频教程(18CD)
33、深圳大学3D设计视频教程(4CD)
34、3DMAX建模视频教程(老外用英语讲课)(6CD)
35、3DMAX纹理与贴图材质灯光视频教程(老外用英语讲课)(5CD)
36、3DMAX格式500个常用模型库(4CD)
37、lightscape基础入门视频教程(2CD)
38、聚光制造（lightscape3.2入门与精通视频教程）(4CD)
39、coreldraw12中文版入门与精通swf格式视频教程(2CD)

wuyongzhen兄的是正确的

adoq1.open执行之后得到一个纪录集。。。。 ms ADO里称作 recordset,delphi封装之后叫做_Recordset