在一条SQL语句中怎样加入一条where语句(100分)

  • 主题发起人 主题发起人 jinhu2008
  • 开始时间 开始时间
J

jinhu2008

Unregistered / Unconfirmed
GUEST, unregistred user!
strSQL:=一条SQL语句;
strSQL:=函数InsertWhere(strWhere,strSQL,'and' 或 'or');
怎么样写函数InsertWhere ,使它能插入 条件Where 语句,改变strSQL;
 
這樣做不是一種好方法.
最好分段來寫.
str1:='select * from table';
str2:=' where column1='+#39+text+#39+' and xxxxxx';
str3:=' order by '
 
你每次的sql语句有规律吗?还有一开始的strSql是不是不带任何where或者Group by之类的条件?否则的话我想还不如每次手工组sql语句。
 
InsertWhere(strWhere,strSQL,Union);
being
strSQL=Concat(strSQl,'',Union,'',strWhere);
end;
 
function InserWhere(strWere,strSQL,Ajoin:String):String;
begin
if Pos('where',strSQL)<=0 then
strSQL:=strSQL+' where '
else
strSQL:=strSQL+Ajoin;
Result:=strSQL+strWhere;
end;
没试过,你试试吧!
 
Function InsertWhere(strWhere,strSQL,strCon:String;')
//strCon代表and or 条件
var
where_SQL,SQL:String;
begin
where_SQL:='where 1=1 '+strWhere;
SQL:=where_SQL+strCon;
Result:=strSQL+SQL;
end;
 
两种方法
1。是用string穿起来 在放到query里
2。是query.sql.add('select * from biao') ;
query.sql.add(' where a=b') ;
其实是一样的
 

Similar threads

S
回复
0
查看
850
SUNSTONE的Delphi笔记
S
S
回复
0
查看
782
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部