怎样对Access里进行两个表的联合查询?

None.gif Select   Case  TmaterialCatalog
None.gif    
Case   " Sub "
None.gif        Field
= " countryID "
None.gif        sql
= " Select Name From TCountry Where ID= "   & SubID &   ""
None.gif    
Case   " Sub0 "
None.gif        Field
= " schoolID "
None.gif        sql
= " (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID= "   & SubID &   " ))+'-'+(Select Name From TSchool Where ID= "   & SubID &   " ) "
None.gif
'         Response.Write sql
None.gif'
        Response.End 
None.gif
     Case   Else
None.gif        Response.Write 
" <body bgColor='#D4D0C8'></body> "
None.gif        Response.End 
None.gif
End   Select
有错,这是为什么呢?
为了使开发进度加快,我只好用下面的代码:
None.gif Dim  Field,sql,strsql
None.gif
Select   Case  TmaterialCatalog
None.gif    
Case   " Sub "
None.gif        Field
= " countryID "
None.gif        sql
= " Select Name From TCountry Where ID= "   & SubID &   ""
None.gif    
Case   " Sub0 "
None.gif        Field
= " schoolID "
None.gif        strsql
= " Select Name From TCountry Where ID in (Select countryID From TSchool Where ID= "   & SubID &   " ) "
None.gif        sql
= " Select Name From TSchool Where ID= "   & SubID &   ""
None.gif        
' sql="Select (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID=" &SubID& "))+'-'+(Select Name From TSchool Where ID=" &SubID& ")"
None.gif'
        Response.Write sql
None.gif'
        Response.End 
None.gif
     Case   Else
None.gif        Response.Write 
" <body bgColor='#D4D0C8'></body> "
None.gif        Response.End 
None.gif
End   Select
不知道,谁能帮助我一下,把Case "Sub0" 下面代码改下?

转载于:https://www.cnblogs.com/Nuxgod/archive/2007/03/22/683512.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值