---

 

 

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

 

     如需【查找记录和修改】完整培训视频与源码下载，请咨询：

 

 

---

 

 

 

1. ADO 基础课程 第二节 查找和修改记录-部分PPT之1

 

 

 

 

2. ADO 基础课程 第二节 查找和修改记录-部分PPT之2

 

 

 

 

3. ADO 基础课程 第二节 查找和修改记录-部分PPT之3

 

 

 

 

4. ADO 基础课程 第二节 查找和修改记录-部分PPT之4

 

 

 

 

5. ADO 基础课程 第二节 查找和修改记录-部分PPT之5

 

 

 

 

6. ADO 基础课程 第二节 查找和修改记录-部分PPT之6

 

 

 

 

7. ADO 基础课程 第二节 查找和修改记录-部分PPT之10

 

 

---

 

内容摘要：

 

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

Access中级培训

ADO 基础课程

本节讲师：杨仕航

第二节 查找记录和修改记录

本节摘要

查找记录

1

用ADO修改记录

2

查找记录和修改记录

查找记录主要使用的是SQL语句

 

“Select * from 表名 where 条件”

 

例如，查找表tblPerson,Fname字段是否有“张三这条记录”

Select * from tblPerson where Fname = ‘张三’

 

注意：

字段类型是文本 ，条件要加单引号

字段类型是数值 ，条件不用加什么

字段类型是时间 ，条件两端加#号

 

然后，通过  RecordCount属性判断 是否有记录

查找记录和修改记录

查找记录

1

和新增记录类似，没有Addnew这句话

 

Dim Rs as New ADODB.RecordSet     ‘定义一个记录集

Dim strSql as String                               ‘定义一个字符串，用于存放SQL语句

 

strSql=“select * from tblPerson where Fname = ‘张三’”         ‘设置SQL语句

Rs.Open strSql,CurrentProject.Connection,1,3 ‘打开记录集

        if Rs.RecordCount>0 then             ‘判断是否有记录

              Rs.Fields(“字段名”)=“值”           ‘修改相关操作

              ‘…

               Rs.Update                                       ‘提交数据

        else

              msgbox “找不到记录”

        end if

Rs.close                                                   ‘关闭记录集，用完一定要关闭

Set Rs = Nothing                             ‘清除对象，释放空间。养成好习惯

 

查找记录和修改记录

用ADO修改记录

2

本节摘要

查找记录

1

用ADO修改记录

2

查找记录和修改记录

 

谢 谢！

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 cmdFind_Click()

23   Dim Rs As New ADODB.Recordset

24   Dim strSQL As String

25  

26    strSQL = "select * from tblPerson where ID = " & Nz(ID.Value, 0)

27    Rs.Open strSQL, CurrentProject.Connection, 1, 1

28       If Rs.RecordCount > 0 Then

29            MsgBox "有记录"

30       Else

31            MsgBox "没有记录"

32       End If

33    Rs.Close

34 End Sub

35

36 Private Sub cmdNew_Click()

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

38   Dim strSQL As String           '保存SQL语句

39    strSQL = "select * from tblPerson"

40  

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

42        Rs.AddNew '新增操作

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

44        Rs.Fields("FSex") = Nz(Me.FSex, "男")

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

46        Rs.Update   '提交数据

47  

48 '        For i = 0 To 9

49 '            Rs.AddNew

50 '            Rs.Fields(1) = "王" & (i + 1)

51 '            Rs.Fields(2) = "男"

52 '            Rs.Fields(3) = 10 + i

53 '            Rs.Update

54 '        Next i

55    Rs.Close

56  

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

58  

59   Set Rs = Nothing

60 End Sub