• 欢迎访问少将博客,学会感恩,乐于付出,珍惜缘份,成就彼此、推荐使用最新版火狐浏览器和Chrome浏览器访问本网站。
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏少将博客吧
  • 欢迎加博主微信:jiang_shaobo

数据库开发:数据库编程经验两则

点滴 admin 8年前 (2011-08-19) 166次浏览 已收录 0个评论 扫描二维码

一、空字段的处理

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

喜欢 (0)
[🍬谢谢你请我吃糖果🍬🍬~]
分享 (0)
关于作者:
少将,关注Web全栈开发、项目管理,持续不断的学习、努力成为一个更棒的开发,做最好的自己,让世界因你不同。
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址