asp操作一个mdb数据库,我想向两个表中加入数据
asp操作一个mdb数据库,我想想两个表中加入数据,但是加入第二个表时出错,,,,还有,第一个表的id能加到第二个表中,但是别的数据加不到第二个表中'''''''''''...
asp操作一个mdb数据库,我想想两个表中加入数据,但是加入第二个表时出错,,,,还有,第一个表的id能加到第二个表中,但是别的数据加不到第二个表中
''''''''''''''''''''''''''''''''''''
'''''下面将数据填入数据库中
'''''''''''''''''''''''''''''''''''
''''''''''1.先写入user表
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from [user]"
rs.open sqlstr ,conn ,1,3
rs.movelast '可省略
rs.addnew
rs("name")=name
rs("pwd")=pwd
rs.update
''''下面取得uid号,写入下一个表,这是两个表联系的唯一字段
Dim uid
uid=rs("id")
response.write("get uid" & uid)
rs.close
set rs = nothing
response.End
'''''''''''''''''''''''''''''''''''
''''''''''2.先写入user_info表
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from [user_info]"
rs.open sqlstr,conn ,1,3
response.write("表打开成功!")
'显示一下
response.write( rs("Email") )
rs.movelast '可省略
rs.addnew
rs("uid")=uid ''''''''此句可以执行
rs("Email")=Email
rs("Address")=city
rs("sex")=sex
rs("IdNum")=IdNum
rs("phone")=tel
rs("MoPhone")=MoPhone
rs("QQ")=QQ
rs.update
rs.close
Set rs = Nothing
conn.close
set conn = Nothing
response.write("很好!")
response.End
%> 展开
''''''''''''''''''''''''''''''''''''
'''''下面将数据填入数据库中
'''''''''''''''''''''''''''''''''''
''''''''''1.先写入user表
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from [user]"
rs.open sqlstr ,conn ,1,3
rs.movelast '可省略
rs.addnew
rs("name")=name
rs("pwd")=pwd
rs.update
''''下面取得uid号,写入下一个表,这是两个表联系的唯一字段
Dim uid
uid=rs("id")
response.write("get uid" & uid)
rs.close
set rs = nothing
response.End
'''''''''''''''''''''''''''''''''''
''''''''''2.先写入user_info表
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from [user_info]"
rs.open sqlstr,conn ,1,3
response.write("表打开成功!")
'显示一下
response.write( rs("Email") )
rs.movelast '可省略
rs.addnew
rs("uid")=uid ''''''''此句可以执行
rs("Email")=Email
rs("Address")=city
rs("sex")=sex
rs("IdNum")=IdNum
rs("phone")=tel
rs("MoPhone")=MoPhone
rs("QQ")=QQ
rs.update
rs.close
Set rs = Nothing
conn.close
set conn = Nothing
response.write("很好!")
response.End
%> 展开
2个回答
展开全部
''''下面取得uid号,写入下一个表,这是两个表联系的唯一字段
Dim uid
uid=rs("id")
response.write("get uid" & uid)
rs.close
set rs = nothing
response.End
'''''''''''''''''''''''''''''''''''
''''''''''2.先写入user_info表
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
你把上面的response.End去掉试试看看
Dim uid
uid=rs("id")
response.write("get uid" & uid)
rs.close
set rs = nothing
response.End
'''''''''''''''''''''''''''''''''''
''''''''''2.先写入user_info表
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
你把上面的response.End去掉试试看看
TableDI
2024-07-18 广告
2024-07-18 广告
在上海悉息信息科技有限公司,我们深知Excel在数据处理中的重要作用。在Excel中引用不同工作表(sheet)的数据是常见的操作,这有助于整合和分析跨多个工作表的信息。通过在工作表名称前加上感叹号“!”,您可以轻松地引用其他工作表中的数据...
点击进入详情页
本回答由TableDI提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询