在listbox中有以下列表
a>=10
and
b<=20
or
c<5
and
d<5如何把这个列表中的内容编程一句符合语法的SQL程序
象 select e from data where ((( a>=10 and b<=20 ) or c<5 ) and d<5 )希望大家帮忙!!!
a>=10
and
b<=20
or
c<5
and
d<5如何把这个列表中的内容编程一句符合语法的SQL程序
象 select e from data where ((( a>=10 and b<=20 ) or c<5 ) and d<5 )希望大家帮忙!!!
解决方案 »
- teechart高速实时画采集卡数据死机
- delphi2006控制word2003的域的问题
- 问一个关于TWebBrower登录网页的问题!着急啊...
- EmbeddedWB控件安装的问题?
- 如何历遍得到某个字体文件里的所有字符?
- 如何使DBGRID的记录跟着鼠标中键滑轮移动时移动 或者 屏蔽中键滑轮 ????????????????急!!!
- 两个简单的问题....高手请帮帮忙...
- 《红色警戒》中小车的移动怎么做?它很像MAPX中的一个Feature哦~
- 帮忙看看这个DLL文件哪里有错,我在程序调用时,回出现非法操作,而且功能也没有实现
- 为什么点击窗体最小化按钮,再点击任务栏上的图标不能恢复
- DEPHI5中,编译时说file not found:'system.pas'的错误,不知道在哪里设置文件路径?
- 简单问题:如何跳出一个在所有窗口前面的窗口?
select e from data where (a>=10) and ((b<=20) or (c<5)) and (d<5)你到底要哪种写法?
a>=10
or
b<=20
and
c<5
or
d<5select e from data where ((a>=10) or (b<=20)) and ((c<5) or (d<5))
var
i: integer;
str: string;
begin
for i := 0 to ListBox1.Items.Count -1 do
begin
if ListBox1.Selected[i] then
str := str +' ' +ListBox1.items[i]
end;
with ADOQuery1 do
begin
Close;
......
SQL.Add('select e from data where ' +str);
Open;
......
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, c: integer;
str: string;
begin
str := '';
i := 0;
for i:=ListBox1.Items.Count-1 downto 1 do
begin
if (j mod 2)=0 then
begin
if ListBox1.Items[i]<>'' then
begin
str := ListBox1.Items[i]+')'+str;
c := c+1;
end;
end
else
str := ListBox1.Items[i]+' '+str;
j := j+1;
end;
str := ListBox1.Items[0]+' '+str;
for i:=0 to c-1 do
str := '('+str;
Memo1.Lines.Add(str);
end;
实现的写法是:select e from data where ((a>=10) and (b<=20)) or ((c<5) and (d<5))
或 ((a>=10) and (b<=20) or (c<5)) and (d<5)在listbox中提取这样顺序的条件
如果出现
a>=10
or
b<=20
and
c<5
d<5
or 的情况可以判断查询条件出错!!!
有问题请发信息到我的E-mail:[email protected]
a>=10
or b<=20
and c<5
or d<5除了对第一个元素进行处理的时候要注意一些