第章 VB数据库应用编程示例.pptVIP

两个通用的过程 将记录集中各字段的数据绑定到文本框中 Private Sub Display() TxtSno.Text = convertNull(adoRst.Fields(sno).value) TxtSname.Text=convertNull(adoRst.Fields(sname).value) TxtSsex.Text = convertNull(adoRst.Fields(ssex).value) TxtSage.Text = convertNull(adoRst.Fields(sage).value) TxtSdept.Text = convertNull(adoRst.Fields(sdept).value) End Sub 两个通用的过程（续） 将空值字段转化为空字符串 Private Function convertNull(value As Variant) As Variant If IsNull(value) = True Then convertNull = Else convertNull = value End If End Function 数据库原理与应用教程 国家“十一五”规划教材 第16章 VB数据库应用编程示例 16.1 示例1