一个简单的问题(20分)

俊

俊友

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #1

怎样求得一个表中某个字段的和数，并赋给一个变量？下面语名SeeSee？
qysql.Close;
qysql.SQL.Clear;
qysql.SQL.Add('Select Sum(s1) From tabel1');
qysql.Prepared;
qysql.ExecSQL;

 

K

KeepObject

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #2

qysql.Close;
qysql.SQL.Clear;
qysql.SQL.Add('Select sum(s1) as s1 From tabel1');
qysql.Prepared;
qysql.Open;
MyVar:=qysql.fields[0].value;

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #3

function GetSumValue(): Integer;
begin
With qySql do
begin
Close;
Sql.Text := 'Select sum(s1) as s1 from Table1';

Open;
Result := Fields[0].AsInteger;
end;
end;

 

G

goodfriend1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #4

qysql.Close;
qysql.SQL.Clear;
qysql.SQL.Add('Select Sum(s1) From tabel1');
qysql.Prepared;
qysql.ExecSQL;
Edit1.Text:=string(qysql.Fields[0].Value);

 

俊

俊友

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #5

Ok,谢谢各位