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

核心提示：->如果我们需要编写一个录入程序，向某个SQLServer数据表（SJB）中录入数据，VB数据库多字段记录的录入，而这个数据表中包含有多个字段，假设有30个字段，而且使得程序不再冗长、烦琐，可读性好，需通过InsertINTO语句完成，InsertINTOSJBValue（A0

->如果我们需要编写一个录入程序，向某个SQLServer数据表（SJB）中录入数据，而这个数据表中包含有多个字段，假设有30个字段，需通过InsertINTO语句完成。

　　InsertINTOSJBValue（A0，A1，A2，...，A29）

　　这里A0、A1...A29为字段的录入值，其中，若字段类型为字符型，需用引号括起。并且，如果操作者在录入数据时，对某些字段没有赋予明确值，则还需借助前面给出的处理函数给这些字段赋予相应的0或‘'。虽然，我们在编程时可依照InsertINTO语句句法依次罗列出30个字段值，然而，变通一下，利用循环语句，不仅可以达到异曲同工的效果，而且使得程序不再冗长、烦琐，可读性好。下面列出相关程序片段：

　　...

　　DimsqlstrAsString

　　Dimsqlstr1AsString

　　DimiAsInteger

　　Fori=0To29

　　′rs.rdoColumns(I)为数据表中的某一字段

　　Ifrs.rdoColumns(i).Type=12Then

　　′字段类型为字符，在两侧用引号括起

　　′函数nonull（）用于防止空值出现

　　sqlstr=sqlstr&&"注释："&&nonull(A(i))&&"注释：,"

　　Else

　　′字段类型为数字型

　　sqlstr=sqlstr&&nonull(A(i))&&","

　　EndIf

　　Next

　　′去掉最后一个逗号分隔符

　　sqlstr=Left(Trim(sqlstr),Len(Trim(sqlstr))-1)

　　′插入一条记录到数据表中

　　sqlstr1="insertintosjbvalues("&&sqlstr&&")"

　　...

　　′执行插入语句

　　cn.Executesqlstr1

　　...->->