VB数据库编程经验两则_其他_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

VB数据库编程经验两则

作者：闵涛文章来源：闵涛的学习笔记点击数：643 更新时间：2009/4/22 23:21:03

　　一、空字段的处理

　　在往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
...

没有相关教程