如何把SQL中的COUNT值传递到自己定义的变量中啊？拜托大家了！！！(1分)

G

gaobingxuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #1

如何把SQL中的COUNT值传递到自己定义的变量中啊？拜托大家了！！！
我用了一条语句：
var
count1:integer;
begin
select count(*) from databasename
//请问：我如何把这个计数值传递给count1呢？
end;
//我曾经试了下面这条语句，不好使啊！
select count(*) as count1 from databasename

 

C

cjsam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #2

query1.sql.text:='select count(*) from databasename';
query1.execsql;
count1=query1.fields[0].asinteger;

 

W

withdraw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #3

declare
v_count integer;
begin
select count(*) into :v_count from XXXXX
end

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #4

fieldbyname[xxxx].xxx

 

G

gaobingxuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #5

withdraw老兄，
我不知道如何用declare语句啊？？？
我运行的时候，总是在
declare
v_count integer; //总是这条语句报错啊？？加“：”也不行啊！！！
我用unix下的informix的时候，常用这条语句，我不知道在delphi里面应该如何写啊？
呵呵，老弟没分了，抱歉啊！

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #6

query1.sql.text:='select count(*) from databasename';
query1.open;
count1=query1.fields[0].asinteger;

 

G

gaobingxuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #7

dhl2001老兄，你说的那个方法我已经试验过了，很好用！
我现在想试试用declare方法，想用
declare
v_count integer;
begin
select count(*) into :v_count from XXXXX
end
但是不好使啊！

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #8

他写的是一个存储过程，
是在数据库服务器端的代码。
然后在客户端调用。
不是delphi 代码

 

V

vxdwan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #9

定义字段名好了
query1.sql.text:='select count(*) as xx from databasename';
query1.open;
count1=query1.fieldbyname('xx').asinteger;

 

F

feifan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #10

var
count1:integer;
begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('select count(*) from databasename');
Query1.Open;
Count1 := Query1.RecordCount;
end;
兄弟试一下吧，一切OK后给我加分！1分也行！
我的Email:feifan731@163.net
有空常联系！