怎样向数据库中增加多条记录

Question

我想用循环语句向数据库中增加多条记录该如何操作呀。比如我想向数据中中增加10条记录。表的字段分别为：序号，成绩（a）,成绩（b）。我想把成绩：1   95   95；2  85 85； 3 65 45； 4 98 98； ……10 84 74 。全部加入数据库中，怎样循环呀！
或者添加更简单的，把1到10 所有的成绩都设为 95 85，该如何操作。恳请达人帮帮忙啦！万分感谢！

Answer 1

'打开数据库，表等操作我就不说了。只说增加数据。
Type DataInfo
  Num as long  '序号
  A as long    '成绩(A)
  B as long    '成绩(B)
end typedim Data(1 to 10) as DataInfo '10条记录for i=1 to 10
  data(i).Num=i
  data(i).A= 95 '所有A成绩设为95
  data(i).B=85  '所有B成绩设为85
  
  'A成绩与B成绩你可以一个一个设也行，从文件中读取也行。
  
nextfor i=1 to 10
  rs.AddNew
  
   rs!序号=data(i).Num
   rs!成绩(A)=data(i).A
   rs!成绩(B)=data(i).B
   
  rs.Update
  
next