以下是引用nxjswt在2006-7-8 23:48:00的发言:
留言版建立个表,建立相应的列(对应数据库
建立个追加查询到该表
源是数据库啊
以下是引用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
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) | Powered by Discuz! X3.3 |