VB数据库多字段记录的录入

如果我们需要编写一个录入程序，向某个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

　　 ...

上一篇： 巧用VB编程使XMPLAYER自动播放VCD
下一篇： VB实现图形动画的三种方法

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有