VB 利用like进行模糊查询

'首先打开数据库并选Tools-Database

Utilities-Convert

Database-To

Access

2002-2003

file

Format.另存名称。

'实例：

Private

Sub

Form_Load()

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0Persist

Security

Info=FalseData

Source="

&

App.Path

&

"\数据库名.mdb"

Adodc1.CommandType

=

adCmdText

Adodc1.RecordSource

=

"Select

*

From

资料表

where

字段

like'%"

&

Text1.Text

&

"%'"

Adodc1.Refresh

Set

DataGrid1.DataSource

=

Adodc1

DataGrid1.Refresh

End

Sub

SQL数据库：select * from 表名1 where 字段1 like '%a%'

ACCESS： select * from 表名1 where 字段1 like '*a*'

---