请教，表中的数据如何叠加（Command0_Click()又有新问题）

lrawinx

有3个表

我想在窗体中设计一个按钮使表1和表2的数据叠加为表3的样式

请教该如何写代码

表的样式如下：

=======================

表1

-------------------------------------

班级编号   课程标号

001          AAA

001          BBB

002          CCC

002          AAA

=======================

表2

-------------------------------------

班级编号   学号

001         111

001         222

001         333

002         444

002         555

002         666

=======================

表3

-------------------------------------

学号     课程编号   班级编号    成绩

111        AAA       001

111        BBB       001

222        AAA       001

222        BBB       001

333        AAA       001

333        BBB       001

444        CCC       002

444        AAA       002

555        CCC       002

555        AAA       002

666        CCC       002

666        AAA       002

=======================

[此贴子已经被作者于2006-4-13 22:09:17编辑过]

panyifan

kkkkkkkkkkkkkkkkkkkkkkkk

lrawinx

以下是引用fan0217在2006-4-13 21:43:00的发言：
你没有表达清楚问题,绕了个大弯子.这样的问题最好结合示例,在进行详细说明才好让人明白.

真是抱歉[em04]

lrawinx

一个新的问题。。。

每触发一次这个事件

表中就会重复添加已有的数据

能不能做到在不重复添加的条件下加入新的数据

并保留以前的数据



比如我生成表并填写了成绩后

在班级课表中或班级学生表中又有新增加或删除的数据

怎样做到不重复生成成绩表里的数据并且保留成绩表已填写成绩了的数据？

可以做到这个效果吗？

fan0217

你没有表达清楚问题,绕了个大弯子.这样的问题最好结合示例,在进行详细说明才好让人明白.

[此贴子已经被作者于2006-4-13 21:42:53编辑过]

lrawinx

恩，就是要的这个，多谢了

fan0217

生成按钮事件:单击后查看成绩表.

Private Sub Command0_Click()
Dim con As New ADODB.Connection
Dim strSQL As String

Set con = CurrentProject.Connection
    strSQL = "INSERT INTO 成绩表 ( 学号, 课程编号, 班级编号 ) "
    strSQL = strSQL & "SELECT 班级学生.学号, 班级课表.课程编号, 班级学生.班级编号 "
    strSQL = strSQL & "FROM 班级课表 INNER JOIN 班级学生 ON 班级课表.班级编号 = 班级学生.班级编号;"

    con.Execute strSQL  

MsgBox "生成成功!"

Set con = Nothing
End Sub

lrawinx

使用追加查询的话，看来只能一次性添加完全数据再进行追加查询了

lrawinx

虽然可以看到数据如预期的排列

但

查询表不能写入数据的吧

哎，这个问题缠我几天了

xinrenq

SELECT 查询1.*, 成绩表.成绩
FROM 成绩表 RIGHT JOIN [SELECT 班级课表.*, 班级学生.学号
FROM 班级课表 INNER JOIN 班级学生 ON 班级课表.班级编号 = 班级学生.班级编号]. AS 查询1 ON (成绩表.课程编号=查询1.课程编号) AND (成绩表.学号=查询1.学号);


试试看。。。