有关SQL语句问题,还请指教 |
尚未結案
|
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
引言: edit1中会填入 /翘面平底/平面平底/卜面翘底 诸如此类的值,我想把记录中含有 翘面平底 或 平面平底 或 卜面翘底 的记录全部选出来,请问行吗? 1. 增加 uses IdGlobal 2. Source Code : procedure TForm1.Button1Click(Sender: TObject); var SL : TStrings; S : string; i : integer; begin SL := TStringList.Create; try BreakApart(edit1.text,'/',SL); // BreakApart function in IdGlobal.pas S := ''; for i := 0 to SL.Count-1 do if SL[i]<>'' then S := S + ' owemodel Like '#39'%' + SL[i] + '%'#39' or'; if S<>'' then S := Copy(S,1,length(S)-3); finally SL.Free; end; with qry1 do begin close; sql.clear; sql.Add('select * from casestructure'); if S<>'' then begin sql.Add(' where'); sql.Add(S); end; prepared:=true; open; end; end; |
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |