[求助]复制数据问题

lingjiang

我想把表1"班级"字段中的数据转移到表2的"班级"字段,想编写代码解决,不用追加查询.应如何写!

是oCmd.copy [表1] to [表2]

    End Sub

gxlishuxin

用ado或dao，也可以用runsql

LucasLynn

用DAO或ADO打开一个查询，查询为两表关联，条目对应，并且包含两个班级字段。

然后遍历RecordSet，逐条赋值。

hi-wzj

为什么不能用追加查询?最简单的方式不用?

一点通

以下是引用hi-wzj在2006-5-8 20:56:00的发言：
为什么不能用追加查询?最简单的方式不用?

我猜他是认为用代码才代表他有料(技术)吧,其实楼主你应知道,ACCESS最大的优点是基本不用自己写代码就可完成大部分的程序,如果每个过程都自己写代码,建议你不要使用ACCESS,因为这个不是它的强项

lingjiang

错!因为当我运行追加查询时会弹出太多的对话框,我用一个按钮集成了两个追加查询,结果连弹4个对话框,按了4次确定,对我来说没什么,但用这软件的不是我,我怕会误操作!所以才想有没其他办法把表1数据转移到其他表中.我已做出来了!只要把ACCESE提示禁止再:

On Error GoTo Err_Command91_Click
If MsgBox("即将追加数据到历年成绩库并格式化全校体育成绩库!" _
    & (Chr(10)) & (Chr(10)) & "单击“是”追加。" _
    & (Chr(10)) & "单击“否”取消追加。", _
    vbYesNo + vbExclamation + vbDefaultButton2, "操作确认") = vbYes Then
    Dim stDocName As String
    stDocName = ChrW(-28675) & ChrW(21152) & ChrW(29677) & ChrW(32423)
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    stDocName = ChrW(-28675) & ChrW(21152) & ChrW(26597) & ChrW(-29726)
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    DoCmd.RunSQL "delete  from [全校体育成绩]"
    DoCmd.RunSQL "delete  from [班级]"
    End If

不过最好不要禁用,但我没想出来!!各位有高招吗!!!

[此贴子已经被作者于2006-5-9 0:27:11编辑过]

静儿

屏蔽系统提示的方法

....

DoCmd.SetWarnings False

    DoCmd.RunSQL "delete  from [全校体育成绩]"
    DoCmd.RunSQL "delete  from [班级]"

DoCmd.SetWarnings True
.....