Tag: 模糊预览模式: 普通 | 列表

Delphi与SQL模糊查询

作者:admin 日期:2010-03-16

Delphi代码

模糊查询
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;

Tags: Delphi Delphi SQL SQL 模糊模糊查询查询

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 39

sql中生成查询的模糊匹配字符串

作者:admin 日期:2010-03-14

SQL代码

sql中生成查询的模糊匹配字符串
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_Sql]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[f_Sql]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[序数表]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [序数表]
GO
--为了效率,所以要一个辅助表配合
select top 1000 id=identity(int,1,1) into 序数表
from syscolumns a,syscolumns b
alter table 序数表 add constraint pk_id_序数表 primary key(id)
go
/*--根据指定字符串生成查询的模糊匹配字符串
条件连接的关键字为 and,or
可以任意指定括号
生成的条件表达式为 like 模糊匹配
--邹建 2004.08(引用请保留此信息)--*/
/*-- 调用示例
--调用示例
select A=dbo.f_Sql('(Web or HTML or Internet) and (Programmer or Developer)','content')
select B=dbo.f_Sql('Web or HTML or Internet','content')
select C=dbo.f_Sql('(Web and HTML)','content')
select D=dbo.f_Sql('Web','content')
--*/
-- 示例函数
create function f_Sql(
@str Nvarchar(1000), --要检索的字符串
@fdname sysname --在那个字段中检索
)returns Nvarchar(4000)
as
begin
declare @r Nvarchar(4000)
set @r=''
select @r=@r+case
when substring(@str,id,charindex(' ',@str+' ',id)-id) in('or','and')
then ' '+substring(@str,id,charindex(' ',@str+' ',id)-id)+' '
when substring(@str,id,1)='('
then '(['+@fdname+'] like ''%'
+substring(@str,id+1,charindex(' ',@str+' ',id)-id-1)
+'%'''
when substring(@str,charindex(' ',@str+' ',id)-1,1)=')'
then '['+@fdname+'] like ''%'
+substring(@str,id,charindex(' ',@str+' ',id)-id-1)
+'%'')'
else '['+@fdname+'] like ''%'
+substring(@str,id,charindex(' ',@str+' ',id)-id)
+'%'''
end
from 序数表
where id<=len(@str)
and charindex(' ',' '+@str,id)-id=0
return(@r)
end
go
详细出处参考：http://www.jb51.net/article/8732.htm