怎样对Access里进行两个表的联合查询?
 Select Case TmaterialCatalog
Select Case TmaterialCatalog Case "Sub"
    Case "Sub" Field="countryID"
        Field="countryID" sql="Select Name From TCountry Where ID=" &SubID& ""
        sql="Select Name From TCountry Where ID=" &SubID& "" Case "Sub0"
    Case "Sub0" Field="schoolID"
        Field="schoolID" sql="(Select Name From TCountry Where ID=(Select countryID From TSchool Where ID=" &SubID& "))+'-'+(Select Name From TSchool Where ID=" &SubID& ")"
        sql="(Select Name From TCountry Where ID=(Select countryID From TSchool Where ID=" &SubID& "))+'-'+(Select Name From TSchool Where ID=" &SubID& ")" '        Response.Write sql
'        Response.Write sql '        Response.End
'        Response.End  Case Else
    Case Else Response.Write "<body bgColor='#D4D0C8'></body>"
        Response.Write "<body bgColor='#D4D0C8'></body>" Response.End
        Response.End  End Select
End Select为了使开发进度加快,我只好用下面的代码:
 Dim Field,sql,strsql
Dim Field,sql,strsql Select Case TmaterialCatalog
Select Case TmaterialCatalog Case "Sub"
    Case "Sub" Field="countryID"
        Field="countryID" sql="Select Name From TCountry Where ID=" &SubID& ""
        sql="Select Name From TCountry Where ID=" &SubID& "" Case "Sub0"
    Case "Sub0" Field="schoolID"
        Field="schoolID" strsql="Select Name From TCountry Where ID in (Select countryID From TSchool Where ID=" &SubID& ")"
        strsql="Select Name From TCountry Where ID in (Select countryID From TSchool Where ID=" &SubID& ")" sql="Select Name From TSchool Where ID=" &SubID& ""
        sql="Select Name From TSchool Where ID=" &SubID& "" 'sql="Select (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID=" &SubID& "))+'-'+(Select Name From TSchool Where ID=" &SubID& ")"
        'sql="Select (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID=" &SubID& "))+'-'+(Select Name From TSchool Where ID=" &SubID& ")" '        Response.Write sql
'        Response.Write sql '        Response.End
'        Response.End  Case Else
    Case Else Response.Write "<body bgColor='#D4D0C8'></body>"
        Response.Write "<body bgColor='#D4D0C8'></body>" Response.End
        Response.End  End Select
End Select 
                    
                

 
                
            
         
         浙公网安备 33010602011771号
浙公网安备 33010602011771号