Delphi中用ADOQuery, 变量可否重用?(200分)

张

张丽敏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #1

在ADOQuery写一SQL语句:
select PART from
where PART =1
union all
select PART from
where PART =2

在Delphi 赋参数:
ADOQuery.Close;
ADOQuery.Parameters.ParamByName('P1').Value := '12345';
ADOQuery.Parameters.ParamByName('P2').Value := '12345';
ADOQuery.Open;

这样可以运行,
其实P1,P2都赋同一值.
能否只用一个(P1)参数?

(我用 select PART from
where PART =1
union all
select PART from
where PART =1
这样不行,运行的时候第二个P1它不能识别.)


ADOQuery中,怎样才能使变量可重用?
谢谢!!

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #2

可以的。用ADOQuery.Parameters[0].value,ADOQuery.Parameters[1].value
但是这样会令程序很难读

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #3

用ParamByName肯定不能重名了！用数据方式吧，像楼上那位说的那样。

 

L

lzliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #4

用ParamByName肯定不能重名了!
但你的ADOQuery可以这样写：
parameters P1 As string;
select PART from
where PART =P1
union all
select PART from
where PART =P1

在Delphi 赋参数:
ADOQuery.Close;
ADOQuery.Parameters.ParamByName('P1').Value := '12345';
ADOQuery.Open;

 

L

lzliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #5

对不起，手快写多了个As。应该是：

parameters P1 string;
select PART from
where PART =P1
union all
select PART from
where PART =P1

在Delphi 赋参数:
ADOQuery.Close;
ADOQuery.Parameters.ParamByName('P1').Value := '12345';
ADOQuery.Open;

 

S

szkuojun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #6

s:=format('select PART from'+
'where PART =%s'+
' union all select PART from where PART =%s',[P1,P1]);
adoquery.close;
adoquery.add(s);
adoquery.open;

//写在unit里

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-10

• #7

本来在bde合其他数据控件里面，参数用的是TParam
select PART from where PART =1 union all select PART from where PART =1
只赋值一个p1就可以了，

不过ado控件的参数用的是TParameter，就不行了，可能是bug

 

V

VGA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-11

• #8

同意Pipi

 

张

张丽敏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-12

• #9

lzliang的方法我试到还是不行,
它提示: "String附近有语法错误!"

PiPi: 你能详细说明ado控件(ADOQuery)的参数是怎样赋值吗?

望你们继续请教!
谢谢!!

 

张

张丽敏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-02

• #10

多人接受答案了。