查找记录和修改-部分预览

中级学员可获取完整教程


 

 

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

 

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

 

 

培训课件部分内容预览


 

 

clip0001

 

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

 

 

 

clip0002

 

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

 

 

 

clip0003

 

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

 

 

 

clip0004

 

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

 

 

 

clip0005

 

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

 

 

 

clip0006

 

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

 

 

 

clip0010

 

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

 

 

培训内容部分关键字


 

内容摘要:

 

本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中级培训

 

部分界面预览


 

 

clip0011

 

 

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