数据库编程经验两则_SQL SERVER数据库_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

数据库编程经验两则

作者:黑客防线网安SQL维护基地 来源:黑客防线网安SQL维护基地 浏览次数:0

本篇关键词:经验编程数据库&
黑客防线网安网讯:  一、空字段的处理  在往SQL Server数据库中添加记录时,每个字段必须给予明确赋值(即在没有给数据表设定缺省规则或给每个字段设定缺省值的情况下),否则便发生错误。因此我用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

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-10279-1.html
网站维护教程更新时间:2012-03-21 02:31:35  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer