第17章+VB数据库应用编程示例.ppt

两个通用的过程（续） 将空值字段转化为空字符串 Private Function convertNull(value As Variant) As Variant If IsNull(value) = True Then convertNull = Else convertNull = value End If End Function 第17章 VB数据库应用编程示例 17.1 示例1 17.2 示例2 17.3 示例3 17.4 示例4 17.5 数据窗体向导 17.1 示例1 示例1窗体布局 目的：不用编写代码就可实现对数据的浏览 17.1 示例1（续） 各控件所设置的属性及属性值 对象名 属性名 属性值 AdodcStudent ConnectionString 连接到Access的“学生管理数据库.mdb” CommandType adCmdTable RecordSource Student TxtSno DataSource AdodcStudent DataField Sno TxtSname DataSource AdodcStudent DataField Sname TxtSsex DataSource AdodcStudent DataField Ssex TxtSage DataSource AdodcStudent DataField Sage TxtSdept DataSource AdodcStudent DataField Sdept 示例1程序代码 “退出”按钮 Private Sub CmdExit_Click() End End Sub 窗体加载时初始化查找 Private Sub Form_Load() 初始化要查找的系为空 TxtSearchDept.Text = End Sub 示例1程序代码（续） “查找”按钮 Private Sub CmdSearch_Click() If Len(TxtSearchDept.Text) 0 Then AdodcStudent.CommandType = adCmdText AdodcStudent.RecordSource = select * from student where Sdept = Trim(TxtSearchDept.Text) AdodcStudent.Refresh 使所设置的属性生效 Else 若用户未指定列名 MsgBox (请指定要查找的系) 则提示用户输入系名 End If End Sub 示例1运行界面 17.2 示例2 示例2窗体布局 目的：编写代码实现对数据的操作和浏览。 命令按钮控件的对象名 “添加”命令按钮：cmdAdd “删除”命令按钮：cmdDel “更新”命令按钮：cmdUpdate “取消”命令按钮：cmdCancel “第一条”命令按钮：cmdFirst “上一条”命令按钮：cmdPrevious “下一条”命令按钮：cmdNext “末一条”命令按钮：cmdLast “退出”命令按钮：cmdExit 示例2代码 窗体启动时的初始化代码 Private Sub Form_Load() 初始时使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 数据操作按钮组代码 “添加”命令按钮 Private Sub CmdAdd_Click() AdodcStudent.Recordset.AddNew 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled = False CmdDel.Enabled = False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled = True CmdCancel.Enabled = True End Sub 数据操作按钮组代码（续） “取消”命令按钮 Private Sub CmdCancel_Click() AdodcStudent.Recordset.CancelUpdate 使“添加”和“删除”按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 数据操作按钮组代码（续） “删除”命令按钮 Priva