SQL关于用“WHERE”检索的结果（简单）(50分)

Y

yutsing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #1

请教：
用 select ...form... where....进行检索，能否判断查询的结果？
如无符合条件的记录则用“messagebox...”显示，
如有符合条件的记录则将该字段的值赋予 edit1.text

谢谢

 

D

delphiland

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #2

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(' select ...form... where....')
Query1.Open;
if Query1.isEmpty then
...
else
...

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #3

当然可以了
如果查到的话那么记录集中肯定有结果
如果记录集中没有结果那你就messagebox吧

 

G

Grandboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #4

就是呀,这个问题也可以用Query的RecordCount是大于零还是等于零来处理呀!
会了吧

 

D

dasa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #5

可能用isEmpty和RecordCount都会有差错出现（我不知道这是为什么，但是在Delphi6他
就是这样——最可恨的是locate('pwd',edtpwd.text,[])，他竟然不区分大小写！
您最好这样：
with query1 do
begin
close;
sql.clear;
sql.add('select……from……where');
open;
first;
end;
while not query1.eof do
begin
edit1.text:=query1.fieldbyname('').asstring;
//注：如果query里有很多项，可用listbox;
exit;
end;
messagebox……

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #6

locate可以区分大小写呀，把TLocateOptions里加上loCaseInsensitive就OK拉
至于判断查询结果，用query1.recordcount就可以了，至少我用的还没出过什么错