小弟用Query做的模糊查询,总是提示From子句语言错误,屏蔽ADOQuery1.Open;就没这个错误了,不过没显示
用filter貌似不能做模糊查询
代码如下,各位大哥帮看看:
procedure TForm1.Button1Click(Sender: TObject);
var
tj,tj1,tj2,tj3,tj4:string;
begin
tj1:='1=1';
if checkbox1.Checked then // 按表号查询
tj1:='M_NO like'''+'%'+edit2.Text+'%'+'''';tj2:= '1=1';
if checkbox3.Checked then //按测试员查询
tj2:='Name like'''+'%'+edit3.text+'%'+'''';tj:='select * from test1.db where'+tj1+'and'+tj2;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add(tj);
ADOQuery1.Open;end;
用filter貌似不能做模糊查询
代码如下,各位大哥帮看看:
procedure TForm1.Button1Click(Sender: TObject);
var
tj,tj1,tj2,tj3,tj4:string;
begin
tj1:='1=1';
if checkbox1.Checked then // 按表号查询
tj1:='M_NO like'''+'%'+edit2.Text+'%'+'''';tj2:= '1=1';
if checkbox3.Checked then //按测试员查询
tj2:='Name like'''+'%'+edit3.text+'%'+'''';tj:='select * from test1.db where'+tj1+'and'+tj2;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add(tj);
ADOQuery1.Open;end;
解决方案 »
- 有关delphi的odbc编程
- delphi 2007好用吗?
- 请帮忙看一下我的程序那里出错啦?保存文件为乱码
- 获得窗体创建的时间
- 讨论一个方案!!
- 高手请指点:如何判断send函数send的数据被目标机器接收到呢?
- 急!100分求解,如何用程序替换应用程序图标?
- 我使用TDBRichEdit控件,老出现“DataSet not in Edit or Insert mode”的异常。
- 再讨论delphi和sql server 结合开发的性能问题
- *****另类的问题******,在windows98下我是否可以分给一个逻辑区20G
- delphi 导入时候找不到microsoft comm control6.0[1.1]
- 基于delphi和SQL的一个问题
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
str:= 'select * from test1.db where 1=1 ';
if checkbox1.Checked then
str:= str+' and M_NO like''%'+edit2.Text+'%'' ';
if checkbox3.Checked then
str:= str+' and Name like''%'+edit3.text+'%'' ';ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.text:= str;
ADOQuery1.Open;end;