Office中国论坛/Access中国论坛

标题: 求助:access表中怎么批量添加数据? [打印本页]

作者: shuishou001    时间: 2006-7-8 22:36
标题: 求助:access表中怎么批量添加数据?
access表中怎么批量添加数据?急.谢谢各位
作者: shuishou001    时间: 2006-7-8 23:29
怎么没人帮忙呢?
作者: 一点通    时间: 2006-7-8 23:44
请描述清楚一点,何谓批量添加?
作者: shuishou001    时间: 2006-7-9 00:50
我做了个留言板,要开始留言,一条条留太累了.就是说能不能整批的从数据库添加?
作者: shuishou001    时间: 2006-7-9 00:52
而且留言内容有规律,1.jpg 2.jpg  3.jpg 等等
作者: shuishou001    时间: 2006-7-9 03:05
高手help me
作者: shuishou001    时间: 2006-7-9 06:30
伤心,等了一天了.没有人帮忙
作者: nxjswt    时间: 2006-7-9 07:48
留言版建立个表,建立相应的列(对应数据库

建立个追加查询到该表

源是数据库啊
作者: shuishou001    时间: 2006-7-9 19:11
以下是引用nxjswt在2006-7-8 23:48:00的发言:


留言版建立个表,建立相应的列(对应数据库

建立个追加查询到该表

源是数据库啊

不懂,可以说的详细点吗?
作者: shuishou001    时间: 2006-7-10 00:35
没有高手吗?


作者: gechunkai    时间: 2006-7-10 02:57
弄个例子上来,老兄!否则别人怎么帮你,光说的话你的问题覆盖面太广了.
作者: wany9741    时间: 2006-7-10 03:59
如有EXCEL的,把它直接导入是最快的
作者: shuishou001    时间: 2006-7-10 05:49
留言板:

















留言昵称:*

留言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    时间: 2006-7-10 06:25
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    时间: 2006-7-10 08:25
以下是引用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    时间: 2006-7-11 04:43
帮我!
作者: hi-wzj    时间: 2006-7-11 06:39
您不将例子放上来,人家怎知您哪里写错了呀?
作者: xiaxue_203    时间: 2006-8-29 02:29
也想知道.帮顶~~~~~~
作者: hi-wzj    时间: 2006-8-30 05:40
您自己要将问题表述清楚。
作者: Benjamin_luk    时间: 2006-8-30 06:07
COPY的效率是最高的。




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3