求助:access表中怎么批量添加数据?

gechunkai

弄个例子上来,老兄!否则别人怎么帮你,光说的话你的问题覆盖面太广了.

wany9741

如有EXCEL的,把它直接导入是最快的

shuishou001

留言板:

















留言昵称:*

留言QQ:   形象秀: face1 face2 face3 face4 face5 face6 face7 face8 face9 face10 face11 face12 face13 face14 face15 face16 face17 face18 face19 face20 face21 face22 face23  形象库





　





　


电子信箱:  

个人主页:


　





　


留言主题:*


　





　


留言内容:


　














留言类型:公开   悄悄话


   





现在的问题就是想批量留言,只有留言内容改变,别的都不更改,而且留言内容有规律,就是按图1,图2,图3......来留言的

andymark

Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Rs.Open "select * from 表1", Conn, adOpenDynamic, adLockOptimistic
For i = 1 To 5
   Rs.AddNew
   Rs.Fields("留言昵称") = "a"
   Rs.Fields("留言QQ") = "b"
   Rs.Fields("电子信箱") = "c"
   Rs.Fields("留言内容") = i & ".jpg"
   
   Rs.Update
Next
   
Set Rs = Nothing
Set Conn = Nothing

shuishou001

以下是引用andymark在2006-7-9 22:25:00的发言：
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Rs.Open "select * from 表1", Conn, adOpenDynamic, adLockOptimistic
For i = 1 To 5
   Rs.AddNew
   Rs.Fields("留言昵称") = "a"
   Rs.Fields("留言QQ") = "b"
   Rs.Fields("电子信箱") = "c"
   Rs.Fields("留言内容") = i & ".jpg"
   
   Rs.Update
Next
   
Set Rs = Nothing
Set Conn = Nothing

保存为asp并且修改了其中的参数,但是用不起.老大请指教.数据库为message.mdb ,其中留言内容在message表中.

shuishou001

帮我!

hi-wzj

您不将例子放上来,人家怎知您哪里写错了呀?

xiaxue_203

也想知道.帮顶~~~~~~

hi-wzj

您自己要将问题表述清楚。

Benjamin_luk

COPY的效率是最高的。