首页 相关文章 VB数据库编程经验两则

VB数据库编程经验两则

空字段的处理
  
  在往SQLServer数据库中添加记录时,每个字段必须给予明确赋值(即在没有给数据表设定缺省规则或给每个字段设定缺省值的情况下),否则便发生错误。因此我用VB编写了一个处理函数,将其放入标准模块,以供相应程序调用。函数首先判断是否给字段赋值,若没有,则根据字段类型的不同赋予不同数值(数字赋零,字符赋空格)。程序如下:
  
  ′zd变量采用变体类型
  
  Functionnonull(zdAsVariant)AsVariant
  
  IfIsNull(zd)Then
  
  ′字段没有赋值,判断其类型
  
  Ifzd.Type=12Then
  
  ′字符型字段,赋空格
  
  nonull=""
  
  Else
  
  ′数字型字段,赋0
  
  nonull=0
  
  EndIf
  
  Else
  
  nonull=zd
  
  EndIf
  
  EndFunction
  
  多字段记录的录入
  <...[ 查看全文 ]

2016-02-19 标签:

VB数据库编程经验两则的相关文章

手机页面
收藏网站 回到头部