有关ACCESS关联查询的问题求助

hkyooa

部门表

部门代码 部门名称

01                             市场部

02                             生产部

职员表

职员代码 职员名称

01                             张三

02                             李四

客户表

客户代码 客户名称

01                             A客户

02                             B客户

主表

序号   项目类别    代码

1      部门        01            ==================此处01指 [市场部]的部门代码

2      职员        02            ==================此处02指[李四]的职员代码

3     。。。        。。。。

想生成一个查询表

查询表结构如下：

核算项目类别  代码   核算项目名称

部门         01     市场部

职员         02      李四

SQL查询可以实现吗，烦请指教？

查询.zip (11.83 KB, 下载次数: 21)

2012-8-11 15:21 上传

点击文件名下载附件

gongzl1981

建議您 研究一下 SQL中的SELECT語句.

hkyooa

gongzl1981 发表于 2012-8-11 15:32
建議您 研究一下 SQL中的SELECT語句.

还请指教！

gongzl1981

http://www.w3school.com.cn/sql/sql_select.asp

hkyooa

谢谢gongzl1981 提供的学习页面，作为新手确实有待加强。
还请大家帮忙看下，如何建立这种形式的查询？或者判定这种形式的查询无法做到？

zhaogang1960

短信收到，试试看：
    SQL = "Select '部门' as 核算项目类别,部门代码 as 代码,部门名称 as 核算项目名称 from 部门表 union all Select '客户' as 核算项目类别,客户代码 as 代码,客户名称 as 核算项目名称 from 客户表"

zhaogang1960

如果在Excel中查询：
Sub Macro1()
    Dim cnn As Object, rs As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\查询.mdb"
    SQL = "Select '部门' as 核算项目类别,部门代码 as 代码,部门名称 as 核算项目名称 from 部门表 union all Select '客户' as 核算项目类别,客户代码 as 代码,客户名称 as 核算项目名称 from 客户表"
    Set rs = cnn.Execute(SQL)
    Cells.ClearContents
    For i = 1 To rs.Fields.Count
        Cells(1, i) = rs.Fields(i - 1).Name
    Next
    [a2].CopyFromRecordset rs
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

hkyooa

zhaogang1960 发表于 2012-8-11 18:59
如果在Excel中查询：
Sub Macro1()
    Dim cnn As Object, rs As Object, SQL$

谢谢赵老师指点,按你的代码,确实可以得到一张这种形式的表!

新的问题:

如果我想在"主表"里任意增加一行,比如

核算项目类别     代码
部门              02

要求查询表自动增加一行,并出现如下信息

核算项目类别   代码    核算项目名称
部门            02        生产部

下一行主表有可能增加一行"职员"或"客户"的信息.如果仅有一个项目,主表只和一张项目表产生关联,就很好解决了.

可以实现这样的查询吗?

zhaogang1960

hkyooa 发表于 2012-8-11 19:54
谢谢赵老师指点,按你的代码,确实可以得到一张这种形式的表!

新的问题:

直接使用SQL语句我不会，可使用循环在Excel中实现

zhaogang1960

1. Sub Macro1()
   
2.     Dim cnn As Object, rs As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     Set rs = CreateObject("ADODB.Recordset")
   
5.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\查询.mdb"
   
6.     rs.Open "主表", cnn, 1, 3
   
7.     For i = 1 To rs.RecordCount
   
8.         If i = 1 Then
   
9.             SQL = "Select '" & rs.Fields(1) & "' as 核算项目类别," & rs.Fields(1) & "代码 as 代码," & rs.Fields(1) & "名称 as 核算项目名称 from " & rs.Fields(1) & "表 where " & rs.Fields(1) & "代码='" & rs.Fields(2) & "'"
   
10.         Else
    
11.             SQL = SQL & " union all Select '" & rs.Fields(1) & "' as 核算项目类别," & rs.Fields(1) & "代码 as 代码," & rs.Fields(1) & "名称 as 核算项目名称 from " & rs.Fields(1) & "表 where " & rs.Fields(1) & "代码='" & rs.Fields(2) & "'"
    
12.         End If
    
13.         rs.MoveNext
    
14.     Next
    
15.     Set rs = cnn.Execute(SQL)
    
16.     Cells.ClearContents
    
17.     For i = 1 To rs.Fields.Count
    
18.         Cells(1, i) = rs.Fields(i - 1).Name
    
19.     Next
    
20.     [a2].CopyFromRecordset rs
    
21.     rs.Close
    
22.     cnn.Close
    
23.     Set rs = Nothing
    
24.     Set cnn = Nothing
    
25. End Sub
    

复制代码