请教个关于ACCESS记录合并问题

glw

兄弟,<STRIKE>又</STRIKE>试着做了一个，见笑了。不过我用的是OFFICE2007，版本太高，就不上传了。记着先引用DAO 3。6                       代码如下

Private Sub 命令0_Click()
DoCmd.SetWarnings False

Dim MYDB As DAO.Database
Set MYDB = CurrentDb
Dim MYRSTMT As DAO.Recordset
Dim MYRSTMM As DAO.Recordset
Dim MYRSTMS As DAO.Recordset
Dim MYSTRMT, MYSTRMM, MYSTRMS, SS As String
SS = ""
MYSTRMT = "结果"
Set MYRSTMT = MYDB.OpenRecordset(MYSTRMT)
MYSTRMS = "DELETE * FROM 结果;"
MYDB.Execute MYSTRMS
MYSTRMS = "INSERT INTO 结果 (dq,fz) SELECT dq ,fz FROM A GROUP BY dq,fz;"
MYDB.Execute MYSTRMS
MYRSTMT.MoveFirst
Do While Not MYRSTMT.EOF
MYSTRMM = "SELECT * FROM A WHERE DQ='" & MYRSTMT!DQ & "'"
Set MYRSTMM = MYDB.OpenRecordset(MYSTRMM)
MYRSTMM.MoveFirst
Do While Not MYRSTMM.EOF
SS = SS & vbCrLf & MYRSTMM("XM")  MYRSTMM.MoveNext
  Loop
  MYRSTMT.EDIT  MYRSTMT!XM = SS  
  MYRSTMT.Update
  SS = ""
  MYRSTMT.MoveNext
  Loop
  MYRSTMM.Close
  MYRSTMT.Close
  MYDB.Close
  Set MYRSTMM = Nothing
  Set MYRSTMS = Nothing
  Set MYRSTMT = Nothing
DoCmd.SetWarnings True
DoCmd.OpenTable "结果"
End Sub

[此贴子已经被作者于2007-6-11 22:21:51编辑过]

jacklzp

glw兄弟，本人是ACCESS的新手，未学过ADO的使用方法，你可否像hi-wzj版主那样，他设计出来按一下键就能使用的那种。我是用OFFICE2000版本的。非常感谢！

[此贴子已经被作者于2007-6-17 15:15:18编辑过]

glw

这个已经是按一键就能用的了呀.将以上代码COPY在我给你的上一个例子的单击可事件中即可记得引用DAO3.6

[此贴子已经被作者于2007-6-17 16:55:25编辑过]

ytey

本贴涉及的例子我全部试了,只有hi-wzj版主的附件可用。但存在问题是，按照我的数据库及字段名修改程序后，合并的备注字段排序不是库里的顺序,已经打乱了,不知如何处理?

本人新手初来乍到,请各位老大多多关照!谢谢

[此贴子已经被作者于2007-7-6 18:22:51编辑过]

glw

上传附件吧

ytey

没想到glw老兄在两个论坛都伸出援手，我已把代码放在accfans下，恳请及时帮助，谢谢！

glw

try this

[此贴子已经被作者于2007-7-9 15:25:39编辑过]