如何取得 order by 的欄位名稱 |
答題得分者是:Mickey
|
sfy257000
一般會員 發表:21 回覆:13 積分:6 註冊:2002-07-11 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
引言: 我用 Query 下條件...如: select * from cust order by cuno,cuname 我要如何得知order by 的欄位名稱cuno,cuname ********************* * 只要用心一定成功 * ********************* var I, aLen, aPos: Integer; begin for I := 0 to Query1.SQL.Count - 1 do begin aPos := Pos('order by ',Query1.SQL.Strings[I]); if aPos > 0 then begin aLen := Length(Query1.SQL.Strings[I]); //aPos 9:加九的意思是指Order By 的長度為9 ShowMessage(Copy(Query1.SQL.Strings[I], aPos 9, aLen-aPos-8)) end; end; end;~小弟淺見,參考看看~
------
~小弟淺見,參考看看~ |
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
在 DBCommon.pas 中 有一個 SQLPaser 可以用,
使用方法如下 :
var sql,token: string; SQLToken : TSQLToken; IsOrderField : boolean; Start : PChar; begin sql:='select * from cust order by cuno,cuname'; SQLToken := stUnknown; IsOrderField := False; Start := Pchar(sql); repeat SQLToken := NextSQLToken(Start, Token, SQLToken); if IsOrderField and (SQLToken=stFieldName) then showmessage(Token); if SQLToken = stOrderBy then IsOrderField := True; if IsOrderField and (SQLToken in SQLSections) and (SQLToken <> stOrderBy) then IsOrderField := False; until SQLToken = stEnd; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |