数据库入库问题

Question

例如：有 语文和数学两张表格
语文成绩单 ：学生 “李阳”的成绩：79；学生 “哈哈”的成绩：69；学生 “妹妹”的成绩：89
数学成绩单 ：学生 “李阳”的成绩：99；学生 “哈哈”的成绩：89；学生 “妹妹”的成绩：72姓名是主键，入库后的表格是
学生  语文  数学
李阳  79    89
哈哈  69    72
妹妹  89    99我现在的情况是 已经把语文成绩录进去了，想把数学成绩追加到该主键的后面该怎么写啊
     

Answer 1

alter table table_name add column_name varchar(200) 

Answer 2

str_sql = "select * from   " & 成绩表 & "  where 学生 = '" & strIIiii
Rs1.Open str_sql, Cnn, adOpenDynamic, adLockOptimistic
If Rs1.EOF Then
   rs.AddNew
Else
   rs.Update
End If
Set Rs1 = Nothingrs.Fields("学生").Value = strIIiii '姓名
If kecheng = "语文" Then
   rs.Fields("语文").Value = YwCj
ElseIf kecheng = "数学" Then
   rs.Fields("数学").Value = SxCj
End If
rs.Update
rs.MoveNext
这是我写的代码 有问题
所有学生的语文成绩入完了 但是在入数学成绩时，
总是入在第一个学生的位置上，不断更新，而其他人还是null
谁能帮帮我 谢谢了

Answer 3

上面只是个例子，我的源程序是str_sql = "select * from   " & strTableName_Value & "  where StationNum = '" & strIIiii & "'and ObservTimes = '" & datetime & "'and height = '" & height & "'"Rs1.Open str_sql, cnn, adOpenDynamic, adLockOptimistic
If Rs1.EOF Then
   Rs.AddNew
    '主键录入
   Rs.Fields("StationNum").Value = strIIiii '写站号
   Rs.Fields("ObservTimes").Value = datetime   '写日期月
   Rs.Fields("height").Value = iGD  '写高度
   DataInsert iYBT, data '数据录入
   Rs.Update
Else
   DataInsert iYBT, data '数据录入
   Rs.Update
   Rs.MoveNext
End If
Set Rs1 = Nothing
数据录入后，第一行第5在在不断更新，第二行的数据却怎么也录不进去51005 2010110212 200  -64.92448 -58.89048 NULL NULL ...
51053 2010110212 200  -64.50114 NULL NULL NULL ...
51058 2010110212 200  -64.78368 NULL NULL NULL ...
51059 2010110212 200  -63.71317 NULL NULL NULL ...
51060 2010110212 200  -64.44785 NULL NULL NULL ...
51068 2010110212 200  -63.90387 NULL NULL NULL ...

Answer 4

前面是Rs1后面是Rs ,乱
如果是循环更新,那么查询条件要每次更新的,不然总是在一条记录上.

Answer 5

谢谢啊，果然是RS1改成RS就行了