VB同时写入同一个数据库中两个不同表

Question

各位高手们 请教：
   
我想用VB实现 在两个表中同时写入数据 如：VB 6.0 + SQL 2000
（姓名  年龄   学号）  写入第一张表
（姓名  学号   班级）  写入第二张表添加过后  表一和表二中 同时有数据。

Answer 1

写完第一张，再写第二章就是了，计算机很快，感觉就是同时的。对于只有1个逻辑CPU的电脑来说，不可能同时执行的。等你入门了，可以学习下SQL事务。

Answer 2

1楼的：谢谢你的建议，我还是新手，所以不明白你说的SQL事务。
2楼的：我不想用在一张表里，设计时，里面考虑的的SQL字段太多了，所以我想拆分为两张表，同时完成两张表的操作。

Answer 3

1, 用function或stored procedure
2，俩表不是好主意，如果学号不一样，怎么办，还有主键是什么，名字相同如何处理？

Answer 4

要么改程序，写两次数据库。
要么改SQL SERVER数据库，通过存储过程或者触发器来实现。

Answer 5

cn.execute "insert into table1 姓名  年龄  学号"
cn.exectte "insert into table2 姓名  学号  班级"仅仅示意，还要注意语句

Answer 6

谢谢大家的意见和建议，现在详细说明一下
括号里是注释
数据库中有两个表：tbs_xsxx(学生基本信息)   tbs_xsxxfz(学生信息辅助)tbs_xsxx 包含字段  id (学号) name(学生姓名) age(年龄) sex(性别) ………………
tbs_xsxxfz   字段 id （学号） name(学生姓名) class(班级) teacher(辅导员) room(寝室)…………我想在点添加的时候 把这两个表里的数据同时写入进去！！在查询的时候，达到查询一个学生的时候把基本信息和辅助信息一起查询。查询弄好了，就是不知道怎么添加，请各位高手们指点迷津，小弟感激不尽……
有代码为佳!!

Answer 7

一定要用两个表，
1， 写个stored procedure。
2， 分别insert后，在insert

Answer 8

前面的 stored procedure 这个不明白，后面的 insert是下面的代码吗？
set AdoRs1 = Cnn.Execute("insert into tbs_xsxx values(" & StrId & ",'" & Text3 & "','" & Text8 & "','" & Text9 & "')")
set AdoRs2 = Cnn.Execute("insert into tbs_xsxxfz values(" & StrId & ",'" & Text3 & "','" & combo1 & "','" & combo2 & "')")

Answer 9

事务处理方式示意Private Sub Command1_Click()
    Dim cnn As New ADODB.Connection
    
    On Error GoTo errUnDo
    
    cnn.BeginTrans
 
    Cnn.Execute "insert into tbs_xsxx values(" & StrId & ",'" & Text3 & "','" & Text8 & "','" & Text9 & "')" 
    Cnn.Execute "insert into tbs_xsxxfz values(" & StrId & ",'" & Text3 & "','" & combo1 & "','" & combo2 & "')"    
    
    cnn.CommitTrans
    
    Exit Sub
errUnDo:
    cnn.RollbackTransEnd Sub