参数的默认值问题

Question

返回数据集还是用open吧。
就是DM.ADOQueryRen.Open;

Answer 1

DM.ADOQueryRen.Close;    
            DM.ADOQueryRen.SQL.Clear;
            DM.ADOQueryRen.SQL.Add('Select sum(dhpt) as dqpt,sum(dqhg) as dqhg from BQQ where 编码=' + QuotedStr(bm));
//                                ~~~~~~~~~~~~~~~~~~~
            DM.ADOQueryRen.Open;
//                        ~~~~``

Answer 2

DM.ADOQueryRen.Close;    
            DM.ADOQueryRen.SQL.Clear;
            DM.ADOQueryRen.SQL.Add('Select sum(dhpt) as dqpt,sum(dqhg) as dqhg from BQQ where 编码=' + QuotedStr(bm));
//                                ~~~~~~~~~~~~~~~~~~~
            DM.ADOQueryRen.Open;
//                        ~~~~``

Answer 3

bm为integer
赋给它的值也是

Answer 4

DM.ADOQueryRen.Close;    
            DM.ADOQueryRen.SQL.Clear;
            DM.ADOQueryRen.SQL.Add('Select sum(dhpt) as dqpt,sum(dqhg) as dqhg from BQQ where 编码=' + QuotedStr(bm));
//                                ~~~~~~~~~~~~~~~~~~~
            DM.ADOQueryRen.Open;
//                        ~~~~``

Answer 5

to yansea(思宏) ：
你的方法没有用
问题依旧

Answer 6

bm := DM.ADOTBInfo.FieldValues['编码'];
            
DM.ADOQueryRen.Close;    
DM.ADOQueryRen.SQL.Clear;
DM.ADOQueryRen.SQL.Add('Select sum(dhpt) as dqpt,sum(dqhg) as dqhg from BQQ where 编码='+IntToStr(bm)');
DM.ADOQueryRen.Open;DM.ADOTBZZ.Locate('编码',bm,[]);

Answer 7

to sunwk(sunwk) ：
那个表BQQ里的编码也是integer的啊

Answer 8

bm := DM.ADOTBInfo.FieldValues['编码'];
            
            DM.ADOQueryRen.Close;    
            DM.ADOQueryRen.SQL.Clear;
            DM.ADOQueryRen.SQL.Add('Select sum(dhpt) as dqpt,sum(dqhg) as dqhg from BQQ where 编码=:bm1');
//你试一下吧：
dm.adoqueryren.parameters.parambyname('bm1'):=bm;            DM.ADOQueryRen.ExecSQL;            DM.ADOTBZZ.Locate('编码',bm,[]);   <--这里出问题，提示“参数bm没有默认值”

Answer 9

更正：dm.adoqueryren.parameters.parambyname('bm1').value:=bm;

Answer 10

我觉得应该是DM.ADOQueryRen.SQL.Add('Select sum(dhpt) as dqpt,sum(dqhg) as dqhg from BQQ where 编码=bm');这一句错了

Answer 11

To lybdata(天下)：
用了你的方法了
还是错，不过变成“标准表达式的类型不匹配”了可是类型应该是完全匹配的