关于表中记录个数统计的问题

Question

想把表中“十七位编码”字段中所有于S相同的记录找出来，统计个数，然后赋值给maxnumber可是为什么总出错呢？
谢谢大家^_^
 
 var
  s:string;
 maxnumber:integer;begin
    s:= edit23.text+edit24.text+edit25.text+edit26.text+ edit27.text+edit28.text+edit29.text+edit30.text+edit31.text+edit32.text+edit33.text+edit34.text+edit35.text+edit36.text+edit37.text+edit38.text ;
      query3.close;
    query3.SQL.clear;
    query3.sql.Add('select  count(*)  from 识别码判断 where 十七位编码=:bm');
      query3.ParamByName('bm').AsString:=s;
        query3.open;
        maxnumber:=query3.recordcount;

Answer 1

var
  s:string;
 maxnumber:integer;begin
    s:= edit23.text+edit24.text+edit25.text+edit26.text+ edit27.text+edit28.text+edit29.text+edit30.text+edit31.text+edit32.text+edit33.text+edit34.text+edit35.text+edit36.text+edit37.text+edit38.text ;
      query3.close;
    query3.SQL.clear;
    query3.sql.Add('select  count(*) as sl  from 识别码判断 where 十七位编码=:bm');
      query3.ParamByName('bm').AsString:=s;
        query3.open;
        maxnumber:=query3.FieldByName('sl').AsInteger

Answer 2

project project1.ext raised exception class EDBEngineError with message 'operation not applicable'. Process stopped
编译可以通过，可是点击提取按钮的时候就出错。
各位大侠指教

Answer 3

var
  s:string;
  maxnumber:integer;
begin
  s:= edit23.text+edit24.text+edit25.text+edit26.text+   edit27.text+edit28.text+edit29.text+edit30.text+edit31.text+edit32.text+edit33.text+edit34.text+edit35.text+edit36.text+edit37.text+edit38.text ;
  with Query3 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select  count(*) as sl  from 识别码判断 where 十七位编码=' + QuotedStr(s));
    Open;
    maxnumber:=FieldByName('sl').AsInteger
  end;
end;

Answer 4

如果不行，在中文字段两边加[]
var
  s:string;
  maxnumber:integer;
begin
  s:= edit23.text+edit24.text+edit25.text+edit26.text+   edit27.text+edit28.text+edit29.text+edit30.text+edit31.text+edit32.text+edit33.text+edit34.text+edit35.text+edit36.text+edit37.text+edit38.text ;
  with Query3 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select  count(*) as sl  from 识别码判断 where [十七位编码]=' + QuotedStr(s));
    Open;
    maxnumber:=FieldByName('sl').AsInteger
  end;
end;