Question

请问delphi中这种in查询怎么实现

如给edit1.text赋值‘北京’,'上海'，想在adoquery中执行
SQL.Add('select * from table_name where trim(城市) in ('''+Trim(edit1.Text)+''') 可以查询出来这几个城市的数据
我现在edit1.text赋值为
1 ‘北京’,'上海'
2 北京,上海
3 ''北京'',''上海''
4 '''+'北碚支行'+''','''+'江北支行'+'''
都不能满足我的要求，请问应该怎么做

Answer 1

1. Edit1.text输入   北京,上海,江北支行,北碚支行
   内容不要带分号，地址用逗号分隔

2. procedure TForm1.Button1Click(Sender: TObject);
   var
     s, city: string;
     i: Integer;
   
     whereStr, sqlStr: string;
   
   begin
     s := Edit1.text;
   
     i := pos(',', s); // 看看有没逗号
   
     if i <= 0 then
   
       whereStr := '城市=''' + s + ''''
   
     else
     begin
       whereStr := '城市 in (';
   
       while i > 0 do
       begin
   
           city := Trim(Copy(s, 1,i-1));   // 得到城市名
           whereStr := whereStr +  QuotedStr(city) + ',';
   
           delete(s, 1, i);
   
           i := pos(',', s);
   
       end;
   
       whereStr := whereStr +  QuotedStr( s) + ')';
   
     end;
   
     showMessage(whereStr);
   
   
     sqlStr := 'select * from table_name  where ' + whereStr;
   
     showMessage(sqlstr);
   
   end;

3. 
   

Answer 2

几个错误：
1、‘北京’,'上海'　中的北京前后的引号你都打错了，弄成中文的了，应该是英文的　'北京','上海'
2、其实你最终只是要拼成　in ('value1','value2')这种格式，所以你看一下就就知道了，如果你输入的是'北京','上海'
你的sql就需要改成这样才行
SQL.Add('select * from table_name where trim(城市) in ('+Trim(edit1.Text)+')')

3、其它的就不用说了，如果你是想直接输入北京,上海或者北京 上海这种就能查出结果，就需要自己转换了，转换的过程一般是这样
var
str:string;
List: TStringList;
i:integer;
begin
str:='';
List := TStringList.Create;
ExtractStrings([';',',',':',' '],['#',' '],PChar(Edit1.Text),List);

执行之后，这个list中放的就是单个的北京或者上海，你自己循环一下，加上单引号就可以了。