VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之VB数据库编程经验两则

  在往SQL Server数据库中添加记录时,每个字段必须给予明确赋值(即在没有给数据表设定缺省规则或给每个字段设定缺省值的情况下),否则便发生错误。因此我用VB编写了一个处理函数,将其放入标准模块,以供相应程序调用。函数首先判断是否给字段赋值,若没有,则根据字段类型的不同赋予不同数值(数字赋零,字符赋空格)。程序如下: 

  ′zd变量采用变体类型 

  Function nonull(zd As Variant) As Variant 

  If IsNull(zd) Then 

  ′字段没有赋值,判断其类型 

  If zd.Type = 12 Then 

  ′字符型字段,赋空格 

  nonull = " " 

  Else 

  ′数字型字段,赋0 

  nonull = 0 

  End If 

  Else 

  nonull = zd 

  End If 

  End Function 

  多字段记录的录入 

  如果我们需要编写一个录入程序,向某个SQL Server数据表(SJB)中录入数据,而这个数据表中包含有多个字段,假设有30个字段,需通过Insert INTO语句完成。 

  Insert INTO SJB Value(A0,A1,A2,...,A29) 

  这里A0、A1...A29为字段的录入值,其中,若字段类型为字符型,需用引号括起。并且,如果操作者在录入数据时,对某些字段没有赋予明确值,则还需借助前面给出的处理函数给这些字段赋予相应的0或‘ ’。虽然,我们在编程时可依照Insert INTO语句句法依次罗列出30个字段值,然而,变通一下,利用循环语句,不仅可以达到异曲同工的效果,而且使得程序不再冗长、烦琐,可读性好。下面列出相关程序片段: 

  ... 

  Dim sqlstr As String 

  Dim sqlstr1 As String 

  Dim i As Integer 

  For i = 0 To 29 

  ′rs.rdoColumns(I)为数据表中的某一字段 

   If rs.rdoColumns(i).Type = 12 Then 

  ′字段类型为字符,在两侧用引号括起 

  ′函数nonull()用于防止空值出现 

   sqlstr = sqlstr && "'" && nonull(A(i)) && "'," 

   Else 

  ′字段类型为数字型 

   sqlstr = sqlstr && nonull(A(i)) && "," 

   End If 

  Next 

  ′去掉最后一个逗号分隔符 

  sqlstr = Left(Trim(sqlstr), Len(Trim(sqlstr)) - 1) 

  ′插入一条记录到数据表中 

  sqlstr1 = "insert into sjb values(" && sqlstr && ")" 

   ... 

  ′执行插入语句 

  cn.Execute sqlstr1 

  ... 

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

 

相关教程