中级学员可获取完整教程


 

 

     只有VIP中级学员才可查看本章【模糊查询两种方法和对比】的 完整课件、完整源码、清晰视频(讲师逐个知识点专业讲解),系统、高效、专业地学习Access应用及开发,让您节约大量的时间和精力,我们带给您的不只是知识的讲解,还有普通培训机构无法提供给您的更多行业的编程经验以及实战开发中的技巧,这些可以让您少花很多无谓的时间,少走很多弯路,轻松直达专业开发之路。

 

     如需【模糊查询两种方法和对比】完整培训视频与源码下载,请咨询:Button

 

 

培训课件部分内容预览


 

clip0019

 

1. 第五节 模糊查询及查询两种方法对比-部分PPT1

 

 

 

clip0020

 

2. 第五节 模糊查询及查询两种方法对比-部分PPT2

 

 

 

clip0021

 

3. 第五节 模糊查询及查询两种方法对比-部分PPT3

 

 

 

clip0022

 

4. 第五节 模糊查询及查询两种方法对比-部分PPT4

 

 

 

clip0023

 

5. 第五节 模糊查询及查询两种方法对比-部分PPT5

 

 

 

clip0024

 

6. 第五节 模糊查询及查询两种方法对比-部分PPT6

 

 

 

clip0025

 

7. 第五节 模糊查询及查询两种方法对比-部分PPT7

 

 

 

clip0026

 

8. 第五节 模糊查询及查询两种方法对比-部分PPT8

 

 

 

培训内容部分关键字


 

内容摘要:

 

本Access培训视频由Office中国出品

Access中级培训

窗体设计 中级培训

本节讲师:杨仕航

第五节 模糊查询及查询两种方法对比

本节摘要

查询方法1:修改记录源

1

查询方法2:应用筛选

2

模糊查询及查询两种方法对比

两种方法的对比

3

模糊查询

4

Dim strSQL As String

 

   strSQL = select * from 表名 where 条件”        ‘设置SQL语句

   Me.子窗体.Form.RecordSource = strSQL        ‘修改子窗体的记录源

   Me.子窗体.Requery                        ‘刷新子窗体

 

 

 

1、修改子窗体的RecordSource属性

2、使用SQL查询语句

3、刷新子窗体

模糊查询及查询两种方法对比

查询方法1:修改记录源

1

Dim strFilter as string

 

strFiter=“True”

strFiter=True and 条件”

strFiter=True  or 条件”

 

Me.子窗体.Form.Filter= strFiter        ‘子窗体设置筛选语句

Me.子窗体.Form.FilterOn = True        ‘子窗体应用筛选

Me.子窗体.Form.Requery                ‘子窗体刷新数据

模糊查询及查询两种方法对比

查询方法2:应用筛选

2

1、修改记录源方法

 

 特点:方便快捷,多次加载

              多条件时,SQL语句书写不方便

 适用:数据量小的时候,记录源数据结构简单

 

2、应用筛选方法(推荐这种)

 

 特点:一次加载,多次使用

                              筛选语句结构统一

                适用:均可,尤其是记录源数据结构复杂的情况

模糊查询及查询两种方法对比

两种方法的对比

3

模糊查询:like

通配字符 * 代表多个字符

                      ? 代表单个字符

 

查找姓张的(名字字段有“张”这个字)

 FName   like **

 

 

 

注意事项:不管字段是什么数据类型,条件部分都要加单引号

模糊查询及查询两种方法对比

模糊查询

4

本节摘要

模糊查询及查询两种方法对比

查询方法1:修改记录源

1

查询方法2:应用筛选

2

两种方法的对比

3

模糊查询

4

 

谢!

Access中级培训

 

Access课程源码-部分预览


 

  部分代码展示

 

 1 Option Compare Database

 2

 3 Private Sub cmdChange_Click()   '修改记录

 4   Dim Rs As New ADODB.Recordset

 5   Dim strSQL As String

 6  

 7    strSQL = "select * from tblPerson where ID = " & Nz(ID.Value, 0)   '设置SQL语句

 8    Rs.Open strSQL, CurrentProject.Connection, 1, 3

 9       If Rs.RecordCount > 0 Then

10           If Nz(FName) <> "" Then Rs.Fields("FName") = Nz(FName)

11            Rs.Fields("FSex") = Nz(FSex, "")

12            Rs.Fields("FAge") = Nz(FAge, 10)

13            Rs.Update   '提交数据

14       Else

15            MsgBox "没有记录,修改失败!"

16       End If

17    Rs.Close

18  

19   Me.frmSub.Requery   '刷新子窗体

20 End Sub

21

22 Private Sub cmdClear_Click()

23   Me.frmSub.Form.FilterOn = False

24   Me.frmSub.Requery

25 End Sub

26

27 Private Sub cmdDelete_Click()

28 On Error Resume Next

29   Dim Rs As New ADODB.Recordset

30   Dim strSQL As String

31  

32    strSQL = "select * from tblPerson where ID = " & Nz(ID.Value, 0)   '设置SQL语句

33    Rs.Open strSQL, CurrentProject.Connection, 1, 3

34       If Rs.RecordCount > 0 Then

35            Rs.Delete

36            Rs.Update

37       End If

38    Rs.Close

39  

40   Set Rs = Nothing

41   Me.frmSub.Requery   '刷新子窗体

42 End Sub

43

44 Private Sub cmdDelete2_Click() '用执行SQL语句 批量删除记录

45 On Error Resume Next

46   Dim Conn As New ADODB.Connection

47   Dim strSQL As String

48   Set Conn = CurrentProject.Connection '把系统默认的连接给Conn

49    strSQL = "Delete from tblPerson where FName = '" & Nz(Me.FName) & "'"

50  

51    Conn.Execute strSQL '执行SQL语句

52  

53   Set Conn = Nothing

54   Me.frmSub.Requery

55 End Sub

56

57 Private Sub cmdFind_Click()

58 '查询方法1:修改记录源

59 '    Dim strSQL As String

60 '    strSQL = "select * from tblPerson where FName = '" & Nz(FName) & "'"

61 '    Me.frmSub.Form.RecordSource = strSQL

62

63 '查询方法2:应用筛选

64   Dim strFilter As String

65    strFilter = "True"

66 '    strFilter = strFilter & " and FName like '*" & Nz(Me.FName) & "*'"

67 '    strFilter = strFilter & " or FSex like '*" & Nz(Me.FSex) & "*'"

68    strFilter = strFilter & " and FAge like '*1*'"

69    Debug.Print strFilter

70   Me.frmSub.Form.Filter = strFilter

71   Me.frmSub.Form.FilterOn = True

72   Me.frmSub.Requery

73 End Sub

74

75 Private Sub cmdNew_Click()

76   Dim Rs As New ADODB.Recordset   '定义一个ADO 记录集

77   Dim strSQL As String           '保存SQL语句

78    strSQL = "select * from tblPerson"

79  

80    Rs.Open strSQL, CurrentProject.Connection, 1, 3

81        Rs.AddNew '新增操作

82        Rs.Fields("FName") = Nz(FName)   '对应字段赋值

83        Rs.Fields("FSex") = Nz(Me.FSex, "")

84        Rs.Fields("FAge") = Nz(Me.FAge, 10)

85        Rs.Update   '提交数据

86    Rs.Close

87  

88   Me.frmSub.Form.RecordSource = strSQL

89   Me.frmSub.Requery '刷新子窗体

90  

91   Me.frmSub.SetFocus

92    DoCmd.GoToRecord acActiveDataObject, , acLast

93   Set Rs = Nothing

94 End Sub

95

96 Private Sub Form_Load()

97

98 End Sub