怎样将模块中的变量值追加到数据表中？

landie

我在模块中统计出了三组数据A1、A2、A3；B1、B2、B3及C1、C2、C3。现在想把这三组数据作为三条记录追加到“RB”表三个字段中（字段名为：数据1、数据2、数据3）中，请问怎样编写代码实现。请各位高手帮助。

landie

“cnn.Open CurrentProject.Connection”运行时这一名出问题，提示为“数据库被用户”admin使计算机“zj“置为锁定或不能打开状态。（我的计算机名ZJ）

landie

非常感谢!!!

loadhigh

保存并关闭文件，然后再打开该mdb文件并运行模块即可．

loadhigh

landie:你好!

可以用ado的单独的connection对象或联合recordset对象.

dim cnn as new adodb.connection

dim rst as new adodb.connection

'以下是单独用connection

cnn.open currentproject.connection

cnn.execute "insert into RB (数据1,数据2,数据3) values("+cstr(a1)+","+cstr(a2)+","+cstr(a3)+")"

cnn.execute "insert into RB (数据1,数据2,数据3) values("+cstr(b1)+","+cstr(b2)+","+cstr(b3)+")"

cnn.execute "insert into RB (数据1,数据2,数据3) values("+cstr(c1)+","+cstr(c2)+","+cstr(c3)+")"

'以下是connection和recordset联合运用

rst.open "RB",cnn, adOpenKeyset, adLockOptimistic

rst.addnew

with rst

.fields("数据1")=a1

.fields("数据2")=a2

.fields("数据3")=a3

.update

end with

rst.addnew

with rst

.fields("数据1")=b1

.fields("数据2")=b2

.fields("数据3")=b3

.update

end with

rst.addnew

with rst

.fields("数据1")=c1

.fields("数据2")=c2

.fields("数据3")=c3

.update

end with