见鬼了！ (19分)

美

美国提子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #1

with adoqrypfp do
begin
Close;
SQL.Clear;
SQL.Add('select * from pf');
SQL.Add('where No=''001''');
Open;
end;
Access表pf里明明有'001'这条记录，怎么adoqrypfp回是空的

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #2

SQL.Add('where No='+#39+'001'+#39); ？

 

C

Celestial dog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #3

SQL.Add('where No='001'');

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #4

SQL.Add(' where No=''001'''); //where前边需要空格

 

D

delphihsc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #5

SQL.Add('where No=''001''');

 

L

luoshanliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #6

with adoqrypfp do
begin
Close;
SQL.Clear;
SQL.Add('select * from pf');
SQL.Add('where No=:ANo');
Parameters.ParamByName('ANo').Value:='001';
Open;
end;
通用型,没问题

 

美

美国提子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #7

to luoshanliang
哎，竟然也是空的
如下：
procedure TpfEditForm.RBtnPrintClick(Sender: TObject);
var
Str: String;
begin
with adoqrypfp do
begin
Str := DMForm.adoqrypf['No'];
Close;
SQL.Clear;
SQL.Add('select * from pf');
SQL.Add('where No=:ANo');
Parameters.ParamByName('ANo').Value:=Str;
Open;
end;
ppReport.Print;
end;

 

S

shijunwu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #8

with adoqrypfp do
begin
Close;
SQL.Clear;
SQL.Add('select * from pf');
SQL.Add('where rtrim(ltrim(No))=''001''');
Open;
end;

 

美

美国提子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #9

还是不行

 

L

leo2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #10

to美国提子：
我用了你的程序，什么问题也没有。数据能正确返回！

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #11

可以肯定,不是語句的問題.
找找別的原因.

 

W

wwwwhat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #12

to 美国提子
试试将 SQL.Add('where No=''001''');
改为 SQL.Add('where No="001"');即将两个单引号改为一个双引号

 

美

美国提子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #13

字段名称no原来是access本身也用到的，改成其他的如StrNo就好了

 

公

公子无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #14

一场虚惊
：D

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #15

哈哈，我也碰上过,换成NO1就不会了。

 

H

hp_wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #16

SQL.Add('where No=''001''');
我认为这样对:
SQL.Add('where No='''001''');
''代表'

 

美

美国提子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #17

多人接受答案了。