关于数据库模糊查询的问题！请大家多多发表意见！高分相送！来者有分！

[qygd]

那位老兄请指教指教：我要实现对一个表模糊查询，连接用ADOTable1，只要使用该组件的过滤功能！对该表DZMC，RQ.....等字段模糊查询，并且字段输入都使用EDIT编辑框。该怎么写呀？
我写了第一个过滤条件为什么不行？举个例子：
procedure TForm2.Button1Click(Sender: TObject); //模糊查询
var
str_DZMC,str_RQ:string;
BEGIN
if Trim(Edit1.Text)='' then
str_dzmc:=''
else if Trim(Edit1.Text)<>'' Then
str_dzmc:=' and dzmc='+''''+Trim(Edit1.Text)+'*'+'''';
Form1.ADOTable1.Filter:=Str_dzmc;
Form1.ADOTable1.Filtered:=True;
Form1.ADOTable1.open;
close;
if Form1.ADOTable1.RecordCount=0 then
showMessage('没有查询到符合条件的数据。');
END;

[bingshi]

多了个AND

[blueshu]

同意： smilelhh(blue)

[lghzl]

procedure TForm2.Button1Click(Sender: TObject); //模糊查询
var
str_DZMC,str_RQ:string;
BEGIN
if Trim(Edit1.Text)='' then
str_dzmc:=''
else if Trim(Edit1.Text)<>'' Then
str_dzmc:=' dzmc='''+Trim(Edit1.Text)+'''*'''+'''';
Form1.ADOTable1.Filter:=Str_dzmc;
Form1.ADOTable1.Filtered:=True;
Form1.ADOTable1.open;
close;
if Form1.ADOTable1.RecordCount=0 then
showMessage('没有查询到符合条件的数据。');
END;
这样试一下

[bluemeteor]

把and去掉

为什么不用ADOQuery？

[smilelhh]

if Trim(Edit1.Text)='' then
str_dzmc:=''
else
str_dzmc:=' dzmc='+''''+Trim(Edit1.Text)+'*'+'''';
去掉and 试试

[dschebei]

showmessage(str_dzmc)看看，什么样的？

[chenjiong]

'''''的问题，去掉几个试试就行了。

[pandarus]

都說完了,只好來接分了.

[flysky66]

以后可以考虑用clientDataSet

[tangyong_delphi]

我做过，请给我电子邮件！

[searoom]

var
sSearch:string;
sFilter:string;
begin
sSearch:=trim(Edit.text);
sFilter:='';
if sSearch<>'' then
sFilter:='DZMC like ''%'+sSearch+''' or RQ like ''%'+sSearch+'%''';

Form1.ADOTable1.Close;
Form1.ADOTable1.Filtered:=false;
Form1.ADOTable1.Filter:=sFilter;
Form1.ADOTable1.Filtered:=True;
Form1.ADOTable1.open;
end;

----------------------
好像 ADO 和 BDE 有区别底，BDE 用的是 col='val*'，呵呵，很怪的那种

[qygd]

我的E-MAIL是：[e-mail]

[zssyf]

用ADOQUERY 吧，将参数用EDIT导入。

[zhangqiufk]

up

[256m]

字段 Like '%XXX%'

[大米团]

为什么不用query+sql语句呢？

[ain2000]

是呀
adoquery 比adotable 灵活多了，基本table 功能都能实现.