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

页面导航:首页 > 软件编程 > vb.net > VB数据库多字段记录的录入

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

来源: 作者: 时间:2016-02-05 12:32 【

如果我们需要编写一个录入程序,向某个SQL Server数据表(SJB)中录入数据,而这个数据表中包含有多个字段,假设有30个字段,需通过Insert INTO语句完成。 Insert INTO SJB Value(A0

 

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

 

  ... 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <