日期：2011-05-02 15:22:00 来源：本站整理

数据库编程经验两则[MSSQL防范]

赞助商链接

分享到： QQ空间新浪微博腾讯微博人人网

　　本文“数据库编程经验两则[MSSQL防范]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：
　　1、空字段的处理
　　在往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

　　2、多字段记录的录入
　　假如我们需求编写一个录入程序,向某个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 sqlst
　　以上是“数据库编程经验两则[MSSQL防范]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：

数据库编程经验两则

XML、T-SQL 和 CLR 携手创始数据库编程新天地

Java数据库编程常用本领

在CB5中利用ADO数据库编程

Oracle数据库编写有效事件指导方针-性能调优

Linux操作系统下的Oracle数据库编程详解

本文地址：

与您的QQ/BBS好友分享!

[] [返回上一页] [打印]