SELECT gsdj.qymc as '企业名称',null as '注销日期'
FROM gsdj where qymc like '%光%'
union all
SELECT fgsdj.qymc,null
FROM fgsdj where qymc like '%光%'
union all
SELECT nzfrdj.qymc,null
FROM nzfrdj where qymc like '%光%'
union all
SELECT nzyydj.qymc,null
FROM nzyydj where qymc like '%光%'
请问以上sql语句以query.sql.text=?形式该怎么写。其中的光用一个变量代替。是不是不能换行啊,是不是%不能直接写啊。
FROM gsdj where qymc like '%光%'
union all
SELECT fgsdj.qymc,null
FROM fgsdj where qymc like '%光%'
union all
SELECT nzfrdj.qymc,null
FROM nzfrdj where qymc like '%光%'
union all
SELECT nzyydj.qymc,null
FROM nzyydj where qymc like '%光%'
请问以上sql语句以query.sql.text=?形式该怎么写。其中的光用一个变量代替。是不是不能换行啊,是不是%不能直接写啊。
解决方案 »
- 关于ADOTable的问题?
- MD我已经精疲力尽了!! 再得不到有效帮助,就退出这个项目了!!!
- 喜欢李维书籍又嫌贵的朋友进来看看…… 同时散分!
- 请问各位,一个问题,清楚与不不清楚的人士都来看一下吧.大家互相学习.
- delphi7与interbase数据库连接问题
- 请问怎样将水晶报表8.5安装到delphi7中
- 是我程序的问题,还是delphi7的BUG?????
- delphi与SqlServer数据库的链接
- 各位帮帮忙!在线等待
- 为什麽delphi的数据SQL Explorer里有的数据库要用密码和用户名如何解决!
- 很難嗎? 三天了都沒有一個人來頂一下﹐傷心啊﹗CSDN大不如前了﹗
- 想学b/s结构编程,请推荐几本书?
str:string;
query.sql.text=
'SELECT gsdj.qymc as ''企业名称'',null as ''注销日期''
FROM gsdj where qymc like ''%''+str+''%''
union all
SELECT fgsdj.qymc,null
FROM fgsdj where qymc like ''%''+str+''%''
union all
SELECT nzfrdj.qymc,null
FROM nzfrdj where qymc like ''%''+str+''%''
union all
SELECT nzyydj.qymc,null
FROM nzyydj where qymc like ''%''+str+''%'''
+ ' FROM gsdj where qymc like ''' + '%' + varName + '%'
+ ''' union all SELECT fgsdj.qymc,null FROM fgsdj where qymc like '''
+ '%' + varName + '%' + ''' union all SELECT nzfrdj.qymc,null '
+ ' FROM nzfrdj where qymc like ''' + '%' + varName + '%'
+ ''' union all SELECT nzyydj.qymc,null '
+ ' FROM nzyydj where qymc like ''' + '%' + varName + '%' + '''';
Var
SQLSTR:String;
Begin
SQLSTR:='SELECT gsdj.qymc as 企业名称,null as 注销日期
FROM gsdj where qymc like ''%光%''
union all
SELECT fgsdj.qymc,null
FROM fgsdj where qymc like ''%光%''
union all
SELECT nzfrdj.qymc,null
FROM nzfrdj where qymc like ''%光%''
union all
SELECT nzyydj.qymc,null
FROM nzyydj where qymc like ''%光%'' 'End;把SQLSTR赋值给组件SQL属性就可以了,
Query.Sql.Add(' FROM gsdj where qymc like ''%:pName%''');
Query.Sql.Add('union all');
Query.Sql.Add('SELECT fgsdj.qymc,null');
Query.Sql.Add(' FROM fgsdj where qymc like ''%:pName%''');
Query.Sql.Add('union all');
Query.Sql.Add('SELECT nzfrdj.qymc,null');
Query.Sql.Add(' FROM nzfrdj where qymc like ''%:pName%''');
Query.Sql.Add('union all');
Query.Sql.Add('SELECT nzyydj.qymc,null');
Query.Sql.Add(' FROM nzyydj where qymc like ''%:pName%''');
Query.Sql.Text:=StringReplace(Query.SQl.Text,':pName',NewValue,[rfReplaceAll, rfIgnoreCase]);
FROM gsdj where qymc like ''''%光%''''
union all
SELECT fgsdj.qymc,null
FROM fgsdj where qymc like ''''%光%''''
union all
SELECT nzfrdj.qymc,null
FROM nzfrdj where qymc like ''''%光%''''
union all
SELECT nzyydj.qymc,null
FROM nzyydj where qymc like ''''%光%''''
方法二:
Query.Sql.Text:='SELECT gsdj.qymc as '+QuotedStr('企业名称')+',null as'+ QuotedStr( '注销日期')+' FROM gsdj where qymc like '+QuotedStr('%光%')+'
union all
SELECT fgsdj.qymc,null
FROM fgsdj where qymc like '+QuotedStr('%光%')+'
union all
SELECT nzfrdj.qymc,null
FROM nzfrdj where qymc like '+QuotedStr('%光%')+'
union all
SELECT nzyydj.qymc,null
FROM nzyydj where qymc like '+QuotedStr('%光%')
2)用sqltext
3)用sql.add
4)用容器,比如放到memo1去,用sql.AddStrings(memo1.lines)5)下边的接上...