vb和mssql2000字段插入多表！！急！！！！

Question

我做了一个程序，在输入窗体中有一些字段要放入另一个表，我该怎么做
我的模块大概是这样的，
工程--->引用--->Microsoft ActiveX Data Object 2.5（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=xxx;"    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees where Age>20 ", CN, adOpenDynamic, adLockOptimistic
    Rs.addnew
    Rs.Fields("col1")="asfds";
    Rs.Update请各位高手指点，比如姓名放入user_info，工资放入另一张表中，我在vb中怎么做，回答定重谢！！

Answer 1

dim strSql as string
dim cn as adodb.connection
.
.
.
strSql = "insert into table1 ....."
strSql = strSql & vblf & "insert into table2 ....."
cn.execute strSql

Answer 2

cn.Execute "insert into employees ..."
cn.Execute "insert into user_info ..."
不过这是向两个表中插入数据，所以必须要保证数据的完整性，只有两个表全保存成功，才算正确，所以需要用事务处理来完成！！

Answer 3

cn.Execute "insert into employees ..."
cn.Execute "insert into user_info ..."
不过这是向两个表中插入数据，所以必须要保证数据的完整性，只有两个表全保存成功，才算正确，所以需要用事务处理来完成！！
能具体一点吗，用我上面的代码不行吗？在线等，谢谢了
cn.Execute "insert into user_info ..."  具体一点，别省略呀

Answer 4

你这种方式也是可以的，但是比上面其他人说的繁琐，需要分别定义两个记录集，然后用addnew 方法加入
上面说的用事务处理的方式如下：....
On Error GoTo ErrHandle
cn.BeginTrans
cn.Execute "insert into employees ..."
cn.Execute "insert into user_info ..."'提交
cn.CommitTrans
Exit Sub
ErrHandle:
'更新失败则回滚
cn.RollbackTrans
MsgBox "失败"
....

Answer 5

cn.Execute "insert into employees (字段a,字段b...) values (工资1,工资2...)"
cn.Execute "insert into user_info (字段1,字段2...) values (姓名,编号...)"

Answer 6

cn.Execute "insert into user_info ..." 我指的是……的内容怎么写，用窗体的内容怎么加，后面的变量怎么写，谢谢大家了

Answer 7

cn.Execute "insert into employees (字段a,字段b...) values (工资1,工资2...)"
cn.Execute "insert into user_info (字段1,字段2...) values (姓名,编号...)"
我加了，不行呀，字段a,字段b...是sql的，(工资1,工资2...)是窗体控件的，
例如：
cn.execute"insert into user_info (“user_id”) values (userid.text)
我加不进去

Answer 8

cn.execute ="insert into user_info(user_id) values('" & userid.text &"')"

Answer 9

你可以跟踪你的sql语句，在sql查询分析器执行一下，看能否成功

Answer 10

你这种方式也是可以的，但是比上面其他人说的繁琐，需要分别定义两个记录集，然后用addnew 方法加入
上面说的用事务处理的方式如下：....
On Error GoTo ErrHandle
cn.BeginTrans
cn.Execute "insert into employees ..."
cn.Execute "insert into user_info ..."'提交
cn.CommitTrans
Exit Sub
ErrHandle:
'更新失败则回滚
cn.RollbackTrans
MsgBox "失败"
....