|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:34:19 |
|
|
如果我们需要编写一个录入程序，向某个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
... |
|
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:34:19 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]