WEB开发网
开发学院WEB开发综合 VB数据库多字段记录的录入 阅读

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

 2006-02-27 11:55:21 来源:WEB开发网   
核心提示:->如果我们需要编写一个录入程序,向某个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

  ...->
->

Tags:VB 数据库 字段

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接