您所在位置：主题：如何同时向SQL的两个表中插入或添加记录
日月成星
[专家分：0] 发布于 2009-10-19 20:27:00
用的是选项卡界面有7页，通过数据源连接SQL数据库，SQL数据库中有两个ID关联的表，ID号自增。现在要向两个表中添加记录，添加按钮是在选项卡外的窗体中，希望达到的效果是点添加按钮则把选项卡中的记录各项添加到对应的两个表中，添加按钮的代码如下：Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=LENOVO-23C97E1D"
rs.Open "select * from 表一名,表二名", Conn, 2, 2
rs.AddNew
rs.Fields("Name") = TxtName.Text‘选项卡中的各记录
msg = MsgBox("添加信息吗？", vbYesNo + vbExclamation, "提示")
If msg = vbYes Then
rs.Update
rs.Close
Else
rs.CancelUpdate
End If
Call ClsTxt(Me)
运行提示是 实时错误'-2147467259（80004005）'：
不能从多个表中插入或更新列
rs.Open "select * from 表一名,表二名", Conn, 2, 2
rs.AddNew
rs.Fields("Name") = TxtName.Text‘选项卡中的各记录
msg = MsgBox("添加信息吗？", vbYesNo + vbExclamation, "提示")
If msg = vbYes Then
rs.Update
rs.Close
Else
rs.CancelUpdate
End If
Call ClsTxt(Me)
运行提示是 实时错误'-2147467259（80004005）'：
不能从多个表中插入或更新列