Private Sub Command8_Click() Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb" db.Open Dim strStr strStr = "李%" rs.CursorLocation = adUseClient '定义为本地游标 rs.Open "select * from usertable where username like '" & strStr & "' ", db, adOpenDynamic, adLockOptimisticDo While Not rs.EOF Debug.Print rs!descr rs.MoveNext Loop End Sub
select name form tablename where name like '李%'
查找第一字姓“李” select name form tablename where name like '李%' 查找带有“李”的 select name form tablename where name like '%李%'
LIKE 判斷給定的字元字串是否與特定模式相符。模式中可以包含一般字元及萬用字元。 在模式比對期間,一般字元必須與字元字串中所指定的字元完全相符。 但是,萬用字元可以與字元字串的任意片段相符。使用萬用字元要比使用 = 與 != 字串比較運算子能讓 LIKE 運算子更有彈性。若引述中任何一個都不屬於字元字串資料型別,有可能的話 Microsoft® SQL Server™ 會將他們轉換成字元字串資料型別。語法 match_expression [ NOT ] LIKE pattern [ ESCAPE escape_character ] 引數 match_expression是資料型別為字元字串的任何有效 SQL Server 運算式。pattern是要在 match_expression 中搜尋的模式,其中可以包含這些有效的 SQL Server 萬用字元。萬用字元 說明 範例 % 任何含有零個或更多字元的字串。 WHERE title LIKE '%computer%' 可找出書名中含有 'computer' 這個字的所有書籍。 _ (底線) 任何單一字元。 WHERE au_fname LIKE '_ean' 可找出所有以 ean 結尾的四個字母的名字 (如 Dean、Sean 等)。 [ ] 在指定範圍 ([a-f]) 或集合 ([abcdef]) 中的任何單一字元。 WHERE au_lname LIKE '[C-P]arsen' 可找出姓氏結尾為 arsen,開頭為 C 至 P 之間任何單一字母的作者,如 Carsen、Larsen、Karsen 等等。 [^] 不在指定範圍 ([^a-f]) 或集合 ([^abcdef]) 中的任何單一字元。 WHERE au_lname LIKE 'de[^l]%' 可找出姓氏開頭為 de 且後面所接的字母不是 l 的作者。
select * from tablename where username like '李%'
Dim Adocnn As New ADODB.Connection Dim RS As New ADODB.Recordset Adocnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "data source=" &App.Path& "数据库名.mdb" Adocnn.Open Dim strSQL as string strSQL = "%李%" RS.Open "Select * From 表名 where 字段名 like '" & strSQl & "' ",Adocnn, adOpenDynamic,adLockOptimistic
查找字段中第一字是“李”的语句 select name form tablename where name like '李%' 查找字段中带有“李”字的语句 select name form tablename where name like '%李%'
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
Dim strStr
strStr = "李%"
rs.CursorLocation = adUseClient '定义为本地游标
rs.Open "select * from usertable where username like '" & strStr & "' ", db, adOpenDynamic, adLockOptimisticDo While Not rs.EOF
Debug.Print rs!descr
rs.MoveNext
Loop
End Sub
select name form tablename where name like '李%'
查找带有“李”的
select name form tablename where name like '%李%'
判斷給定的字元字串是否與特定模式相符。模式中可以包含一般字元及萬用字元。 在模式比對期間,一般字元必須與字元字串中所指定的字元完全相符。 但是,萬用字元可以與字元字串的任意片段相符。使用萬用字元要比使用 = 與 != 字串比較運算子能讓 LIKE 運算子更有彈性。若引述中任何一個都不屬於字元字串資料型別,有可能的話 Microsoft® SQL Server™ 會將他們轉換成字元字串資料型別。語法
match_expression [ NOT ] LIKE pattern [ ESCAPE escape_character ] 引數
match_expression是資料型別為字元字串的任何有效 SQL Server 運算式。pattern是要在 match_expression 中搜尋的模式,其中可以包含這些有效的 SQL Server 萬用字元。萬用字元 說明 範例
% 任何含有零個或更多字元的字串。 WHERE title LIKE '%computer%' 可找出書名中含有 'computer' 這個字的所有書籍。
_ (底線) 任何單一字元。 WHERE au_fname LIKE '_ean' 可找出所有以 ean 結尾的四個字母的名字 (如 Dean、Sean 等)。
[ ] 在指定範圍 ([a-f]) 或集合 ([abcdef]) 中的任何單一字元。 WHERE au_lname LIKE '[C-P]arsen' 可找出姓氏結尾為 arsen,開頭為 C 至 P 之間任何單一字母的作者,如 Carsen、Larsen、Karsen 等等。
[^] 不在指定範圍 ([^a-f]) 或集合 ([^abcdef]) 中的任何單一字元。 WHERE au_lname LIKE 'de[^l]%' 可找出姓氏開頭為 de 且後面所接的字母不是 l 的作者。
Dim RS As New ADODB.Recordset
Adocnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "data source=" &App.Path& "数据库名.mdb"
Adocnn.Open
Dim strSQL as string
strSQL = "%李%"
RS.Open "Select * From 表名 where 字段名 like '" & strSQl & "' ",Adocnn, adOpenDynamic,adLockOptimistic
select name form tablename where name like '李%'
查找字段中带有“李”字的语句
select name form tablename where name like '%李%'