Question

asp+sql 同时向两个数据库表中写入数据

有两个表名不同 但表字段都相同的两个SQL表，再提交一个表单的时候同时将数据更新到这两个表中
两个表都是有编号、型号、品牌三个字段
如下代码提示错误 请高手指点
text1=trim(request.form("text1"))
text2=trim(request.form("text2"))
text3=trim(request.form("text3"))
<!-- #include file=database.asp -->
<%
Set Rs1 = Server.CreateObject("ADODB.Recordset")

fields=array("编号","型号","品牌")
values=array(text1,text2,text3)
sql=" insert into 表A(" & join(fields,",")&") values ('" & _
join(values,"','") & "')"

con.execute SQL

Set Rs2 = Server.CreateObject("ADODB.Recordset")

fields=array("编号","型号","品牌")
values=array(text1,text2,text3)
sql=" insert into 表B(" & join(fields,",")&") values ('" & _
join(values,"','") & "')"

con.execute SQL

Answer 1

错误是提示什么？

按你这段代码应该是不可能执行起来的。试试下边的吧。
要想学好一门语言应该踏实的学，起码流程语句和定义是必须要的
<!-- #include file=database.asp -->
<%

text1=trim(request.form("text1"))
text2=trim(request.form("text2"))
text3=trim(request.form("text3"))
fields=array("编号","型号","品牌")
values=array(text1,text2,text3)
dim sqlA:sqlA=" insert into 表A(" & join(fields,",")&") values ('" & _
join(values,"','") & "')"
dim sqlA:sqlB=" insert into 表B(" & join(fields,",")&") values ('" & _
join(values,"','") & "')"

con.execute sqlA

con.execute sqlB

追问

dim sqlA:sqlA="。。。"
con.execute.sqlA
dim sqlA:sqlB=" i。。。。"
con.execute sqlB
这样就可以了 谢谢