在查询的条件(where)中，可否使用变量？(30分)

Y

yaminboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #1

如：
query3.close;
query3.sql.clear;
query3.sql.add('select rybm,ksn,jfys,bngrjfbz from dw_grzh dw_grzh');
query3.sql.add('where rybm=stbm');
query3.sql.add('Order by ksn');
query3.open;
其中('where rybm=stbm'):stbm是前面语句中的变量，我的执行不能进行。

另外：
如何对上面查询后的多条记录进行循环，要求循环到最后一条时要退出循环。
此句可能不对，while not query3.Eof do begin
　　　　　　　　　　........
end;
仅有30大元奉上，还望大虾指点。?????

 

N

netlogon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #2

query3.sql.add('where rybm=:stbm');
Params.ParamsByName('stbm').value:=stbm;
以上是ADO连接的语句,其它类似.

Query3.First;
while not Query3.eof do
begin
...
Query3.next;
end;

 

Y

yaminboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #3

提示 'Query3:'字段'stbm'类型未知'　是什么意思？

在前面我已经定义过了：stbm:=query1.Fields[0].AsString;

 

Z

zhhc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #4

这样试试
Query3.ParamsByName('stbm').value:=query1.Fields[0].AsString;

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #5

可以用Format格式化呢。
用 +
用参数

 

R

redchild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #6

更正如下:
query3.close;
query3.sql.clear;
query3.sql.add('select rybm,ksn,jfys,bngrjfbz from dw_grzh dw_grzh');
query3.sql.add('where rybm=:stbm');//加了个冒号才是参数,否则是字段
query3.sql.add('Order by ksn');
Query3.ParamsByName('stbm').value:=query1.Fields[0].AsString;//给参数赋值
query3.open;

 

P

pdb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #7

作如下修改:肯定可以
query3.close;
query3.sql.clear;
query3.sql.add('select rybm,ksn,jfys,bngrjfbz from dw_grzh dw_grzh');
query3.sql.add('where rybm=stbm');改為query3.sql.add('where rybm='''+stbm+'''')
query3.sql.add('Order by ksn');
query3.open;

Query3.First;
while not Query3.eof do
begin
...
Query3.next;
end;

 

L

liuyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #8

query3.close;
query3.sql.clear;
query3.sql.add('select rybm,ksn,jfys,bngrjfbz from dw_grzh dw_grzh');
query3.sql.add('where rybm='''+stbm+'''');
query3.sql.add('Order by ksn');
query3.open;

 

Y

yaminboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-31

• #9

所以现在我做以下改进，但这段程序有问题，谁能帮我看看!

while not query3.Eof do begin

inksn:=query3.ParamByName(''ksn'').Asinteger;
if inttostr(inksn)=inttostr(year) then begin
Cells[lin,3].Value :=query3.ParamByName('jfys').Asinteger;
Cells[lin,6].Value :=query3.ParamByName('bngrjfbz').Ascurrency;
inc(lin);
inc(year);
end;
query3.Next;
end;

 

Y

yaminboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-31

• #10

接受答案

 

Y

yaminboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-31

• #11

多人接受答案了。