香港男模裸体写真洪燃:VB数据库编程书写经验两则

来源：百度文库编辑：中财网时间：2024/05/02 10:10:39

空字段的处理　　在往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.qqcf.com) 详细出处参考：http://study.qqcf.com/web/162/17592.htm

vb数据库编程实例 vb数据库编程 VB编程数据库问题 vb数据库编程视频教程 VB数据库编程教材下载 VB数据库编程高手进请教vb数据库编程高手 vb编程数据库访问（插入） VB编程连接SQL SEVER数据库问题 VB编程ADO，数据库用access VB数据库编程到底是什么啊? 关于VB的数据库编程问题！ vb.net下进行WEB编程，如何连SQL2000数据库！ vb编程数据库在多窗体情况下不能更新共享些学习vb编程的个人体会和经验学习vb得捷径有经验得编程员说一声!! 急需求助：sql server数据库表编程查询或vb编程如何实现，感激不尽！急需求助：SQL server数据库表编程查询或vb编程如何实现，感激不尽！数据库编程数据库编程数据库编程 VB数据库 VB 数据库 VB数据库