2个表的问题

[mare1]

Dim bh, xh, xm, xb, sfzh, xxxs, zy,mm,cj,kc
sSql = "SELECT * FROM blxs,blcj WHERE bh=" & id

oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
xh = oRs("xh")<---30行
xm = oRs("xm")
xb = oRs("xb")
sfzh = oRs("sfzh")
xxxs = oRs("xxxs")
zy = oRs("zy")
mm = oRs("mm")
cj = oRs("cj")
kc = oRs("kc")
Else
GoError "无效的链接ID，请点页面上的链接进行操作！"
End If
上面 2个表里 都有“xh”栏目 运行时提示错误 ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中，未找到项目。
/web/News/Admin/bl_StuModify.asp, 第 30 行
如果把 30行去掉就可以但是 我网页里 的 xh项就不能显示了！！！
谢谢 朋友帮忙解决下

[ai_li7758521]

看不明白

[chuifengde]

不能有两个字段名相同

[Zoezs]

Dim bh, xh, xm, xb, sfzh, xxxs, zy,mm,cj,kc
sSql = "SELECT * FROM blxs a,blcj b WHERE bh=" & id

oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
        xh = oRs("a.xh") <---30行
xm = oRs("xm")
xb = oRs("xb")
sfzh = oRs("sfzh")
xxxs = oRs("xxxs")
zy = oRs("zy")
mm = oRs("mm")
cj = oRs("cj")
kc = oRs("kc")
Else
GoError "无效的链接ID，请点页面上的链接进行操作！"
End If 

那张表的字段你就加那个表的别名就可以了。

[JonasFeng]

xh = oRs("xh") <---30行
xm = oRs("xm")
xb = oRs("xb")
sfzh = oRs("sfzh")
xxxs = oRs("xxxs")
zy = oRs("zy")
mm = oRs("mm")
cj = oRs("cj")
kc = oRs("kc")

楼主找找这些字段都有吗？
xh,xm,xb,sfzh,xxxs,zy,mm,cj,kc
如果有一个没有，或者写错，你走的那个分支就会报错。

[JonasFeng]

[Quote=引用 3 楼 Zoezs 的回复:]
SQL code
Dim bh, xh, xm, xb, sfzh, xxxs, zy,mm,cj,kc
sSql = "SELECT * FROM blxs a,blcj b WHERE bh=" & id

oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
xh = oRs("a.xh") <---30行
xm = oRs("xm")
xb = oRs("xb")
sfzh = oRs("sfzh")
xxxs = oRs("xxxs")
zy = oRs("zy")
mm = oRs("mm")
cj = oRs("cj")
kc = oRs("kc")
Else
GoError "无效的链接ID，请点页面上的链接进行操作！"
End If

…
[/Quote]

也有道理

[taoistong]

Dim bh, xh, xm, xb, sfzh, xxxs, zy,mm,cj,kc
sSql = "SELECT a.xh xh1,* FROM blxs,blcj WHERE bh=" & id

oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
xh = oRs("xh1") <---30行
xm = oRs("xm")
xb = oRs("xb")
sfzh = oRs("sfzh")
xxxs = oRs("xxxs")
zy = oRs("zy")
mm = oRs("mm")
cj = oRs("cj")
kc = oRs("kc")
Else
GoError "无效的链接ID，请点页面上的链接进行操作！"
End If



调整一下即可

[mare1]

谢谢 ！！这么快帮我解决了