DBMNG数据库管理与应用

科学是实事求是的学问,来不得半点虚假。
当前位置:首页 > 经验分享 > Delphi

Delphi与SQL模糊查询

1.用变量进行模糊查询   
对数据进行模糊查询主要用SQL语句LIKE来实现。该语句放在Where语句的后面,使用标识符“%”、“_”、“[]”、“[^]”对数据进行模糊查询。   
例如,对姓名为“王”,并且姓名为两个字的学生信息。   
Select * FROM MR_Student where 姓名 like '林_'   
例如,查询数学成绩在70~79之间的学生信息。   
Select * FROM MR_Student where 数学 like '7[0123456789]'   
例如,查询除三年级二班的所有学生信息。   
Select * FROM MR_Student where 班级 like '三年[^二]_'   
例如,查询三年级的所有学生信息。   
Select * FROM MR_Student where 班级like '三*'   
下面对姓名进行模糊查询,只要在“姓名”文本框中输入名字中的任意一个字,便可以查找相关人员的信息。   
操作步骤如下:   
(1)运行Delphi,在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。   
(2)主要程序代码如下:   
  with ADOQuery1 do   
  begin   
    close;   
    SQL.Clear;   
    SQL.Add('Select * FROM MR_Student where 姓名 like '+''''+'%'+Trim(edit1.Text)+'%'+'''');   
    open;   
  end;   
上面的SQL语句也可以写成如下形式:   
SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%''');   
   
   
2.使用参数进行模糊查询   
在Delphi中进行模糊查询时,可以用TADOQuery组件来向SQL语句中传递参数。   
其格式为:“Like:参数名”。   
利用TADOQuery组件的ParamByName方法将值传递给参数。   
* 注意:在Like后面必须加空格。   
下面用TADOQuery组件进行参数传递,并对数据进行模糊查询。   
操作步骤如下:   
(1)运行Delphi,在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。   
(2)主要程序代码如下:   
  with ADOQuery1 do   
  begin   
    close;   
    SQL.Clear;   
    SQL.Add('Select * FROM MR_Student where 姓名 like :aa');   
    Parameters.ParamByName('aa').Value:='%'+trim(Edit1.text)+'%';   
    open;   
  end;   
     
     
3.复杂模糊查询   
在对信息进行模糊查询的时候,也可以通过逻辑运算符(AND、OR、NOT)插入其他的查询条件来提高查询的速度。   
下面是模糊查询和其他查询方法相结合而形成的复杂模糊查询。   
操作步骤如下:   
(1)运行Delphi,在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton、TComboBox和TDBGrid等组件。   
(2)主要程序代码如下:   
  if CheckBox1.Checked=true then   
   Str := ' and 班级='+''''+ComboBox1.Text+''''   
  else   
   ComboBox1.Enabled := False;   
  with ADOQuery1 do   
  begin   
   close;   
   SQL.Clear;   
   SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%'''+Str);   
   open;   
  end;

本站文章内容,部分来自于互联网,若侵犯了您的权益,请致邮件chuanghui423#sohu.com(请将#换为@)联系,我们会尽快核实后删除。
Copyright © 2006-2023 DBMNG.COM All Rights Reserved. Powered by DEVSOARTECH            豫ICP备11002312号-2

豫公网安备 41010502002439号